scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixed two small bugs in pipe and fork

This commit is contained in:
mainzelm 2000-09-24 20:52:07 +00:00
parent e3f2877ab9
commit 2cb62dfcb5
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
scsh/syscalls.scm
View File

@ -112,7 +112,7 @@
(error "Yikes! %exit returned."))
(define-stubless-foreign %%fork () "fork")
(define-stubless-foreign %%fork () "scsh_fork")
;;; Posix waitpid(2) call.
(define-stubless-foreign %wait-pid/errno-list (pid options)
@ -599,13 +599,13 @@
(define-stubless-foreign pipe-fdes () "scheme_pipe")
(define (pipe)
(apply (pipe-fdes)
(lambda (r-fd w-fd)
(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)))))
(values r w)))
(pipe-fdes)))
(define-foreign %read-fdes-char
(read_fdes_char (fixnum fd))