… | |
… | |
110 | |
110 | |
111 | #ifndef USE_INTCACHE |
111 | #ifndef USE_INTCACHE |
112 | # define USE_INTCACHE 1 |
112 | # define USE_INTCACHE 1 |
113 | #endif |
113 | #endif |
114 | |
114 | |
|
|
115 | #ifndef USE_SYSTEM_MALLOC |
|
|
116 | # define USE_SYSTEM_MALLOC 1 |
|
|
117 | #endif |
|
|
118 | |
115 | #ifndef SHOW_ERROR_LINE /* Show error line in file */ |
119 | #ifndef SHOW_ERROR_LINE /* Show error line in file */ |
116 | # define SHOW_ERROR_LINE 1 |
120 | # define SHOW_ERROR_LINE 1 |
117 | #endif |
121 | #endif |
118 | |
122 | |
119 | #if !USE_REAL |
123 | #if !USE_REAL |
… | |
… | |
169 | void scheme_set_external_data (SCHEME_P_ void *p); |
173 | void scheme_set_external_data (SCHEME_P_ void *p); |
170 | SCHEME_EXPORT void scheme_define (SCHEME_P_ pointer env, pointer symbol, pointer value); |
174 | SCHEME_EXPORT void scheme_define (SCHEME_P_ pointer env, pointer symbol, pointer value); |
171 | |
175 | |
172 | typedef pointer (*foreign_func) (SCHEME_P_ pointer); |
176 | typedef pointer (*foreign_func) (SCHEME_P_ pointer); |
173 | |
177 | |
174 | pointer xcons (SCHEME_P_ pointer a, pointer b, int immutable); |
178 | //pointer xcons (SCHEME_P_ pointer a, pointer b); |
175 | INTERFACE pointer mk_integer (SCHEME_P_ IVALUE n); |
179 | INTERFACE pointer mk_integer (SCHEME_P_ IVALUE n); |
176 | INTERFACE pointer mk_real (SCHEME_P_ RVALUE n); |
180 | INTERFACE pointer mk_real (SCHEME_P_ RVALUE n); |
177 | INTERFACE pointer mk_symbol (SCHEME_P_ const char *name); |
181 | INTERFACE pointer mk_symbol (SCHEME_P_ const char *name); |
178 | INTERFACE pointer gensym (SCHEME_P); |
182 | INTERFACE pointer gensym (SCHEME_P); |
179 | INTERFACE pointer mk_string (SCHEME_P_ const char *str); |
183 | INTERFACE pointer mk_string (SCHEME_P_ const char *str); |