diff options
Diffstat (limited to 'src/interp/modemap.boot')
| -rw-r--r-- | src/interp/modemap.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/modemap.boot b/src/interp/modemap.boot index 9f0b5be0..d7f7f221 100644 --- a/src/interp/modemap.boot +++ b/src/interp/modemap.boot @@ -180,7 +180,7 @@ mkNewModemapList(mc,sig,pred,fn,curModemapList,e,filenameOrNil) == (oldMap:= assoc(map,curModemapList)) and oldMap is [.,[opred, =fn],:.] => $forceAdd => mergeModemap(entry,curModemapList,e) opred=true => curModemapList - if pred^=true and pred^=opred then pred:= ["OR",pred,opred] + if pred ~= true and pred ~= opred then pred:= ["OR",pred,opred] [if x=oldMap then [map,[pred,fn],:filenameOrNil] else x --if new modemap less general, put at end; otherwise, at front |