~ chicken-core (chicken-5) 0d7152d08c1293436c188214828b01a3276fbafe


commit 0d7152d08c1293436c188214828b01a3276fbafe
Author:     LemonBoy <thatlemon@gmail.com>
AuthorDate: Wed May 3 13:42:30 2017 +0200
Commit:     Peter Bex <peter@more-magic.net>
CommitDate: Sat May 6 13:22:11 2017 +0200

    Fix an oversight in define-external-variable handling
    
    Signed-off-by: Peter Bex <peter@more-magic.net>

diff --git a/core.scm b/core.scm
index a46f281e..e47ff648 100644
--- a/core.scm
+++ b/core.scm
@@ -1220,7 +1220,7 @@
 
 			((##core#define-external-variable)
 			 (let* ((sym (second x))
-				(ln (ln (get-line x)))
+				(ln (get-line x))
 				(name (symbol->string sym))
 				(type (third x))
 				(exported (fourth x))
Trap