277 |
module_variable (SCM module, SCM sym) |
module_variable (SCM module, SCM sym) |
278 |
{ |
{ |
279 |
#define SCM_BOUND_THING_P(b) \ |
#define SCM_BOUND_THING_P(b) \ |
280 |
(!SCM_FALSEP(b) && \ |
(SCM_VARIABLEP (b) && !SCM_UNBNDP (SCM_VARIABLE_REF (b))) |
|
(!SCM_VARIABLEP(b) || !SCM_UNBNDP (SCM_VARIABLE_REF (b)))) |
|
281 |
|
|
282 |
/* 1. Check module obarray */ |
/* 1. Check module obarray */ |
283 |
SCM b = scm_hashq_ref (SCM_MODULE_OBARRAY (module), sym, SCM_UNDEFINED); |
SCM b = scm_hashq_ref (SCM_MODULE_OBARRAY (module), sym, SCM_UNDEFINED); |