mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-19 13:49:17 +02:00
e46bd03239
Implement Win32 specific process library. Currently the library only provides `exit` procedure.
9 lines
401 B
Scheme
9 lines
401 B
Scheme
|
|
(define-library (scheme process-context)
|
|
(import (chibi) (srfi 98))
|
|
(cond-expand (windows (import (only (chibi win32 process-win32) exit)))
|
|
(else (import (only (chibi process) exit))))
|
|
(export get-environment-variable get-environment-variables
|
|
command-line exit emergency-exit)
|
|
;; TODO: Make exit unwind and finalize properly.
|
|
(begin (define emergency-exit exit)))
|