/[guile]/guile/guile-core/libguile/modules.c
ViewVC logotype

Diff of /guile/guile-core/libguile/modules.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.51 by mvo, Fri Sep 12 15:11:09 2003 UTC revision 1.52 by dirk, Sun Nov 30 12:41:34 2003 UTC
# Line 277  static SCM Line 277  static SCM
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);

Legend:
Removed from v.1.51  
changed lines
  Added in v.1.52

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26