gforth/history.fs - diff

Return to history.fs CVS log

Up to [gforth] / gforth

version 1.9, 1996/01/07 17:22:11	version 1.10, 1996/05/09 18:13:00
Line 72 s" ~/.gforth-history" get-history	Line 72 s" ~/.gforth-history" get-history
REPEAT 2drop THEN	REPEAT 2drop THEN
tuck 2dup type 0 ;	tuck 2dup type 0 ;

: ctrl ( "<char>" -- ctrl-code )	: ctrl ( compilation: "<char>" -- ) ( run-time: -- ctrl-code )
char [char] @ - postpone Literal ; immediate	char [char] @ - postpone Literal ; immediate
	interpretation: ( "<char>" -- ctrl-code )
	char [char] @ - ;

Create lfpad #lf c,	Create lfpad #lf c,