gforth/history.fs - diff

Return to history.fs CVS log

Up to [gforth] / gforth

version 1.70, 2008/02/12 16:44:58	version 1.71, 2008/05/07 20:38:46
Line 206 require utf-8.fs	Line 206 require utf-8.fs

[IFUNDEF] #esc 27 Constant #esc [THEN]	[IFUNDEF] #esc 27 Constant #esc [THEN]

: at-deltaxy ( dx dy -- ) base @ >r decimal	: at-deltaxy ( dx dy -- )
	over 0< over 0= and IF drop abs backspaces EXIT THEN
	base @ >r decimal
?dup IF	?dup IF
#esc emit '[ emit dup abs 0 .r 0< IF 'A ELSE 'B THEN emit	#esc emit '[ emit dup abs 0 .r 0< IF 'A ELSE 'B THEN emit
THEN	THEN