From 720bfe378f23619ad5154276a7ea5779674361f1 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Mon, 3 Aug 2009 06:03:38 -0500 Subject: [PATCH] compiler.cfg.stacks.uninitialized: use bitand instead of min --- basis/compiler/cfg/stacks/uninitialized/uninitialized.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/compiler/cfg/stacks/uninitialized/uninitialized.factor b/basis/compiler/cfg/stacks/uninitialized/uninitialized.factor index ee60c4bd7a..97211eb8e8 100644 --- a/basis/compiler/cfg/stacks/uninitialized/uninitialized.factor +++ b/basis/compiler/cfg/stacks/uninitialized/uninitialized.factor @@ -52,7 +52,7 @@ M: insn visit-insn drop ; : finish ( -- pair ) ds-loc get rs-loc get 2array ; : (join-sets) ( seq1 seq2 -- seq ) - 2dup [ length ] bi@ max '[ _ 1 pad-tail ] bi@ [ min ] 2map ; + 2dup [ length ] bi@ max '[ _ 1 pad-tail ] bi@ [ bitand ] 2map ; : (uninitialized-locs) ( seq quot -- seq' ) [ dup length [ drop 0 = ] pusher [ 2each ] dip ] dip map ; inline