diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2003-04-20 07:19:38 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2003-04-20 07:19:38 +0000 |
commit | d0f6ceb84f26b033d6f1ac8bbc2acf81efc29f22 (patch) | |
tree | 049594205b5cdd419c32f06af43ec6c3382ef85c /libguile/eval.c | |
parent | 1ac61c2b50fa64ffc7d9aa4558aecceb9f980640 (diff) | |
download | guile-d0f6ceb84f26b033d6f1ac8bbc2acf81efc29f22.tar.gz |
* Removed uses of DEBUG_EXTENSIONS and DYNAMIC_LINKING to
fix compile errors with --disable-deprecated.
Diffstat (limited to 'libguile/eval.c')
-rw-r--r-- | libguile/eval.c | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/libguile/eval.c b/libguile/eval.c index 768c80ca4..82b0e035f 100644 --- a/libguile/eval.c +++ b/libguile/eval.c @@ -401,12 +401,10 @@ SCM_GLOBAL_SYMBOL (scm_sym_uq_splicing, "unquote-splicing"); SCM scm_f_apply; -#ifdef DEBUG_EXTENSIONS SCM_GLOBAL_SYMBOL (scm_sym_enter_frame, "enter-frame"); SCM_GLOBAL_SYMBOL (scm_sym_apply_frame, "apply-frame"); SCM_GLOBAL_SYMBOL (scm_sym_exit_frame, "exit-frame"); SCM_GLOBAL_SYMBOL (scm_sym_trace, "trace"); -#endif /* Check that the body denoted by XORIG is valid and rewrite it into @@ -1284,14 +1282,10 @@ static SCM unmemocopy (SCM x, SCM env) { SCM ls, z; -#ifdef DEBUG_EXTENSIONS SCM p; -#endif if (!SCM_CONSP (x)) return x; -#ifdef DEBUG_EXTENSIONS p = scm_whash_lookup (scm_source_whash, x); -#endif switch (SCM_ITAG7 (SCM_CAR (x))) { case SCM_BIT8(SCM_IM_AND): @@ -1500,10 +1494,8 @@ loop: x = SCM_CDR (x); } SCM_SETCDR (z, x); -#ifdef DEBUG_EXTENSIONS if (!SCM_FALSEP (p)) scm_whash_insert (scm_source_whash, ls, p); -#endif return ls; } @@ -3441,7 +3433,6 @@ scm_dapply (SCM proc, SCM arg1, SCM args) SCM SCM_APPLY (SCM proc, SCM arg1, SCM args) { -#ifdef DEBUG_EXTENSIONS #ifdef DEVAL scm_t_debug_frame debug; scm_t_debug_info debug_vect_body; @@ -3455,7 +3446,6 @@ SCM_APPLY (SCM proc, SCM arg1, SCM args) if (SCM_DEBUGGINGP) return scm_dapply (proc, arg1, args); #endif -#endif SCM_ASRTGO (SCM_NIMP (proc), badproc); @@ -4487,10 +4477,8 @@ SCM_DEFINE (scm_eval, "eval", 2, 0, 0, /* At this point, scm_deval and scm_dapply are generated. */ -#ifdef DEBUG_EXTENSIONS # define DEVAL # include "eval.c" -#endif |