~ chicken-core (chicken-5) d5c2991cb02a1017cbe86568e61faec1e89a7507

commit d5c2991cb02a1017cbe86568e61faec1e89a7507
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sat Sep 3 21:48:55 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sat Sep 3 21:48:55 2011 +0200

    fixed bug in handling of (srfi N) extension specifiers

diff --git a/eval.scm b/eval.scm
index c64eb18d..4b8b8fe1 100644
--- a/eval.scm
+++ b/eval.scm
@@ -1303,7 +1303,7 @@
 			`(##core#begin
 			  ,@(map (lambda (n)
 				   (let ((rid (srfi-id n)))
-				     (let-values (((exp f2) (doit rid rid)))
+				     (let-values (((exp f2 _) (doit rid rid)))
 				       (set! f (or f f2))
 				       exp)))
 				 (cdr id)))))