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