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

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

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

revision 1.290 by mvo, Sat Apr 5 19:10:23 2003 UTC revision 1.291 by dirk, Sun Apr 20 07:19:38 2003 UTC
# Line 401  SCM_GLOBAL_SYMBOL (scm_sym_uq_splicing, Line 401  SCM_GLOBAL_SYMBOL (scm_sym_uq_splicing,
401    
402  SCM scm_f_apply;  SCM scm_f_apply;
403    
 #ifdef DEBUG_EXTENSIONS  
404  SCM_GLOBAL_SYMBOL (scm_sym_enter_frame, "enter-frame");  SCM_GLOBAL_SYMBOL (scm_sym_enter_frame, "enter-frame");
405  SCM_GLOBAL_SYMBOL (scm_sym_apply_frame, "apply-frame");  SCM_GLOBAL_SYMBOL (scm_sym_apply_frame, "apply-frame");
406  SCM_GLOBAL_SYMBOL (scm_sym_exit_frame, "exit-frame");  SCM_GLOBAL_SYMBOL (scm_sym_exit_frame, "exit-frame");
407  SCM_GLOBAL_SYMBOL (scm_sym_trace, "trace");  SCM_GLOBAL_SYMBOL (scm_sym_trace, "trace");
 #endif  
408    
409    
410  /* Check that the body denoted by XORIG is valid and rewrite it into  /* Check that the body denoted by XORIG is valid and rewrite it into
# Line 1284  static SCM Line 1282  static SCM
1282  unmemocopy (SCM x, SCM env)  unmemocopy (SCM x, SCM env)
1283  {  {
1284    SCM ls, z;    SCM ls, z;
 #ifdef DEBUG_EXTENSIONS  
1285    SCM p;    SCM p;
 #endif  
1286    if (!SCM_CONSP (x))    if (!SCM_CONSP (x))
1287      return x;      return x;
 #ifdef DEBUG_EXTENSIONS  
1288    p = scm_whash_lookup (scm_source_whash, x);    p = scm_whash_lookup (scm_source_whash, x);
 #endif  
1289    switch (SCM_ITAG7 (SCM_CAR (x)))    switch (SCM_ITAG7 (SCM_CAR (x)))
1290      {      {
1291      case SCM_BIT8(SCM_IM_AND):      case SCM_BIT8(SCM_IM_AND):
# Line 1500  loop: Line 1494  loop:
1494        x = SCM_CDR (x);        x = SCM_CDR (x);
1495      }      }
1496    SCM_SETCDR (z, x);    SCM_SETCDR (z, x);
 #ifdef DEBUG_EXTENSIONS  
1497    if (!SCM_FALSEP (p))    if (!SCM_FALSEP (p))
1498      scm_whash_insert (scm_source_whash, ls, p);      scm_whash_insert (scm_source_whash, ls, p);
 #endif  
1499    return ls;    return ls;
1500  }  }
1501    
# Line 3441  scm_dapply (SCM proc, SCM arg1, SCM args Line 3433  scm_dapply (SCM proc, SCM arg1, SCM args
3433  SCM  SCM
3434  SCM_APPLY (SCM proc, SCM arg1, SCM args)  SCM_APPLY (SCM proc, SCM arg1, SCM args)
3435  {  {
 #ifdef DEBUG_EXTENSIONS  
3436  #ifdef DEVAL  #ifdef DEVAL
3437    scm_t_debug_frame debug;    scm_t_debug_frame debug;
3438    scm_t_debug_info debug_vect_body;    scm_t_debug_info debug_vect_body;
# Line 3455  SCM_APPLY (SCM proc, SCM arg1, SCM args) Line 3446  SCM_APPLY (SCM proc, SCM arg1, SCM args)
3446    if (SCM_DEBUGGINGP)    if (SCM_DEBUGGINGP)
3447      return scm_dapply (proc, arg1, args);      return scm_dapply (proc, arg1, args);
3448  #endif  #endif
 #endif  
3449    
3450    SCM_ASRTGO (SCM_NIMP (proc), badproc);    SCM_ASRTGO (SCM_NIMP (proc), badproc);
3451    
# Line 4487  SCM_DEFINE (scm_eval, "eval", 2, 0, 0, Line 4477  SCM_DEFINE (scm_eval, "eval", 2, 0, 0,
4477  /* At this point, scm_deval and scm_dapply are generated.  /* At this point, scm_deval and scm_dapply are generated.
4478   */   */
4479    
 #ifdef DEBUG_EXTENSIONS  
4480  # define DEVAL  # define DEVAL
4481  # include "eval.c"  # include "eval.c"
 #endif  
4482    
4483    
4484    

Legend:
Removed from v.1.290  
changed lines
  Added in v.1.291

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