~ chicken-core (chicken-5) 6eb8d14963e59982aef77d233d3bfe66c6ee2622

commit 6eb8d14963e59982aef77d233d3bfe66c6ee2622
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri May 20 08:53:47 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri May 20 08:53:47 2011 +0200

    build-expression-tree does not use ##core#app

diff --git a/support.scm b/support.scm
index c04e0e6f..97cad819 100644
--- a/support.scm
+++ b/support.scm
@@ -570,9 +570,7 @@
 	       (third params)
 	       (walk (car subs)) ) )
 	((##core#call) 
-	 (if (first params)
-	     `(##core#app ,@(map walk subs))
-	     (map walk subs)))
+	 (map walk subs))
 	((##core#callunit) (cons* '##core#callunit (car params) (map walk subs)))
 	((##core#undefined) (list class))
 	((##core#bind)