aboutsummaryrefslogtreecommitdiff
path: root/src/interp/i-output.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/i-output.boot')
-rw-r--r--src/interp/i-output.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/i-output.boot b/src/interp/i-output.boot
index cff0e227..bc847e3e 100644
--- a/src/interp/i-output.boot
+++ b/src/interp/i-output.boot
@@ -2424,7 +2424,7 @@ superSubApp(u, x, y, di) ==
stringer x ==
string? x => x
- EQ('_|, FETCHCHAR(s:= STRINGIMAGE x, 0)) =>
+ '_| = FETCHCHAR(s:= STRINGIMAGE x, 0) =>
RPLACSTR(s, 0, 1, "", nil, nil)
s