~ chicken-core (chicken-5) ea32b1d03981c71430880b654985f7e30d65174e

commit ea32b1d03981c71430880b654985f7e30d65174e
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Thu Apr 22 00:02:36 2021 +0300
Commit:     megane <meganeka@gmail.com>
CommitDate: Thu Apr 22 13:55:10 2021 +0300

    Fix typo'd procedure name in "emit-import-library" declaration handling
    
    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").
    
    Signed-off-by: megane <meganeka@gmail.com>

diff --git a/core.scm b/core.scm
index 041bfe19..f624781d 100644
--- a/core.scm
+++ b/core.scm
@@ -1716,7 +1716,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