mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-19 05:39:18 +02:00
exit codes should be exact (issue #467)
This commit is contained in:
parent
278911e93c
commit
72de3ba12f
1 changed files with 3 additions and 1 deletions
|
@ -10,7 +10,9 @@
|
|||
(else
|
||||
(define (exit . 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)))))
|
||||
|
||||
(cond-expand
|
||||
|
|
Loading…
Add table
Reference in a new issue