diff --git a/lib/chibi/repl.scm b/lib/chibi/repl.scm index 184059db..3b9d3226 100644 --- a/lib/chibi/repl.scm +++ b/lib/chibi/repl.scm @@ -284,21 +284,24 @@ (equal? "undefined variable" (exception-message exn)) (pair? (exception-irritants exn))) (let ((name (car (exception-irritants exn)))) - (display "Searching for modules exporting " out) - (display name out) - (display " ...\n" out) - (let ((mods (and (identifier? name) - (modules-exporting-identifier name)))) - (cond - ((pair? mods) - (display name out) - (display " is exported by:\n") - (for-each - (lambda (m) - (display " " out) (write m out) (newline out)) - (sort (map car mods) - (lambda (a b) - (string