~ chicken-core (chicken-5) 3353cd1dabf0a90cacfeb3a85e1313a08ff20d0c

commit 3353cd1dabf0a90cacfeb3a85e1313a08ff20d0c
Author:     LemonBoy <thatlemon@gmail.com>
AuthorDate: Wed Jun 14 21:28:52 2017 +0200
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Mon Jun 26 09:17:27 2017 +1200

    Propagate the tl? flag to the inner definitions
    
    The define-foreign-type form defines some auxiliary functions using
    define and this was bound to always fail as we'd treat those as
    non-toplevel ones.
    
    Signed-off-by: Peter Bex <peter@more-magic.net>
    Signed-off-by: Evan Hanson <evhan@foldling.org>

diff --git a/core.scm b/core.scm
index c2632cd4..73f5ff15 100644
--- a/core.scm
+++ b/core.scm
@@ -1218,7 +1218,7 @@
 					(define
 					 ,ret
 					 ,(if (pair? (cdr conv)) (second conv) '##sys#values)) )
-				     e se dest ldest h ln #f) ) ]
+				     e se dest ldest h ln tl?))]
 				 [else
 				  (register-foreign-type! name type)
 				  '(##core#undefined) ] ) ) )