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/eval.h | |
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/eval.h')
-rw-r--r-- | libguile/eval.h | 36 |
1 files changed, 1 insertions, 35 deletions
diff --git a/libguile/eval.h b/libguile/eval.h index 0d4223837..e02e767a1 100644 --- a/libguile/eval.h +++ b/libguile/eval.h @@ -3,7 +3,7 @@ #ifndef SCM_EVAL_H #define SCM_EVAL_H -/* Copyright (C) 1995,1996,1998,1999,2000,2001,2002,2003,2004,2008 +/* Copyright (C) 1995,1996,1998,1999,2000,2001,2002,2003,2004,2008,2009 * Free Software Foundation, Inc. * * This library is free software; you can redistribute it and/or @@ -115,40 +115,6 @@ SCM_API SCM * scm_lookupcar (SCM vloc, SCM genv, int check); SCM_API SCM scm_eval_car (SCM pair, SCM env); SCM_API SCM scm_eval_body (SCM code, SCM env); SCM_API SCM scm_eval_args (SCM i, SCM env, SCM proc); -SCM_API SCM scm_m_quote (SCM xorig, SCM env); -SCM_API SCM scm_m_begin (SCM xorig, SCM env); -SCM_API SCM scm_m_if (SCM xorig, SCM env); -SCM_API SCM scm_m_set_x (SCM xorig, SCM env); -SCM_API SCM scm_m_vref (SCM xorig, SCM env); -SCM_API SCM scm_m_vset (SCM xorig, SCM env); -SCM_API SCM scm_m_and (SCM xorig, SCM env); -SCM_API SCM scm_m_or (SCM xorig, SCM env); -SCM_API SCM scm_m_case (SCM xorig, SCM env); -SCM_API SCM scm_m_cond (SCM xorig, SCM env); -SCM_API SCM scm_m_lambda (SCM xorig, SCM env); -SCM_API SCM scm_m_letstar (SCM xorig, SCM env); -SCM_API SCM scm_m_do (SCM xorig, SCM env); -SCM_API SCM scm_m_quasiquote (SCM xorig, SCM env); -SCM_API SCM scm_m_delay (SCM xorig, SCM env); -SCM_API SCM scm_m_generalized_set_x (SCM xorig, SCM env); -SCM_API SCM scm_m_future (SCM xorig, SCM env); -SCM_API SCM scm_m_define (SCM x, SCM env); -SCM_API SCM scm_m_letrec (SCM xorig, SCM env); -SCM_API SCM scm_m_let (SCM xorig, SCM env); -SCM_API SCM scm_m_at (SCM xorig, SCM env); -SCM_API SCM scm_m_atat (SCM xorig, SCM env); -SCM_API SCM scm_m_apply (SCM xorig, SCM env); -SCM_API SCM scm_m_cont (SCM xorig, SCM env); -#if SCM_ENABLE_ELISP -SCM_API SCM scm_m_nil_cond (SCM xorig, SCM env); -SCM_API SCM scm_m_atfop (SCM xorig, SCM env); -#endif /* SCM_ENABLE_ELISP */ -SCM_API SCM scm_m_atbind (SCM xorig, SCM env); -SCM_API SCM scm_m_atslot_ref (SCM xorig, SCM env); -SCM_API SCM scm_m_atslot_set_x (SCM xorig, SCM env); -SCM_API SCM scm_m_atdispatch (SCM xorig, SCM env); -SCM_API SCM scm_m_at_call_with_values (SCM xorig, SCM env); -SCM_API SCM scm_m_eval_when (SCM xorig, SCM env); SCM_API int scm_badargsp (SCM formals, SCM args); SCM_API SCM scm_call_0 (SCM proc); SCM_API SCM scm_call_1 (SCM proc, SCM arg1); |