diff options
Diffstat (limited to 'src/interp/nrungo.boot')
-rw-r--r-- | src/interp/nrungo.boot | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/interp/nrungo.boot b/src/interp/nrungo.boot index cefb3dbd..fd7c9b99 100644 --- a/src/interp/nrungo.boot +++ b/src/interp/nrungo.boot @@ -346,10 +346,9 @@ NRTisRecurrenceRelation(op,body,minivectorName) == (CONTAINED('throwMessage,mess) or CONTAINED('throwKeyedMsg,mess)))] integer := EVALFUN $Integer - iequalSlot:=compiledLookupCheck("=",'((Boolean) $ $),integer) - lesspSlot:=compiledLookupCheck("<",'((Boolean) $ $),integer) - bf := $Boolean - notpSlot:= compiledLookupCheck("not",'((Boolean)(Boolean)),EVALFUN bf) + iequalSlot:=compiledLookupCheck("=",[$Boolean,"$","$"],integer) + lesspSlot:=compiledLookupCheck("<",[$Boolean,"$","$"],integer) + notpSlot:= compiledLookupCheck("not",["$","$"],EVALFUN $Boolean) for [p,c] in pcl repeat p is ['SPADCALL,sharpVar,n1,['ELT,=minivectorName,slot]] and EQ(iequalSlot,$minivector.slot) => |