better error message(?)

svn: r11102
This commit is contained in:
Eli Barzilay 2008-08-06 06:32:08 +00:00
parent b62d79045e
commit ea64d1d488

View File

@ -196,7 +196,7 @@
(namespace-require lang)) (namespace-require lang))
(unless (memq '#%top-interaction (namespace-mapped-symbols)) (unless (memq '#%top-interaction (namespace-mapped-symbols))
(raise-hopeless-syntax-error (raise-hopeless-syntax-error
"invalid language (existing module, but no language bindings)" "invalid language (no #%top-interaction binding)"
lang))) lang)))
(define (*init) (define (*init)
;; the prompt makes it continue after an error ;; the prompt makes it continue after an error