Powered by ViewCVS 1.0-dev
| version 1.12, Wed Aug 21 14:58:41 1996 UTC | version 1.13, Mon Sep 30 13:16:11 1996 UTC | ||
|---|---|---|---|
|
|
||
| \ 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 ; | ||
|
||||||||
|
CVS Admin Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |