mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-22 19:44:10 +02:00
Code Activity

Reorganizing of intset/intmap helper functions

Browse source 
* module/language/cps2/split-rec.scm (intmap-keys): Move to utils.
* module/language/cps2/utils.scm (trivial-intset): New function.
  (intmap-keys, invert-bijection, invert-partition): New functions.
This commit is contained in:
Andy Wingo 2015-07-13 11:01:43 +02:00
parent dbe6247acf
commit 1bb7a7fa7a
2 changed files with 30 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/language/cps2/split-rec.scm
View file

@ -105,10 +105,6 @@ references."
(persistent-intset defs)))))))
(visit-fun kfun))
(define (intmap-keys map)
(persistent-intset
(intmap-fold (lambda (k v keys) (intset-add! keys k)) map empty-intset)))
(define (compute-sorted-strongly-connected-components edges)
(define nodes
(intmap-keys edges))