mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 14:21:10 +02:00
Code Activity

* Eliminated some more calls to SCM_CHARS.

Browse source
This commit is contained in:
Dirk Herrmann 2000-09-22 17:43:57 +00:00
parent 86c991c2a2
commit f151f91293
4 changed files with 11 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/ChangeLog
View file

@ -1,3 +1,11 @@
2000-09-22 Dirk Herrmann <D.Herrmann@tu-bs.de>
* eval.c (scm_m_define), evalext.c (scm_m_undefine): Removed dead
code.
* gc.c (scm_gc_sweep): Use SCM_STRING_CHARS or SCM_SYMBOL_CHARS
instead of SCM_CHARS.
2000-09-22 Dirk Herrmann <D.Herrmann@tu-bs.de>
* backtrace.c (display_frame_expr), environments.c

10
libguile/eval.c
View file

@ -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);

9
libguile/evalext.c
View file

@ -134,15 +134,6 @@ scm_m_undefine (SCM x, SCM env)
arg1 = scm_sym2vcell (x, scm_env_top_level (env), SCM_BOOL_F);
SCM_ASSYNT (SCM_NFALSEP (arg1) && !SCM_UNBNDP (SCM_CDR (arg1)),
x, "variable already unbound ", s_undefine);
#if 0
#ifndef SCM_RECKLESS
if (SCM_NIMP (SCM_CDR (arg1)) && ((SCM) SCM_SNAME (SCM_CDR (arg1)) == x))
scm_warn ("undefining built-in ", SCM_CHARS (x));
else
#endif
if (5 <= scm_verbose && SCM_UNDEFINED != SCM_CDR (arg1))
scm_warn ("redefining ", SCM_CHARS (x));
#endif
SCM_SETCDR (arg1, SCM_UNDEFINED);
#ifdef SICP
return SCM_CAR (arg1);

5
libguile/gc.c
View file

@ -1650,10 +1650,11 @@ scm_gc_sweep ()
break;
case scm_tc7_string:
m += SCM_HUGE_LENGTH (scmptr) + 1;
goto freechars;
scm_must_free (SCM_STRING_CHARS (scmptr));
break;
case scm_tc7_symbol:
m += SCM_LENGTH (scmptr) + 1;
scm_must_free (SCM_CHARS (scmptr));
scm_must_free (SCM_SYMBOL_CHARS (scmptr));
break;
case scm_tc7_contin:
m += SCM_LENGTH (scmptr) * sizeof (SCM_STACKITEM) + sizeof (scm_contregs);