| hist-pos forward^ 2! |
hist-pos forward^ 2! |
| tuck 2dup type 0 ; |
tuck 2dup type 0 ; |
| |
|
| : prev-line ( max span addr pos1 -- max span addr pos2 false ) |
: find-prev-line ( max addr -- max span addr pos2 ) |
| clear-line backward^ 2@ forward^ 2! |
backward^ 2@ forward^ 2! |
| over 2 + negate s>d backward^ 2@ d+ 0. dmax 2dup hist-setpos |
over 2 + negate s>d backward^ 2@ d+ 0. dmax 2dup hist-setpos |
| BEGIN |
BEGIN |
| backward^ 2! 2dup get-line WHILE |
backward^ 2! 2dup get-line WHILE |
| hist-pos 2dup forward^ 2@ d< WHILE |
hist-pos 2dup forward^ 2@ d< WHILE |
| rot drop |
rot drop |
| REPEAT 2drop THEN |
REPEAT 2drop THEN tuck ; |
| tuck 2dup type 0 ; |
|
| |
: prev-line ( max span addr pos1 -- max span addr pos2 false ) |
| |
clear-line find-prev-line 2dup type 0 ; |
| |
|
| Create lfpad #lf c, |
Create lfpad #lf c, |
| |
|
