diff options
Diffstat (limited to 'src/interp/match.boot')
-rw-r--r-- | src/interp/match.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/match.boot b/src/interp/match.boot index b660e72c..c9addf40 100644 --- a/src/interp/match.boot +++ b/src/interp/match.boot @@ -74,7 +74,7 @@ stringPosition(s,t,startpos) == n := # t if startpos < 0 or startpos > n then error '"index out of range" if # s = 0 then return startpos -- bug in STRPOS - r := STRPOS(s,t,startpos,NIL) + r := STRPOS(s,t,startpos,nil) if r = nil then n else r superMatch?(opattern,subject) == --subject assumed to be DOWNCASEd @@ -178,7 +178,7 @@ basicMatch?(pattern,target) == matchSegment?(pattern,subject,k) == matchAnySegment?(pattern,DOWNCASE subject,k,nil) -matchAnySegment?(pattern,target,k,nc) == --k = start position; nc=#chars or NIL +matchAnySegment?(pattern,target,k,nc) == --k = start position; nc=#chars or nil n := #pattern p := charPosition($wildCard,pattern,0) p = n => |