From 8bc0a3b45439df71e2fd4f0049071e2f775296fc Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Tue, 22 Jul 2014 21:26:07 +0900
Subject: [PATCH] Reporting explicitly when no matching module exports are
 found.

---
 lib/chibi/repl.scm | 33 ++++++++++++++++++---------------
 1 file changed, 18 insertions(+), 15 deletions(-)

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<? (write-to-string a) (write-to-string b))))))))))))
+      (cond
+       ((identifier? name)
+        (display "Searching for modules exporting " out)
+        (display name out)
+        (display " ...\n" out)
+        (let ((mods (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<? (write-to-string a) (write-to-string b))))))
+           (else
+            (display "... none found.\n"))))))))))
 
 (define (repl/eval rp expr-list)
   (let ((out (repl-out rp)))