mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

memoize (begin foo) to foo

Browse source 
* libguile/memoize.c (memoize_sequence): Don't make a `begin' if there's
  only one form.
This commit is contained in:
Andy Wingo 2010-02-18 12:28:37 +01:00
parent 21ec0bd907
commit b5e9f3f97e
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/memoize.c
View file

@ -378,7 +378,10 @@ memoize_sequence (const SCM forms, const SCM env)
{ {
ASSERT_SYNTAX (scm_ilength (forms) >= 1, s_bad_expression, ASSERT_SYNTAX (scm_ilength (forms) >= 1, s_bad_expression,
scm_cons (scm_sym_begin, forms)); 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));
} }