105 |
? scm_misc_error (NULL, scm_s_expression, SCM_EOL), 0 \ |
? scm_misc_error (NULL, scm_s_expression, SCM_EOL), 0 \ |
106 |
: 0), \ |
: 0), \ |
107 |
(x)) |
(x)) |
|
#ifdef MEMOIZE_LOCALS |
|
108 |
#define SCM_EVALIM(x, env) (SCM_ILOCP (x) \ |
#define SCM_EVALIM(x, env) (SCM_ILOCP (x) \ |
109 |
? *scm_ilookup ((x), env) \ |
? *scm_ilookup ((x), env) \ |
110 |
: SCM_EVALIM2(x)) |
: SCM_EVALIM2(x)) |
|
#else |
|
|
#define SCM_EVALIM(x, env) SCM_EVALIM2(x) |
|
|
#endif |
|
111 |
#ifdef DEBUG_EXTENSIONS |
#ifdef DEBUG_EXTENSIONS |
112 |
#define SCM_XEVAL(x, env) (SCM_IMP (x) \ |
#define SCM_XEVAL(x, env) (SCM_IMP (x) \ |
113 |
? SCM_EVALIM2(x) \ |
? SCM_EVALIM2(x) \ |