gforth/history.fs - diff

Return to history.fs CVS log

Up to [gforth] / gforth

version 1.56, 2007/06/16 20:47:00	version 1.57, 2007/06/17 19:26:42
Line 214 Variable curpos	Line 214 Variable curpos
: cursor@ ( -- n ) at-xy? form nip * + ;	: cursor@ ( -- n ) at-xy? form nip * + ;
: cursor! ( n -- ) form nip /mod at-xy ;	: cursor! ( n -- ) form nip /mod at-xy ;
: xcur-correct ( addr u -- )	: xcur-correct ( addr u -- )
cygwin? IF 2drop EXIT THEN	cygwin? curpos @ -1 = or IF 2drop EXIT THEN
x-width curpos @ + cursor@ -	x-width curpos @ + cursor@ -
form nip >r r@ 2/ + r@ / r> * negate curpos +! ;	form nip >r r@ 2/ + r@ / r> * negate curpos +! ;
: save-cursor ( -- )	: save-cursor ( -- )