[foo-cvs] foo/elkfoo/src misc.c,1.6,1.7

[Martin R. <ru...@us...>]

Update of /cvsroot/foo/foo/elkfoo/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17370/src

Modified Files:
	misc.c 
Log Message:
apparently getting tired.  again stupid fix in misc.c

Index: misc.c
===================================================================
RCS file: /cvsroot/foo/foo/elkfoo/src/misc.c,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** misc.c	5 Aug 2004 23:57:09 -0000	1.6
--- misc.c	5 Aug 2004 23:58:47 -0000	1.7
***************
*** 147,161 ****
        return False;
      }
!   if (WIFSIGNALED(n))
      {
!       return Cons(Make_Fixnum(WTERMSIG(n)), Null);
      }
!   else if (WIFSTOPPED(n))
      {
!       return Make_Fixnum(WSTOPSIG(n));
      }
  
    /* assert(WIFEXITED); */
!   return Make_Fixnum(WEXITSTATUS(n));
  }
  
--- 147,161 ----
        return False;
      }
!   if (WIFSIGNALED(status))
      {
!       return Cons(Make_Fixnum(WTERMSIG(status)), Null);
      }
!   else if (WIFSTOPPED(status))
      {
!       return Make_Fixnum(WSTOPSIG(status));
      }
  
    /* assert(WIFEXITED); */
!   return Make_Fixnum(WEXITSTATUS(status));
  }