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 ()
(begin0 (read)
(unless (eof-object? (read))
(err "has multiple expressions" file)))))))
(err "has multiple expressions")))))))
(and (file-exists? file)
(match (contents)
[(list 'module 'info