~ chicken-core (chicken-5) 031ce5c6d750f4f8727c26a61a5fbb27ece0af0f

commit 031ce5c6d750f4f8727c26a61a5fbb27ece0af0f
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sat Jun 11 22:51:05 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sat Jun 11 22:51:05 2011 +0200

    eval: handle ##core#the

diff --git a/eval.scm b/eval.scm
index 800053cd..239ff50c 100644
--- a/eval.scm
+++ b/eval.scm
@@ -748,6 +748,9 @@
 			 [(##core#app)
 			  (compile-call (cdr x) e tf cntr se) ]
 
+			 ((##core#the)
+			  (compile (caddr x) e tf cntr se))
+
 			 (else
 			  (fluid-let ((##sys#syntax-context (cons head ##sys#syntax-context)))
 			    (compile-call x e tf cntr se)))))))]