diff options
Diffstat (limited to 'src/interp/br-search.boot')
-rw-r--r-- | src/interp/br-search.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/br-search.boot b/src/interp/br-search.boot index 7bb7323a..df0a920f 100644 --- a/src/interp/br-search.boot +++ b/src/interp/br-search.boot @@ -244,7 +244,7 @@ mkUpDownPattern s == recurse(s,0,#s) where strconc(fixchar(s.i),recurse(s,i + 1,n)) fixchar(c) == alphabetic? c => - strconc('"[",CHAR_-UPCASE c,CHAR_-DOWNCASE c,'"]") + strconc('"[",charUpdate c,charDowncase c,'"]") c mkGrepPattern(s,key) == |