gforth/history.fs - diff

Return to history.fs CVS log

Up to [gforth] / gforth

version 1.74, 2010/12/31 18:09:02	version 1.75, 2011/01/01 14:33:03
Line 292 require utf-8.fs	Line 292 require utf-8.fs
r@ - >string over r@ + -rot move	r@ - >string over r@ + -rot move
rot r@ - -rot .all r@ spaces r> back-restore .rest THEN ;	rot r@ - -rot .all r@ spaces r> back-restore .rest THEN ;

	[IFUNDEF] insert
: insert ( string length buffer size -- )	: insert ( string length buffer size -- )
rot over min >r r@ - ( left over )	rot over min >r r@ - ( left over )
over dup r@ + rot move r> move ;	over dup r@ + rot move r> move ;
	[THEN]

: xtab-expand ( max span addr pos1 -- max span addr pos2 0 )	: xtab-expand ( max span addr pos1 -- max span addr pos2 0 )
key? IF #tab (xins) 0 EXIT THEN	key? IF #tab (xins) 0 EXIT THEN