~ chicken-core (chicken-5) afc8fb60855ff65968ffc35a0194a6f29b25c991

commit afc8fb60855ff65968ffc35a0194a6f29b25c991
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Tue Nov 3 23:09:40 2015 +1300
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Tue Nov 3 23:09:40 2015 +1300

    Check list? in library-id for nicer error messages

diff --git a/internal.scm b/internal.scm
index eda1fc48..e54669d3 100644
--- a/internal.scm
+++ b/internal.scm
@@ -56,7 +56,8 @@
 	  (else (fail))))
   (cond
     ((symbol? lib) lib)
-    ((not (pair? lib)) (fail))
+    ((null? lib) (fail))
+    ((not (list? lib)) (fail))
     ((srfi? lib)
      (##sys#intern-symbol
       (##sys#string-append "srfi-" (##sys#number->string (cadr lib)))))