Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 13:49:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Clarifying error message on bad import spec.

Browse source
This commit is contained in:
Alex Shinn 2015-04-26 13:29:16 +09:00
parent 93406a98ee
commit 1883561c57
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/meta-7.scm
View file

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