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

exit codes should be exact (issue #467)

Browse source
This commit is contained in:
Alex Shinn 2018-04-05 22:11:05 +09:00
parent 278911e93c
commit 72de3ba12f
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/chibi/process.scm
View file

@ -10,7 +10,9 @@
(else (else
(define (exit . o) (define (exit . o)
(%exit (if (pair? o) (%exit (if (pair? o)
(if (integer? (car o)) (car o) (if (eq? #t (car o)) 0 1)) (if (integer? (car o))
(inexact->exact (car o))
(if (eq? #t (car o)) 0 1))
0))))) 0)))))
(cond-expand (cond-expand