aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/ChangeLog4
-rw-r--r--src/interp/c-util.boot2
2 files changed, 5 insertions, 1 deletions
diff --git a/src/ChangeLog b/src/ChangeLog
index f9eca4ff..8b31055d 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2009-08-17 Gabriel Dos Reis <gdr@cs.tamu.edu>
+
+ * interp/c-util.boot (deltaContour): Fix thinko.
+
2009-08-16 Gabriel Dos Reis <gdr@cs.tamu.edu>
* interp/compiler.boot (compAtom): Don't single out "nil".
diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot
index 4f5cf5ae..91bafd3e 100644
--- a/src/interp/c-util.boot
+++ b/src/interp/c-util.boot
@@ -272,7 +272,7 @@ intersectionEnvironment(e,e') ==
--$ie:= e'' this line is for debugging purposes only
deltaContour([[c,:cl],:el],[[c',:cl'],:el']) ==
- ^el=el' => systemError '"deltaContour" --a cop out for now
+ not EQ(el,el') => systemError '"deltaContour" --a cop out for now
eliminateDuplicatePropertyLists contourDifference(c,c') where
contourDifference(c,c') == [first x for x in tails c while (x~=c')]
eliminateDuplicatePropertyLists contour ==