Fixed two small bugs in pipe and fork
This commit is contained in:
parent
e3f2877ab9
commit
2cb62dfcb5
|
@ -112,7 +112,7 @@
|
||||||
(error "Yikes! %exit returned."))
|
(error "Yikes! %exit returned."))
|
||||||
|
|
||||||
|
|
||||||
(define-stubless-foreign %%fork () "fork")
|
(define-stubless-foreign %%fork () "scsh_fork")
|
||||||
|
|
||||||
;;; Posix waitpid(2) call.
|
;;; Posix waitpid(2) call.
|
||||||
(define-stubless-foreign %wait-pid/errno-list (pid options)
|
(define-stubless-foreign %wait-pid/errno-list (pid options)
|
||||||
|
@ -599,13 +599,13 @@
|
||||||
(define-stubless-foreign pipe-fdes () "scheme_pipe")
|
(define-stubless-foreign pipe-fdes () "scheme_pipe")
|
||||||
|
|
||||||
(define (pipe)
|
(define (pipe)
|
||||||
(apply (pipe-fdes)
|
(apply (lambda (r-fd w-fd)
|
||||||
(lambda (r-fd w-fd)
|
|
||||||
(let ((r (fdes->inport r-fd))
|
(let ((r (fdes->inport r-fd))
|
||||||
(w (fdes->outport w-fd)))
|
(w (fdes->outport w-fd)))
|
||||||
(release-port-handle r)
|
(release-port-handle r)
|
||||||
(release-port-handle w)
|
(release-port-handle w)
|
||||||
(values r w)))))
|
(values r w)))
|
||||||
|
(pipe-fdes)))
|
||||||
|
|
||||||
(define-foreign %read-fdes-char
|
(define-foreign %read-fdes-char
|
||||||
(read_fdes_char (fixnum fd))
|
(read_fdes_char (fixnum fd))
|
||||||
|
|
Loading…
Reference in New Issue