@-messages now get the @ for the new line placed correctly.

This commit is contained in:
Fang 2016-07-28 21:38:51 +02:00
parent 8cfbd216d1
commit d11bf89811

View File

@ -840,14 +840,14 @@
?. =(64 len) advance
:- (fix(inx brk) (turf '•'))
?: isa
[[%ins +(inx) (turf '@')] newline(new &)]
[[%ins +(brk) (turf '@')] newline(new &)]
newline(new &)
?: =(64 len)
=+ dif=(sub inx brk)
?: (lth dif 64)
:- (fix(inx brk) (turf '•'))
?: isa
[[%ins (sub inx 3) (turf '@')] $(len dif, new &)]
[[%ins +(brk) (turf '@')] $(len dif, new &)]
$(len dif, new &)
[[%ins inx (turf '•')] $(len 0, inx +(inx), new &)]
?: |((lth cur 32) (gth cur 126))