mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-28 14:00:31 +02:00
Code Activity

Add intmap-replace!.

Browse source 
* module/language/cps/intmap.scm (intmap-replace!): New interface.

* module/language/cps2/dce.scm (elide-type-checks):
* module/language/cps2/simplify.scm (transform-conts):
* module/language/cps2/utils.scm (intmap-map):
* module/language/tree-il/compile-cps2.scm (cps-convert/thunk): Use intmap-replace!.
This commit is contained in:
Andy Wingo 2015-05-24 17:37:14 +02:00
parent ad29059ff8
commit 23379467ae
5 changed files with 50 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/language/cps2/simplify.scm
View file

@ -58,7 +58,7 @@
(let ((v* (f k v)))
(if (equal? v v*)
out
(intmap-add! out k v* (lambda (old new) new)))))
(intmap-replace! out k v*))))
conts
conts)))