From 8758e066c14ddc7c623f8349f4824ecb0838caef Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Tue, 10 Apr 2007 22:56:24 +0000 Subject: [PATCH] typo svn: r5919 original commit: 4a010a722c10a9aef70f00f1cf11da3139e27a70 --- collects/mzlib/sandbox.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/mzlib/sandbox.ss b/collects/mzlib/sandbox.ss index a0c9276..2c63cfd 100644 --- a/collects/mzlib/sandbox.ss +++ b/collects/mzlib/sandbox.ss @@ -245,8 +245,8 @@ (cons language requires)] [(eq? (car language) 'begin) (append (find-requires (cdr language)) requires)] - [else 'require-perms - "bad language spec: ~e" language])]) + [else (error 'require-perms + "bad language spec: ~e" language)])]) (module-specs->path-permissions requires))) (define (input->port inp)