Adding emergency-exit.

This commit is contained in:
Alex Shinn 2012-10-15 09:50:35 +09:00
parent 6b467f4452
commit c4edcc8d78

View file

@ -2,4 +2,6 @@
(define-library (scheme process-context) (define-library (scheme process-context)
(import (chibi) (srfi 98) (only (chibi process) exit)) (import (chibi) (srfi 98) (only (chibi process) exit))
(export get-environment-variable get-environment-variables (export get-environment-variable get-environment-variables
command-line exit)) command-line exit emergency-exit)
;; TODO: Make exit unwind and finalize properly.
(begin (define emergency-exit exit)))