| version 1.19, Tue Nov 7 18:06:40 1995 UTC | version 1.20, Thu Nov 9 19:37:02 1995 UTC | ||
|---|---|---|---|
|
|
||
| #include "machine.h" | #include "machine.h" | ||
| /* Forth data types */ | /* Forth data types */ | ||
| typedef int Bool; | typedef Cell Bool; | ||
| #define FLAG(b) (-(b)) | #define FLAG(b) (-(b)) | ||
| #define FILEIO(error) (FLAG(error) & -37) | #define FILEIO(error) (FLAG(error) & -37) | ||
| #define FILEEXIST(error) (FLAG(error) & -38) | #define FILEEXIST(error) (FLAG(error) & -38) |
|
||||||||
|
CVS Admin Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |