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 (cond-expand
(plan9 (plan9
(define (exit . o) (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 (else
(define (exit . o) (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 (cond-expand
(bsd (bsd

2
lib/chibi/process.stub
View file

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