From cc748e363c46f17de6eee6e2fdf99fff3c340346 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Wed, 27 Oct 2010 19:36:50 +0000
Subject: 	* interp/c-util.boot (makeCommonEnvironment): Use list node
 pointer 	comparaison, not object comparaison.

---
 src/interp/c-util.boot | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'src/interp')

diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot
index e6926855..7904dc77 100644
--- a/src/interp/c-util.boot
+++ b/src/interp/c-util.boot
@@ -303,7 +303,6 @@ intersectionEnvironment(e,e') ==
   ce:= makeCommonEnvironment(e,e')
   ic:= intersectionContour(deltaContour(e,ce),deltaContour(e',ce))
   e'':= (ic => addContour(ic,ce); ce)
-  --$ie:= e''   this line is for debugging purposes only
  
 deltaContour([[c,:cl],:el],[[c',:cl'],:el']) ==
   not EQ(el,el') => systemError '"deltaContour" --a cop out for now
@@ -394,16 +393,17 @@ addContour(c,E is [cur,:tail]) ==
         [c]
  
 makeCommonEnvironment(e,e') ==
-  interE makeSameLength(e,e') where  --$ie:=
+  interE makeSameLength(e,e') where
     interE [e,e'] ==
-      rest e=rest e' => [interLocalE makeSameLength(first e,first e'),:rest e]
+      EQ(rest e,rest e') =>
+        [interLocalE makeSameLength(first e,first e'),:rest e]
       interE [rest e,rest e']
     interLocalE [le,le'] ==
-      rest le=rest le' =>
+      EQ(rest le,rest le') =>
         [interC makeSameLength(first le,first le'),:rest le]
       interLocalE [rest le,rest le']
     interC [c,c'] ==
-      c=c' => c
+      EQ(c,c') => c
       interC [rest c,rest c']
     makeSameLength(x,y) ==
       fn(x,y,#x,#y) where
-- 
cgit v1.2.3