[Chicken-hackers] [PATCH] * eval.scm (compile): Remove failing environment lookup in ##core#set!

[megane]

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