Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-21 14:49:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

execute and related functions accept symbol and number arguments.

Browse source
This commit is contained in:
Alex Shinn 2014-06-08 16:15:58 +09:00
parent e88374275d
commit 347db3fb7d
2 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lib/chibi/process.scm
View file

@ -47,6 +47,13 @@
(not (car o))
(equal? (car o) (car cmdline))))))
(define (execute cmd args)
(define (->string x)
(cond ((symbol? x) (symbol->string x))
((number? x) (number->string x))
(else x)))
(execvp (->string cmd) (map ->string args)))
(define (system cmd . args)
(let ((pid (fork)))
(cond

2
lib/chibi/process.stub
View file

@ -127,7 +127,7 @@
;;> Replace the current process with the given command. Finalizers
;;> are not run.
(define-c int (execute execvp) (string (array string)))
(define-c int (execvp execvp) (string (array string)))
;;> Returns the current process id.