diff options
author | Ludovic Courtès <ludo@gnu.org> | 2009-08-13 23:08:35 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2009-08-13 23:30:49 +0200 |
commit | 4d0949ea45c46dd13e767a8a3342d02caef1b483 (patch) | |
tree | f3cf86df75337bdafa5a5a7d3818202ce279d844 /libguile/goops.c | |
parent | d785171115bb35c6e3cc3663a0023ff4e88536d5 (diff) | |
download | guile-4d0949ea45c46dd13e767a8a3342d02caef1b483.tar.gz |
Make the evaluator's memoizers private.
* libguile/eval.c (macroexp): Move upwards.
(scm_m_quote, scm_m_begin, scm_m_if, scm_m_set_x, scm_m_and, scm_m_or,
scm_m_case, scm_m_cond, scm_m_lambda, scm_m_letstar, scm_m_do,
scm_m_quasiquote, scm_m_delay, scm_m_generalized_set_x,
scm_m_define, scm_m_letrec, scm_m_let, scm_m_at, scm_m_atat,
scm_m_apply, scm_m_cont, scm_m_nil_cond, scm_m_atfop,
scm_m_atbind, scm_m_atslot_ref, scm_m_atslot_set_x,
scm_m_at_call_with_values, scm_m_eval_when): New static
declarations; definitions made static.
(s_atslot_ref, s_atslot_set_x): New, from `goops.c'.
* libguile/eval.h (scm_m_quote, scm_m_begin, scm_m_if, scm_m_set_x,
scm_m_vref, scm_m_vset, scm_m_and, scm_m_or, scm_m_case, scm_m_cond,
scm_m_lambda, scm_m_letstar, scm_m_do, scm_m_quasiquote, scm_m_delay,
scm_m_generalized_set_x, scm_m_future, scm_m_define, scm_m_letrec,
scm_m_let, scm_m_at, scm_m_atat, scm_m_apply, scm_m_cont,
scm_m_nil_cond, scm_m_atfop, scm_m_atbind, scm_m_atslot_ref,
scm_m_atslot_set_x, scm_m_atdispatch, scm_m_at_call_with_values,
scm_m_eval_when): Remove public declarations.
* libguile/goops.c (s_atslot_ref, s_atslot_set_x): Remove.
Diffstat (limited to 'libguile/goops.c')
-rw-r--r-- | libguile/goops.c | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/libguile/goops.c b/libguile/goops.c index 1548472cb..c286dbe4c 100644 --- a/libguile/goops.c +++ b/libguile/goops.c @@ -1256,10 +1256,7 @@ SCM_DEFINE (scm_sys_fast_slot_set_x, "%fast-slot-set!", 3, 0, 0, #undef FUNC_NAME -SCM_SYNTAX (s_atslot_ref, "@slot-ref", scm_i_makbimacro, scm_m_atslot_ref); -SCM_SYNTAX (s_atslot_set_x, "@slot-set!", scm_i_makbimacro, scm_m_atslot_set_x); - - + /** Utilities **/ /* In the future, this function will return the effective slot |