svn: r5919
This commit is contained in:
Eli Barzilay 2007-04-10 22:56:24 +00:00
parent 031cd94b5c
commit 4a010a722c

View File

@ -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)