diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-09-22 17:43:57 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-09-22 17:43:57 +0000 |
commit | f151f912939a555a27ab29cfd1127bb36fa4bbc2 (patch) | |
tree | 449ff8955e6815d76ea472d0e691713a497cc97f /libguile/eval.c | |
parent | 86c991c2a202c1d06caa5f01ec5d36a07a19bb96 (diff) | |
download | guile-f151f912939a555a27ab29cfd1127bb36fa4bbc2.tar.gz |
* Eliminated some more calls to SCM_CHARS.
Diffstat (limited to 'libguile/eval.c')
-rw-r--r-- | libguile/eval.c | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/libguile/eval.c b/libguile/eval.c index effa23b56..eb10b3459 100644 --- a/libguile/eval.c +++ b/libguile/eval.c @@ -900,16 +900,6 @@ scm_m_define (SCM x, SCM env) } #endif arg1 = scm_sym2vcell (proc, scm_env_top_level (env), SCM_BOOL_T); -#if 0 -#ifndef SCM_RECKLESS - if (SCM_NIMP (SCM_CDR (arg1)) && (SCM_SNAME (SCM_CDR (arg1)) == proc) - && (SCM_CDR (arg1) != x)) - scm_warn ("redefining built-in ", SCM_CHARS (proc)); - else -#endif - if (5 <= scm_verbose && SCM_UNDEFINED != SCM_CDR (arg1)) - scm_warn ("redefining ", SCM_CHARS (proc)); -#endif SCM_SETCDR (arg1, x); #ifdef SICP return scm_cons2 (scm_sym_quote, SCM_CAR (arg1), SCM_EOL); |