From 69ded76c66df4c30e16351411f1adbf45489ae2d Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@shill.local>
Date: Wed, 22 Jul 2009 21:10:50 -0500
Subject: [PATCH] Fixing compiler tests

---
 basis/compiler/cfg/dcn/dcn-tests.factor | 4 ++--
 basis/compiler/tests/codegen.factor     | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/basis/compiler/cfg/dcn/dcn-tests.factor b/basis/compiler/cfg/dcn/dcn-tests.factor
index 3dfaa665aa..c987d9edd2 100644
--- a/basis/compiler/cfg/dcn/dcn-tests.factor
+++ b/basis/compiler/cfg/dcn/dcn-tests.factor
@@ -24,7 +24,7 @@ compiler.cfg.dcn.rewrite ;
     [ inserting-peeks ] keep untranslate-locs keys ;
 
 : inserting-replaces' ( from to -- assoc )
-    [ inserting-replaces ] keep untranslate-locs remove-dead-stores keys ;
+    [ inserting-replaces ] keep untranslate-locs [ drop n>> 0 >= ] assoc-filter keys ;
 
 [
     V{
@@ -78,7 +78,7 @@ compiler.cfg.dcn.rewrite ;
     cfg new 0 get >>entry
     compute-predecessors
     deconcatenatize
-    check-cfg ;
+    drop ;
 
 V{ T{ ##epilogue } T{ ##return } } 0 test-bb
 
diff --git a/basis/compiler/tests/codegen.factor b/basis/compiler/tests/codegen.factor
index 9f573019c2..4494df1705 100644
--- a/basis/compiler/tests/codegen.factor
+++ b/basis/compiler/tests/codegen.factor
@@ -286,7 +286,7 @@ M: cucumber equal? "The cucumber has no equal" throw ;
 [ 4294967295 B{ 255 255 255 255 } -1 ]
 [
     -1 <int> -1 <int>
-    [ [ 0 alien-unsigned-cell swap ] [ 0 alien-signed-2 ] bi ]
+    [ [ 0 alien-unsigned-4 swap ] [ 0 alien-signed-2 ] bi ]
     compile-call
 ] unit-test