diff --git a/lib/chibi/repl.scm b/lib/chibi/repl.scm index 8ecc5744..4c3fc7d0 100644 --- a/lib/chibi/repl.scm +++ b/lib/chibi/repl.scm @@ -310,7 +310,29 @@ (lambda (a b) (stringfile mod-name)) + (scm-file (string-append + (substring mod-file + 0 + (- (string-length mod-file) 4)) + ".scm"))) + (display "Searched module path " out) + (display (current-module-path) out) + (display " for " out) + (write mod-file out) + (display ".\n" out) + (cond + ((find-module-file scm-file) + => (lambda (file) + (display "But found non-module-definition file " out) + (write file out) + (display ".\nNote module files must end in \".sld\".\n" out))))) + ))) (define undefined-value (if #f #f)) diff --git a/lib/chibi/repl.sld b/lib/chibi/repl.sld index 16e07187..dd2e03d3 100644 --- a/lib/chibi/repl.sld +++ b/lib/chibi/repl.sld @@ -1,7 +1,7 @@ (define-library (chibi repl) (export repl $0 $1 $2 $3 $4 $5 $6 $7 $8 $9) - (import (chibi) (only (meta) load-module) + (import (chibi) (only (meta) load-module module-name->file) (chibi ast) (chibi modules) (chibi doc) (chibi string) (chibi io) (chibi optional) (chibi process) (chibi term edit-line)