squash! guile/module.mes: nicer messages

This commit is contained in:
Jan (janneke) Nieuwenhuizen 2020-12-30 11:21:59 +01:00
parent 8d52b54958
commit 4dcff51a38
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
1 changed files with 5 additions and 1 deletions

View File

@ -522,7 +522,7 @@
(let ((file (or (search-path %load-path (string-append file-name ".mes"))
(search-path %load-path (string-append file-name ".scm")))))
(when (> %debug 1)
(format (current-error-port) " => ~s\n" file))
(format (current-error-port) " *file-name => ~s\n" file))
file))
@ -1575,6 +1575,10 @@
identity))
(module (resolve-module name))
(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))
(error "no code for module" name))
(if (and (not select) (null? hide) (eq? renamer identity))