~ 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