diff options
Diffstat (limited to 'src/interp')
-rw-r--r-- | src/interp/br-con.boot | 2 | ||||
-rw-r--r-- | src/interp/nrungo.boot | 7 |
2 files changed, 4 insertions, 5 deletions
diff --git a/src/interp/br-con.boot b/src/interp/br-con.boot index 5c84cc7c..117ed0a3 100644 --- a/src/interp/br-con.boot +++ b/src/interp/br-con.boot @@ -1295,7 +1295,7 @@ PUT('Enumeration, 'documentation, substitute(MESSAGE, 'MESSAGE, '( (constructor (NIL MESSAGE)) (_= (((Boolean) _$ _$) "\spad{e = f} tests for equality of two enumerations \spad{e} and \spad{f}")) - (_^_= (((Boolean) _$ _$) + (_~_= (((Boolean) _$ _$) "\spad{e ^= f} tests that two enumerations \spad{e} and \spad{f} are nont equal")) (coerce (((OutputForm) _$) "\spad{coerce(e)} returns a representation of enumeration \spad{r} as an output form") 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) => |