Clarifying error message on bad import spec.

This commit is contained in:
Alex Shinn 2015-04-26 13:29:16 +09:00
parent 93406a98ee
commit 1883561c57

View file

@ -94,7 +94,7 @@
(define (resolve-import x)
(cond
((not (and (pair? x) (list? x)))
(error "invalid module syntax" x))
(error "invalid import syntax" x))
((and (memq (car x) '(prefix drop-prefix))
(symbol? (car (cddr x))) (list? (cadr x)))
(let ((mod-name+imports (resolve-import (cadr x))))