summaryrefslogtreecommitdiff
path: root/libguile/memoize.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/memoize.c')
-rw-r--r--libguile/memoize.c5
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));
}