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

Fix typo causing performance problems!!!

Browse source 
* module/language/cps/cse.scm (eliminate-common-subexpressions-in-fun):
  Amazingly this typo causes Guile to be 10% slower or so.  Fixed!
This commit is contained in:
Andy Wingo 2020-05-29 16:59:08 +02:00
parent 4c59ff7e95
commit 411954c961
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/language/cps/cse.scm
View file

@ -503,7 +503,7 @@ false. It could be that both true and false proofs are available."
(define (visit-term label names vars term out substs analysis) (define (visit-term label names vars term out substs analysis)
(let ((term (rename-uses term substs)) (let ((term (rename-uses term substs))
(analyis (propagate-analysis analysis label out))) (analysis (propagate-analysis analysis label out)))
(match term (match term
(($ $branch) (($ $branch)
;; Can only forward predecessors if this continuation binds no ;; Can only forward predecessors if this continuation binds no