From fff39e1aa5df70a65e78a3d49d6d841f58bafde7 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Wed, 21 Dec 2011 20:15:57 -0500 Subject: [PATCH] peval minor tweak * module/language/tree-il/peval.scm (peval): Record residual values in both value and values contexts. No test cases, it just seemed like a good idea. --- module/language/tree-il/peval.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/module/language/tree-il/peval.scm b/module/language/tree-il/peval.scm index e744d8d19..dcdf189a2 100644 --- a/module/language/tree-il/peval.scm +++ b/module/language/tree-il/peval.scm @@ -445,7 +445,7 @@ top-level bindings from ENV and return the resulting expression." (define* (residualize-lexical op #:optional ctx val) (log 'residualize op) (set-operand-residualize?! op #t) - (if (eq? ctx 'value) + (if (memq ctx '(value values)) (set-operand-residual-value! op val)) (make-lexical-ref #f (var-name (operand-var op)) (operand-sym op)))