mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-19 05:39:18 +02:00
e46bd03239
Implement Win32 specific process library. Currently the library only provides `exit` procedure.
7 lines
198 B
Scheme
7 lines
198 B
Scheme
(define (exit . code?)
|
|
(%exit (if (pair? code?)
|
|
(let ((c (car code?)))
|
|
(cond ((integer? c) c)
|
|
((eq? #t c) 0)
|
|
(else 1)))
|
|
0)))
|