squash! guile/module.mes: nicer messages
This commit is contained in:
parent
8d52b54958
commit
4dcff51a38
|
@ -522,7 +522,7 @@
|
||||||
(let ((file (or (search-path %load-path (string-append file-name ".mes"))
|
(let ((file (or (search-path %load-path (string-append file-name ".mes"))
|
||||||
(search-path %load-path (string-append file-name ".scm")))))
|
(search-path %load-path (string-append file-name ".scm")))))
|
||||||
(when (> %debug 1)
|
(when (> %debug 1)
|
||||||
(format (current-error-port) " => ~s\n" file))
|
(format (current-error-port) " *file-name => ~s\n" file))
|
||||||
file))
|
file))
|
||||||
|
|
||||||
|
|
||||||
|
@ -1575,6 +1575,10 @@
|
||||||
identity))
|
identity))
|
||||||
(module (resolve-module name))
|
(module (resolve-module name))
|
||||||
(public-i (and module (module-public-interface module))))
|
(public-i (and module (module-public-interface module))))
|
||||||
|
(and (not module)
|
||||||
|
(error "no such module" name))
|
||||||
|
(and (not public-i)
|
||||||
|
(error "module has no public-i" name))
|
||||||
(and (or (not module) (not public-i))
|
(and (or (not module) (not public-i))
|
||||||
(error "no code for module" name))
|
(error "no code for module" name))
|
||||||
(if (and (not select) (null? hide) (eq? renamer identity))
|
(if (and (not select) (null? hide) (eq? renamer identity))
|
||||||
|
|
Loading…
Reference in New Issue