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

(exit #t) exits successfully

Browse source
This commit is contained in:
Alex Shinn 2012-06-25 21:46:07 -07:00
parent 02d02f40be
commit 1809aad33b
2 changed files with 9 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lib/chibi/process.scm
View file

@ -2,10 +2,16 @@
(cond-expand
(plan9
(define (exit . o)
(%exit (if (pair? o) (if (string? (car o)) (car o) "error") ""))))
(%exit (if (pair? o)
(if (string? (car o))
(car o)
(if (eq? #t (car o)) "" "chibi error"))
""))))
(else
(define (exit . o)
(%exit (if (pair? o) (if (integer? (car o)) (car o) 1) 0)))))
(%exit (if (pair? o)
(if (integer? (car o)) (car o) (if (eq? #t (car o)) 0 1))
0)))))
(cond-expand
(bsd

2
lib/chibi/process.stub
View file

@ -118,7 +118,7 @@
;;> Exits the current process immediately. Finalizers are not run.
(cond-expand
(plan9 (define-c void (%exit exit) (string)))
(plan9 (define-c void (%exit exits) (string)))
(else (define-c void (%exit exit) (int))))
;;> Replace the current process with the given command. Finalizers