[Scsh-checkins] CVS: scsh-0.6/scsh syscalls.scm,1.13,1.14

[Martin Gasbichler <mainzelm@users.sourceforge.net>]

Update of /cvsroot/scsh/scsh-0.6/scsh
In directory slayer.i.sourceforge.net:/tmp/cvs-serv30819

Modified Files:
        syscalls.scm 
Log Message:
Fixed two small bugs in pipe and fork

Index: syscalls.scm
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scsh/syscalls.scm,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -r1.13 -r1.14
*** syscalls.scm        2000/09/20 10:14:11     1.13
--- syscalls.scm        2000/09/24 20:52:07     1.14
***************
*** 113,117 ****
  
  
! (define-stubless-foreign %%fork () "fork")
  
  ;;; Posix waitpid(2) call.
--- 113,117 ----
  
  
! (define-stubless-foreign %%fork () "scsh_fork")
  
  ;;; Posix waitpid(2) call.
***************
*** 600,610 ****
  
  (define (pipe)
!   (apply (pipe-fdes) 
!        (lambda (r-fd w-fd)
           (let ((r (fdes->inport  r-fd))
                 (w (fdes->outport w-fd)))
             (release-port-handle r)
             (release-port-handle w)
!            (values r w)))))
  
  (define-foreign %read-fdes-char
--- 600,610 ----
  
  (define (pipe)
!   (apply (lambda (r-fd w-fd)
           (let ((r (fdes->inport  r-fd))
                 (w (fdes->outport w-fd)))
             (release-port-handle r)
             (release-port-handle w)
!            (values r w)))
!        (pipe-fdes)))
  
  (define-foreign %read-fdes-char