From efd7446b0943f00342a3b4401815ae675dc2d7dc Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 17 Dec 2008 00:04:20 +0000 Subject: [PATCH] current-exit-handler => exit-handler svn: r12874 --- collects/scheme/sandbox.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/scheme/sandbox.ss b/collects/scheme/sandbox.ss index 5b2424e81f..cb8d297294 100644 --- a/collects/scheme/sandbox.ss +++ b/collects/scheme/sandbox.ss @@ -68,7 +68,7 @@ (parameterize ([sandbox-propagate-breaks #t] [sandbox-override-collection-paths '()] [sandbox-security-guard current-security-guard] - [sandbox-exit-handler (current-exit-handler)] + [sandbox-exit-handler (exit-handler)] [sandbox-make-inspector current-inspector] [sandbox-make-code-inspector current-code-inspector] [sandbox-make-logger current-logger]