aboutsummaryrefslogtreecommitdiff
path: root/src/interp/nrungo.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/nrungo.boot')
-rw-r--r--src/interp/nrungo.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/nrungo.boot b/src/interp/nrungo.boot
index 99c302e2..cefb3dbd 100644
--- a/src/interp/nrungo.boot
+++ b/src/interp/nrungo.boot
@@ -348,7 +348,7 @@ NRTisRecurrenceRelation(op,body,minivectorName) ==
integer := EVALFUN $Integer
iequalSlot:=compiledLookupCheck("=",'((Boolean) $ $),integer)
lesspSlot:=compiledLookupCheck("<",'((Boolean) $ $),integer)
- bf := '(Boolean)
+ bf := $Boolean
notpSlot:= compiledLookupCheck("not",'((Boolean)(Boolean)),EVALFUN bf)
for [p,c] in pcl repeat
p is ['SPADCALL,sharpVar,n1,['ELT,=minivectorName,slot]]