 : compute-merge-sets ( cfg -- )
     needs-dominance
 
-    H{ } clone visited set
+    HS{ } clone visited set
     [ compute-levels ]
     [ init-merge-sets ]
     [ compute-merge-set-loop ]
     tri ;
 
 : merge-set ( bbs -- bbs' )
-     (merge-set) [ new-sets:members ] dip nths ;
+     (merge-set) [ members ] dip nths ;
 
 : merge-set-each ( bbs quot: ( bb -- ) -- )
     [ merge-set ] dip each ; inline

    [ merge-sets get ] dip
    '[
        _
        [ merge-sets get at new-sets:union ]
        [ number>> over new-sets:adjoin ]
        bi
    ] change-at ;


    [ process-edge ] each-incoming-j-edge ;

: compute-merge-set-step ( bfo -- )
    HS{ } clone visited set
    [ process-block ] each ;

: compute-merge-set-loop ( cfg -- )
