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 ; |
|
|