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

peval minor tweak

Browse source 
* 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.
This commit is contained in:
Andy Wingo 2011-12-21 20:15:57 -05:00
parent dc65d1cf5b
commit fff39e1aa5
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/language/tree-il/peval.scm
View file

@ -445,7 +445,7 @@ top-level bindings from ENV and return the resulting expression."
(define* (residualize-lexical op #:optional ctx val) (define* (residualize-lexical op #:optional ctx val)
(log 'residualize op) (log 'residualize op)
(set-operand-residualize?! op #t) (set-operand-residualize?! op #t)
(if (eq? ctx 'value) (if (memq ctx '(value values))
(set-operand-residual-value! op val)) (set-operand-residual-value! op val))
(make-lexical-ref #f (var-name (operand-var op)) (operand-sym op))) (make-lexical-ref #f (var-name (operand-var op)) (operand-sym op)))