From 00e97b8b532c80ffbe02c1291d2e96b5bc5401d4 Mon Sep 17 00:00:00 2001
From: LemonBoy <address@hidden>
Date: Sun, 28 May 2017 22:12:32 +0200
Subject: [PATCH 1/3] Do not treat internal defines as non-toplevel ones

We now treat the internal defines as if they're defined at the same
level the define-foreign-type is.

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 e73d207..e87815d 100644
--- a/core.scm
+++ b/core.scm
@@ -1221,7 +1221,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