From 8bb0285d95781908ccf43c68fb6e77dddcfd2957 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Wed, 7 Dec 2011 14:04:03 +0000
Subject: 	* interp/compiler.boot (compReduce1): Tidy. 	*
 interp/define.boot (compDefineCategory2): Likewise. 	* interp/nruncomp.boot
 (buildFunctor): Likewise. 	* interp/slam.boot
 (compileRecurrenceRelation): Likewise. 	* interp/lisp-backend.boot
 (expandSeq): Use PROGN in absence of EXIT.

---
 src/interp/slam.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/interp/slam.boot')

diff --git a/src/interp/slam.boot b/src/interp/slam.boot
index 1f1f7d9e..64e5159a 100644
--- a/src/interp/slam.boot
+++ b/src/interp/slam.boot
@@ -294,7 +294,7 @@ compileRecurrenceRelation(op,nam,argl,junk,[body,sharpArg,n,:initCode]) ==
     returnValue:= ["PROGN",newStateCode,first gsList]
     cbody:=
       endTest:=
-        ['%when, [["EQL",sharpArg,gIndex],['RETURN,returnValue]]]
+        ['%when, [['%ieq,sharpArg,gIndex],['RETURN,returnValue]]]
       newValueCode:= ["%LET",g,substitute(gIndex,sharpArg,
         applySubst(pairList(rest $TriangleVariableList,gsList),body))]
       ['%bind,decomposeBindings,
-- 
cgit v1.2.3