fixed wrong # of args to internal err function

svn: r8650
This commit is contained in:
John Clements 2008-02-13 19:45:15 +00:00
parent 44e99eed6e
commit b69384799a

View File

@ -31,7 +31,7 @@
(lambda () (lambda ()
(begin0 (read) (begin0 (read)
(unless (eof-object? (read)) (unless (eof-object? (read))
(err "has multiple expressions" file))))))) (err "has multiple expressions")))))))
(and (file-exists? file) (and (file-exists? file)
(match (contents) (match (contents)
[(list 'module 'info [(list 'module 'info