~ chicken-core (chicken-5) d011f065f13197504caedd566f8a398bf05cf739

commit d011f065f13197504caedd566f8a398bf05cf739
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sat May 15 01:08:48 2010 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sat May 15 01:08:48 2010 +0200

    reverted last change to for-each invocation - the compiler should be able to handle this

diff --git a/library.scm b/library.scm
index ff0aff8e..275582fe 100644
--- a/library.scm
+++ b/library.scm
@@ -2733,7 +2733,7 @@ EOF
   (##sys#print x #f port) )
 
 (define-inline (*print-each lst)
-  (for-each (lambda (x) (##sys#print x #f ##sys#standard-output)) lst) )
+  (for-each (cut ##sys#print <> #f ##sys#standard-output) lst) )
  
 (define (print . args)
   (*print-each args)