summaryrefslogtreecommitdiff
path: root/module/language
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2011-12-21 20:15:57 -0500
committerAndy Wingo <wingo@pobox.com>2011-12-21 20:15:57 -0500
commitfff39e1aa5df70a65e78a3d49d6d841f58bafde7 (patch)
treed788e3ef934641737d9cffa4cd6be1f2a6b3b1bd /module/language
parentdc65d1cf5b59daafdff23d48a48da7f13982efc9 (diff)
downloadguile-fff39e1aa5df70a65e78a3d49d6d841f58bafde7.tar.gz
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.
Diffstat (limited to 'module/language')
-rw-r--r--module/language/tree-il/peval.scm2
1 files changed, 1 insertions, 1 deletions
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)))