diff options
author | Andy Wingo <wingo@pobox.com> | 2010-05-18 22:30:58 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2010-05-18 22:30:58 +0200 |
commit | 667361f6cec83a090d0a7e81df8e16e2aafb2403 (patch) | |
tree | 93a9903f83bd3dbe4c3ea947b4da3eeacdfa21f4 /libguile/memoize.c | |
parent | 311fbeb7c3d13e863936eb9cdfbc5e6278e832e3 (diff) | |
download | guile-667361f6cec83a090d0a7e81df8e16e2aafb2403.tar.gz |
remove the new scm_memoize_begin, etc
* libguile/memoize.h:
* libguile/memoize.c: Remove the recently-added scm_memoize_begin,
scm_memoize_lambda, et al. We'll take a different tack.
Diffstat (limited to 'libguile/memoize.c')
-rw-r--r-- | libguile/memoize.c | 165 |
1 files changed, 0 insertions, 165 deletions
diff --git a/libguile/memoize.c b/libguile/memoize.c index af529030d..8cd80f1d3 100644 --- a/libguile/memoize.c +++ b/libguile/memoize.c @@ -1350,171 +1350,6 @@ SCM_DEFINE (scm_memoizer, "memoizer", 1, 0, 0, -#define SCM_VALIDATE_MEMOIZED_LIST(n, exps) \ - { \ - SCM walk; \ - for (walk = exps; scm_is_pair (walk); walk = scm_cdr (walk)) \ - SCM_ASSERT (SCM_MEMOIZED_P (scm_car (walk)), exps, n, FUNC_NAME); \ - SCM_ASSERT (scm_is_null (walk), exps, n, FUNC_NAME); \ - } - -SCM_DEFINE (scm_memoize_begin, "memoize-begin", 1, 0, 0, - (SCM exps), "") -#define FUNC_NAME s_scm_memoize_begin -{ - SCM_VALIDATE_MEMOIZED_LIST (1, exps); - return MAKMEMO_BEGIN (exps); -} -#undef FUNC_NAME - -SCM_DEFINE (scm_memoize_if, "memoize-if", 3, 0, 0, - (SCM test, SCM then, SCM else_), "") -#define FUNC_NAME s_scm_memoize_if -{ - SCM_VALIDATE_MEMOIZED (1, test); - SCM_VALIDATE_MEMOIZED (2, then); - SCM_VALIDATE_MEMOIZED (3, else_); - return MAKMEMO_IF (test, then, else_); -} -#undef FUNC_NAME - -SCM_DEFINE (scm_memoize_lambda, "memoize-lambda", 3, 4, 0, - (SCM body, SCM nreq, SCM rest, SCM nopt, SCM kw, SCM inits, SCM alt), "") -#define FUNC_NAME s_scm_memoize_lambda -{ - SCM_VALIDATE_MEMOIZED (1, body); - if (SCM_UNBNDP (nopt)) - { - if (scm_is_true (rest)) - return MAKMEMO_LAMBDA (body, FIXED_ARITY (scm_to_uint16 (nreq))); - else - MAKMEMO_LAMBDA (body, REST_ARITY (scm_to_uint16 (nreq), rest)); - } - if (SCM_UNBNDP (kw)) - kw = SCM_BOOL_F; - if (SCM_UNBNDP (inits)) - inits = SCM_EOL; - if (SCM_UNBNDP (alt)) - alt = SCM_BOOL_F; - else - SCM_VALIDATE_MEMOIZED (7, alt); - return MAKMEMO_LAMBDA (body, - FULL_ARITY (scm_to_uint16 (nreq), rest, - scm_to_uint16 (nopt), kw, inits, alt)); - -} -#undef FUNC_NAME - -SCM_DEFINE (scm_memoize_let, "memoize-let", 2, 0, 0, - (SCM inits, SCM body), "") -#define FUNC_NAME s_scm_memoize_let -{ - SCM_VALIDATE_MEMOIZED_LIST (1, inits); - SCM_VALIDATE_MEMOIZED (2, body); - return MAKMEMO_LET (inits, body); -} -#undef FUNC_NAME - -SCM_DEFINE (scm_memoize_quote, "memoize-quote", 1, 0, 0, - (SCM exp), "") -#define FUNC_NAME s_scm_memoize_quote -{ - return MAKMEMO_QUOTE (exp); -} -#undef FUNC_NAME - -SCM_DEFINE (scm_memoize_define, "memoize-define", 2, 0, 0, - (SCM var, SCM val), "") -#define FUNC_NAME s_scm_memoize_define -{ - SCM_VALIDATE_SYMBOL (1, var); - SCM_VALIDATE_MEMOIZED (2, val); - return MAKMEMO_DEFINE (var, val); -} -#undef FUNC_NAME - -SCM_DEFINE (scm_memoize_with_fluids, "memoize-with-fluids", 3, 0, 0, - (SCM fluids, SCM vals, SCM expr), "") -#define FUNC_NAME s_scm_memoize_with_fluids -{ - SCM_VALIDATE_MEMOIZED_LIST (1, fluids); - SCM_VALIDATE_MEMOIZED_LIST (2, vals); - SCM_ASSERT (scm_ilength (fluids) == scm_ilength (vals), vals, 2, FUNC_NAME); - SCM_VALIDATE_MEMOIZED (3, expr); - return MAKMEMO_WITH_FLUIDS (fluids, vals, expr); -} -#undef FUNC_NAME - -SCM_DEFINE (scm_memoize_call, "memoize-call", 3, 0, 0, - (SCM proc, SCM nargs, SCM args), "") -#define FUNC_NAME s_scm_memoize_call -{ - SCM_VALIDATE_MEMOIZED (1, proc); - SCM_VALIDATE_MEMOIZED_LIST (3, args); - return MAKMEMO_CALL (proc, scm_to_uint16 (nargs), args); -} -#undef FUNC_NAME - -SCM_DEFINE (scm_memoize_lexical_ref, "memoize-lexical-ref", 1, 0, 0, - (SCM n), "") -#define FUNC_NAME s_scm_memoize_lexical_ref -{ - return MAKMEMO_LEX_REF (scm_to_uint16 (n)); -} -#undef FUNC_NAME - -SCM_DEFINE (scm_memoize_lexical_set, "memoize-lexical-set!", 2, 0, 0, - (SCM n, SCM val), "") -#define FUNC_NAME s_scm_memoize_lexical_set -{ - SCM_VALIDATE_MEMOIZED (1, val); - return MAKMEMO_LEX_SET (n, val); -} -#undef FUNC_NAME - -SCM_DEFINE (scm_memoize_toplevel_ref, "memoize-toplevel-ref", 1, 0, 0, - (SCM var), "") -#define FUNC_NAME s_scm_memoize_toplevel_ref -{ - SCM_VALIDATE_SYMBOL (1, var); - return MAKMEMO_TOP_REF (var); -} -#undef FUNC_NAME - -SCM_DEFINE (scm_memoize_toplevel_set, "memoize-toplevel-set!", 2, 0, 0, - (SCM var, SCM val), "") -#define FUNC_NAME s_scm_memoize_toplevel_set -{ - SCM_VALIDATE_SYMBOL (1, var); - SCM_VALIDATE_MEMOIZED (2, val); - return MAKMEMO_TOP_SET (var, val); -} -#undef FUNC_NAME - -SCM_DEFINE (scm_memoize_module_ref, "memoize-module-ref", 3, 0, 0, - (SCM mod, SCM var, SCM public), "") -#define FUNC_NAME s_scm_memoize_module_ref -{ - SCM_VALIDATE_SYMBOL (2, var); - SCM_VALIDATE_BOOL (3, public); - return MAKMEMO_MOD_REF (mod, var, public); -} -#undef FUNC_NAME - -SCM_DEFINE (scm_memoize_module_set, "memoize-module-set!", 4, 0, 0, - (SCM val, SCM mod, SCM var, SCM public), "") -#define FUNC_NAME s_scm_memoize_module_set -{ - SCM_VALIDATE_MEMOIZED (1, val); - SCM_VALIDATE_SYMBOL (3, var); - SCM_VALIDATE_BOOL (4, public); - return MAKMEMO_MOD_SET (val, mod, var, public); -} -#undef FUNC_NAME - - - - SCM_SYMBOL (sym_placeholder, "_"); static SCM unmemoize (SCM expr); |