mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-21 12:10:26 +02:00
Code Activity

minor peval style tweak

Browse source 
* module/language/tree-il/optimize.scm (peval): Minor refactor to
  <lexical-ref> copy propagation.
This commit is contained in:
Andy Wingo 2011-09-22 12:26:02 +02:00
parent c829531a46
commit dd7ab5d8a4
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/optimize.scm
View file

@ -436,7 +436,7 @@ it does not handle <fix> and <let-values>, it should be called before
(($ <lexical-ref> _ _ gensym) (($ <lexical-ref> _ _ gensym)
;; Propagate only pure expressions. ;; Propagate only pure expressions.
(let ((val (lookup gensym))) (let ((val (lookup gensym)))
(or (and (pure-expression? val) val) exp))) (if (pure-expression? val) val exp)))
;; Lexical set! causes a bailout. ;; Lexical set! causes a bailout.
(($ <let> src names gensyms vals body) (($ <let> src names gensyms vals body)
(let* ((vals* (map (cut loop <> env calls) vals)) (let* ((vals* (map (cut loop <> env calls) vals))