mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

Minor evaluator tweaks

Browse source 
* libguile/eval.c (eval): Remove unused variable.
* libguile/memoize.c (unmemoize): Fix unmemoization.
* module/ice-9/eval.scm: Attempt to speed up common box-ref cases.
This commit is contained in:
Andy Wingo 2014-12-07 19:03:19 +01:00
parent e6a42e6765
commit 5bfc0653d6
3 changed files with 23 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

13
libguile/memoize.c
View file

@ -750,10 +750,15 @@ unmemoize (const SCM expr)
unmemoize (CAR (args)),
unmemoize (CDR (args)));
case SCM_M_RESOLVE:
return (SCM_VARIABLEP (args) || scm_is_symbol (args)) ? args
: scm_list_3 (scm_is_true (CDDR (args)) ? scm_sym_at : scm_sym_atat,
scm_i_finite_list_copy (CAR (args)),
CADR (args));
if (SCM_VARIABLEP (args))
return args;
else if (scm_is_symbol (CDR (args)))
return CDR (args);
else
return scm_list_3
(scm_is_true (CDDDR (args)) ? scm_sym_at : scm_sym_atat,
scm_i_finite_list_copy (CADR (args)),
CADDR (args));
case SCM_M_CALL_WITH_PROMPT:
return scm_list_4 (scm_from_latin1_symbol ("call-with-prompt"),
unmemoize (CAR (args)),