~ chicken-core (chicken-5) e7673ab5aab4d6f0da764406e80ed5cf4c2be6f0

commit e7673ab5aab4d6f0da764406e80ed5cf4c2be6f0
Author:     Peter Bex <peter@more-magic.net>
AuthorDate: Mon Oct 16 17:21:14 2017 +0200
Commit:     Peter Bex <peter@more-magic.net>
CommitDate: Mon Oct 16 17:21:14 2017 +0200

    Pass on tl? in "eval" when compiling define-{constant,inline}
    
    Before, we'd pass #f as tl?, which means we'd always get an error when
    using define-constant or define-inline about it not occurring at
    toplevel, even when it did occur at toplevel.

diff --git a/eval.scm b/eval.scm
index dbdab377..37c5d8ca 100644
--- a/eval.scm
+++ b/eval.scm
@@ -608,7 +608,7 @@
 			  (compile '(##core#undefined) e #f tf cntr se #f) ]
 
 			 [(##core#define-inline ##core#define-constant)
-			  (compile `(,(rename 'define se) ,@(cdr x)) e #f tf cntr se #f) ]
+			  (compile `(,(rename 'define se) ,@(cdr x)) e #f tf cntr se tl?) ]
                    
 			 [(##core#primitive ##core#inline ##core#inline_allocate ##core#foreign-lambda 
 					    ##core#define-foreign-variable