… | |
… | |
138 | # define SCHEME_A |
138 | # define SCHEME_A |
139 | # define SCHEME_A_ |
139 | # define SCHEME_A_ |
140 | #endif |
140 | #endif |
141 | |
141 | |
142 | typedef struct scheme scheme; |
142 | typedef struct scheme scheme; |
143 | typedef void *pointer; |
143 | //typedef void *pointer; |
|
|
144 | typedef struct cell *pointer; // for debugging, slightly worse code, surprisingly |
144 | |
145 | |
145 | typedef long IVALUE; /* this is not used consistently yet */ |
146 | typedef long IVALUE; /* this is not used consistently yet */ |
146 | #if USE_REAL |
147 | #if USE_REAL |
147 | typedef double RVALUE; |
148 | typedef double RVALUE; |
148 | #else |
149 | #else |
149 | typedef long RVALUE; |
150 | typedef IVALUE RVALUE; |
150 | #endif |
151 | #endif |
151 | |
152 | |
152 | /* Used for documentation purposes, to signal functions in 'interface' */ |
153 | /* Used for documentation purposes, to signal functions in 'interface' */ |
153 | #define INTERFACE static |
154 | #define INTERFACE static |
154 | |
155 | |