gforth/history.fs - diff

Return to history.fs CVS log

Up to [gforth] / gforth

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 ;