version 1.45, 2006/02/19 15:13:38
|
version 1.46, 2006/02/19 17:27:12
|
Line 73 defer back-restore ( u -- )
|
Line 73 defer back-restore ( u -- )
|
' backspaces is back-restore |
' backspaces is back-restore |
|
|
: clear-line ( max span addr pos1 -- max addr ) |
: clear-line ( max span addr pos1 -- max addr ) |
back-restore over spaces swap back-restore ; |
back-restore over over swap x-width spaces swap back-restore ; |
|
|
\ : clear-tib ( max span addr pos -- max 0 addr 0 false ) |
\ : clear-tib ( max span addr pos -- max 0 addr 0 false ) |
\ clear-line 0 tuck dup ; |
\ clear-line 0 tuck dup ; |