~ chicken-core (chicken-5) cc04ee397ab9a753ff54484ffc25c7fb9389bf32

commit cc04ee397ab9a753ff54484ffc25c7fb9389bf32
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sat Jun 2 13:24:32 2012 +0200
Commit:     Peter Bex <peter.bex@xs4all.nl>
CommitDate: Tue Jun 5 12:28:09 2012 +0200

    skip ##core#callunit when scanning toplevel assignments
    
    Signed-off-by: Peter Bex <peter.bex@xs4all.nl>

diff --git a/optimizer.scm b/optimizer.scm
index 1ba1ee76..2ce577d2 100644
--- a/optimizer.scm
+++ b/optimizer.scm
@@ -84,7 +84,7 @@
 
 	  [(lambda ##core#lambda) #f]
 
-	  [(##core#call ##core#callunit) (touch)]
+	  [(##core#call) (touch)]
 
 	  [(set!)
 	   (let ((var (first params))