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