/[guile]/guile/guile-core/libguile/eval.h
ViewVC logotype

Diff of /guile/guile-core/libguile/eval.h

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

revision 1.73 by mvo, Sat Apr 5 19:10:23 2003 UTC revision 1.74 by dirk, Sun Apr 20 07:19:38 2003 UTC
# Line 105  SCM_API scm_t_bits scm_tc16_promise; Line 105  SCM_API scm_t_bits scm_tc16_promise;
105  #define SCM_EVALIM(x, env) (SCM_ILOCP (x) \  #define SCM_EVALIM(x, env) (SCM_ILOCP (x) \
106                              ? *scm_ilookup ((x), env) \                              ? *scm_ilookup ((x), env) \
107                              : SCM_EVALIM2(x))                              : SCM_EVALIM2(x))
 #ifdef DEBUG_EXTENSIONS  
108  #define SCM_XEVAL(x, env) (SCM_IMP (x) \  #define SCM_XEVAL(x, env) (SCM_IMP (x) \
109                             ? SCM_EVALIM2(x) \                             ? SCM_EVALIM2(x) \
110                             : (*scm_ceval_ptr) ((x), (env)))                             : (*scm_ceval_ptr) ((x), (env)))
# Line 114  SCM_API scm_t_bits scm_tc16_promise; Line 113  SCM_API scm_t_bits scm_tc16_promise;
113                                : (SCM_SYMBOLP (SCM_CAR (x)) \                                : (SCM_SYMBOLP (SCM_CAR (x)) \
114                                   ? *scm_lookupcar (x, env, 1) \                                   ? *scm_lookupcar (x, env, 1) \
115                                   : (*scm_ceval_ptr) (SCM_CAR (x), env)))                                   : (*scm_ceval_ptr) (SCM_CAR (x), env)))
 #else  
 #define SCM_XEVAL(x, env) (SCM_IMP (x) \  
                            ? SCM_EVALIM2(x) \  
                            : scm_ceval ((x), (env)))  
 #define SCM_XEVALCAR(x, env) EVALCAR (x, env)  
 #endif /* DEBUG_EXTENSIONS */  
116    
117  typedef SCM (*scm_t_trampoline_0) (SCM proc);  typedef SCM (*scm_t_trampoline_0) (SCM proc);
118  typedef SCM (*scm_t_trampoline_1) (SCM proc, SCM arg1);  typedef SCM (*scm_t_trampoline_1) (SCM proc, SCM arg1);

Legend:
Removed from v.1.73  
changed lines
  Added in v.1.74

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