gforth/history.fs - diff

Return to history.fs CVS log

Up to [gforth] / gforth

version 1.75, 2011/01/01 14:33:03	version 1.76, 2011/01/29 21:56:47
Line 232 require utf-8.fs	Line 232 require utf-8.fs
' xcur-correct IS cur-correct	' xcur-correct IS cur-correct

: xback-restore ( u -- )	: xback-restore ( u -- )
	dup screenw @ mod 0= IF 1- 0 max THEN
	\ correction for line=screenw, no wraparound then!
screenw @ /mod negate swap negate swap at-deltaxy ;	screenw @ /mod negate swap negate swap at-deltaxy ;
: .rest ( addr pos1 -- addr pos1 )	: .rest ( addr pos1 -- addr pos1 )
linew @ xback-restore 2dup type 2dup cur-correct ;	linew @ xback-restore 2dup type 2dup cur-correct ;