basic block optimizer bug fix

TODO.FACTOR.txt

@@ -1,6 +1,7 @@
 - remove t object and type
 - compiling string>md5 hangs
 - mersenne 42 runs out of memory
+- uncrossref: don't clear infer-effect of words with an infer quotation
 
 + ui:
 
@@ -57,7 +58,6 @@
 - floating point intrinsics
 - flushing optimization
 - fix fixnum/mod overflow on PowerPC
-- eliminate simplifier
 - intrinsic char-slot set-char-slot
 - [ [ dup call ] dup call ] infer hangs
 - the invalid recursion form case needs to be fixed, for inlines too

library/compiler/vops.factor

@@ -334,7 +334,6 @@ PREDICATE: tuple fast-branch
 TUPLE: %type ;
 C: %type make-vop ;
 : %type ( vreg ) <vreg> dest-vop <%type> ;
-M: %type basic-block? drop t ;
 
 TUPLE: %tag ;
 C: %tag make-vop ;

library/test/compiler/intrinsics.factor

@@ -167,3 +167,6 @@ math-internals test words ;
 [ 268435456 0 ] [ -268435456 >fixnum -1 [ fixnum/mod ] compile-1 ] unit-test
 
 [ t ] [ f [ f eq? ] compile-1 ] unit-test
+
+! regression
+[ t ] [ { 1 2 3 } { 1 2 3 } [ over type over type eq? ] compile-1 2nip ] unit-test

library/test/lists/cons.factor

@@ -1,6 +1,7 @@
 IN: temporary
 USE: lists
 USE: test
+USE: sequences
 
 [ f ] [ f car ] unit-test
 [ f ] [ f cdr ] unit-test