Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-09 05:57:36 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

Adding a `system' command.

Browse source
This commit is contained in:
Alex Shinn 2011-04-07 23:11:31 +09:00
parent 9b0c057343
commit 2cd95a04d3
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lib/chibi/process.module
View file

@ -1,6 +1,6 @@
(define-module (chibi process)
(export exit sleep alarm fork kill execute waitpid
(export exit sleep alarm fork kill execute waitpid system
process-command-line process-running?
set-signal-action! make-signal-set signal-set-contains?
signal-set-fill! signal-set-add! signal-set-delete!
@ -16,6 +16,12 @@
(import-immutable (scheme))
(cond-expand (threads (import (srfi 18))) (else #f))
(include-shared "process")
(body
(define (system cmd . args)
(let ((pid (fork)))
(if (zero? pid)
(execute cmd (cons cmd args))
(waitpid pid 0)))))
(cond-expand
(bsd #f)
(else