diff options
Diffstat (limited to 'libguile/memoize.c')
-rw-r--r-- | libguile/memoize.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/libguile/memoize.c b/libguile/memoize.c index 0e2571d5c..d209a86b8 100644 --- a/libguile/memoize.c +++ b/libguile/memoize.c @@ -378,7 +378,10 @@ memoize_sequence (const SCM forms, const SCM env) { ASSERT_SYNTAX (scm_ilength (forms) >= 1, s_bad_expression, scm_cons (scm_sym_begin, forms)); - return MAKMEMO_BEGIN (memoize_exprs (forms, env)); + if (scm_is_null (CDR (forms))) + return memoize (CAR (forms), env); + else + return MAKMEMO_BEGIN (memoize_exprs (forms, env)); } |