Add error advise when forgetting to import a language.

Closes #1001.
This commit is contained in:
Alex Shinn 2024-09-20 09:13:16 +09:00
parent d677a135f1
commit 702e881289

View file

@ -296,6 +296,8 @@
(pair? (exception-irritants exn))) (pair? (exception-irritants exn)))
(let ((name (car (exception-irritants exn)))) (let ((name (car (exception-irritants exn))))
(cond (cond
((and (identifier? name) (not (env-parent (current-environment))))
(display "Did you forget to import a language? e.g. (import (scheme base))\n" out))
((identifier? name) ((identifier? name)
(display "Searching for modules exporting " out) (display "Searching for modules exporting " out)
(display name out) (display name out)