From af30063d5eeccae1e96ff9745e85f5dd7f55865c 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.
---
 core.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/core.scm b/core.scm
index e73d207c..9168c2b2 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) ] ) ) )
@@ -1229,7 +1229,7 @@
 			((##core#define-external-variable)
 			 (let* ((sym (second x))
 				(ln (get-line x))
-				(name (symbol->string sym))
+			 	(name (symbol->string sym))
 				(type (third x))
 				(exported (fourth x))
 				(rname (make-random-name)) )
-- 
2.13.0