From 719d72dc2ef5f2de9c1b62a5f0e9cc8412c145cb Mon Sep 17 00:00:00 2001
From: LemonBoy <address@hidden>
Date: Wed, 14 Jun 2017 21:28:52 +0200
Subject: [PATCH 1/2] 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 <address@hidden>
---
 core.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/core.scm b/core.scm
index e6f3c39..2dccf48 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) ] ) ) )
-- 
2.1.4