This is intended to check for a pair of strings when this declaration is
used in its `(MODULENAME FILENAME)' form, but we currently use `string'
instead of `string?' to check the second item, which will always trigger
an error ("bad argument type").
---
core.scm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/core.scm b/core.scm
index e548bbc0..9e5a8c62 100644
--- a/core.scm
+++ b/core.scm
@@ -1717,7 +1717,7 @@
(cond ((symbol? il)
(cons il (string-append (symbol->string il)
".import.scm")) )
((and (list? il) (= 2 (length il))
- (symbol? (car il)) (string (cadr il)))
+ (symbol? (car il)) (string? (cadr il)))
(cons (car il) (cadr il)))
(else
(warning
--
2.29.3
