diff options
Diffstat (limited to 'src/interp/i-output.boot')
| -rw-r--r-- | src/interp/i-output.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/i-output.boot b/src/interp/i-output.boot index 75264e8c..26abb4d7 100644 --- a/src/interp/i-output.boot +++ b/src/interp/i-output.boot @@ -2351,7 +2351,7 @@ bracketagglist(u, start, linelength, tchr, open, close) == true => ((nextu := lastx); PREDECESSOR(lastx, u).rest := nil) for x in tails u repeat x.first := ['CONCAT, first x, tchr] - if null nextu then LAST(u).rest.rest.first := close + if null nextu then last(u).rest.rest.first := close x := ASSOCIATER('CONCAT, [ichr,:u]) charybdis(ASSOCIATER('CONCAT, u), start, linelength) newlineIfDisplaying() @@ -2424,7 +2424,7 @@ superSubApp(u, x, y, di) == stringer x == string? x => x - '_| = FETCHCHAR(s:= STRINGIMAGE x, 0) => + char "|" = stringChar(s := STRINGIMAGE x, 0) => RPLACSTR(s, 0, 1, "", nil, nil) s |