From c4edcc8d78b94df88024dee98c8fbc36bb3c1285 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Mon, 15 Oct 2012 09:50:35 +0900 Subject: [PATCH] Adding emergency-exit. --- lib/scheme/process-context.sld | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lib/scheme/process-context.sld b/lib/scheme/process-context.sld index a53d4507..29aab00a 100644 --- a/lib/scheme/process-context.sld +++ b/lib/scheme/process-context.sld @@ -2,4 +2,6 @@ (define-library (scheme process-context) (import (chibi) (srfi 98) (only (chibi process) exit)) (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)))