~ chicken-core (chicken-5) a12fa8d4e0192e34b52034bdbf51d37337a98bf3

commit a12fa8d4e0192e34b52034bdbf51d37337a98bf3
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Tue Sep 5 22:37:38 2017 +1200
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Tue Sep 5 22:37:38 2017 +1200

    Restore void return value for import forms
    
    In commit cdcafde9, the "import"" form was unintentionally changed to
    return a boolean value in some situations. This patch just restores the
    original (void) result.

diff --git a/eval.scm b/eval.scm
index f6ffd287..10162865 100644
--- a/eval.scm
+++ b/eval.scm
@@ -1264,7 +1264,7 @@
 		 (or (check pa)
 		     (loop (##sys#slot paths 1)) ) ) ) ) ) ) ))
 
-(define (chicken.load#load-extension id alternates loc)
+(define (load-extension/internal id alternates loc)
   (cond ((##sys#provided? id))
 	((any ##sys#provided? alternates))
 	((memq id core-units)
@@ -1276,6 +1276,10 @@
 	(else
 	 (##sys#error loc "cannot load extension" id))))
 
+(define (chicken.load#load-extension id alternates loc)
+  (load-extension/internal id alternates loc)
+  (##core#undefined))
+
 (define (require . ids)
   (for-each (cut ##sys#check-symbol <> 'require) ids)
   (for-each (cut chicken.load#load-extension <> '() 'require) ids))