[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Chicken-hackers] [PATCH] * eval.scm (compile): Remove failing environme
From: |
megane |
Subject: |
[Chicken-hackers] [PATCH] * eval.scm (compile): Remove failing environment lookup in ##core#set! |
Date: |
Fri, 03 Aug 2018 14:43:29 +0300 |
User-agent: |
mu4e 1.0; emacs 25.1.1 |
Hi,
Here's a small simplification.
>From 1b1a40c347789e3aa01ce6b2a8f596cf15f9c7f0 Mon Sep 17 00:00:00 2001
From: megane <address@hidden>
Date: Fri, 3 Aug 2018 13:54:05 +0300
Subject: [PATCH] * eval.scm (compile): Remove failing environment lookup in
##core#set!
The x is the full expression (e.g. '(##core#set! foo bar)) which
should never be in the syntax environment.
---
eval.scm | 3 +--
1 file changed, 1 insertion(+), 2 deletions(-)
diff --git a/eval.scm b/eval.scm
index f1c5bb6..c5f5471 100644
--- a/eval.scm
+++ b/eval.scm
@@ -263,8 +263,7 @@
((symbol? (cdr a))))
(##sys#notice "assignment to
imported value binding" var)))
(let ((var
- (cond ((assq x
(##sys#current-environment)) j) ;XXX this looks wrong
- ((not static)
+ (cond ((not static)
(##sys#alias-global-hook j
#t cntr))
(else #f))))
(if (not var) ; static
--
2.7.4
- [Chicken-hackers] [PATCH] * eval.scm (compile): Remove failing environment lookup in ##core#set!,
megane <=