diff options
Diffstat (limited to 'src/interp/match.boot')
| -rw-r--r-- | src/interp/match.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/match.boot b/src/interp/match.boot index 23b0924c..775049c4 100644 --- a/src/interp/match.boot +++ b/src/interp/match.boot @@ -75,7 +75,7 @@ stringPosition(s,t,startpos) == if startpos < 0 or startpos > n then error '"index out of range" if SIZE s = 0 then return startpos -- bug in STRPOS r := STRPOS(s,t,startpos,NIL) - if EQ(r,NIL) then n else r + if r = nil then n else r superMatch?(opattern,subject) == --subject assumed to be DOWNCASEd $wildCard : local := char "*" |