aboutsummaryrefslogtreecommitdiff
path: root/src/interp/br-search.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/br-search.boot')
-rw-r--r--src/interp/br-search.boot3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/interp/br-search.boot b/src/interp/br-search.boot
index 6056dd7a..9f094a3c 100644
--- a/src/interp/br-search.boot
+++ b/src/interp/br-search.boot
@@ -603,7 +603,8 @@ stripOffSegments(s,n) ==
replaceTicksBySpaces s ==
n := -1
max := MAXINDEX s
- while (n := charPosition(char '_`,s,n + 1)) <= max repeat SETELT(s,n,char '_ )
+ while (n := charPosition(char '_`,s,n + 1)) <= max repeat
+ s.n := char " "
s
checkFilter filter ==