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

intset-union fast paths

Browse source 
* module/language/cps/intset.scm (intset-union): Add fast paths for
  union with empty intset.
This commit is contained in:
Andy Wingo 2015-07-13 11:02:29 +02:00
parent 1bb7a7fa7a
commit 47a4727b78
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -508,6 +508,8 @@
(match (cons a b)
((($ <intset> a-min a-shift a-root) . ($ <intset> b-min b-shift b-root))
(cond
((not b-root) a)
((not a-root) b)
((not (= b-shift a-shift))
;; Hoist the set with the lowest shift to meet the one with the
;; higher shift.