gforth/history.fs - diff

Return to history.fs CVS log

Up to [gforth] / gforth

version 1.12, 1996/08/21 14:58:41	version 1.13, 1996/09/30 13:16:11
Line 56 interpret/compile: ctrl ( "<char>" -- c	Line 56 interpret/compile: ctrl ( "<char>" -- c

\ history support 16oct94py	\ history support 16oct94py

0 Value history	0 Value history \ history file fid

2Variable forward^	2Variable forward^
2Variable backward^	2Variable backward^
2Variable end^	2Variable end^

: force-open ( addr len -- handle )	: force-open ( addr len -- fid )
2dup r/w open-file 0<	2dup r/w open-file 0<
IF drop r/w create-file throw ELSE nip nip THEN ;	IF drop r/w create-file throw ELSE nip nip THEN ;