From 0f8c6bfd83d78260de26fc59fde0d97f3789948d Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Tue, 9 Sep 2008 19:14:56 -0500
Subject: [PATCH 1/2] fix blum blum shub tests

---
 extra/random/blum-blum-shub/blum-blum-shub-tests.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/extra/random/blum-blum-shub/blum-blum-shub-tests.factor b/extra/random/blum-blum-shub/blum-blum-shub-tests.factor
index 2a1af53232..9ace53ab25 100644
--- a/extra/random/blum-blum-shub/blum-blum-shub-tests.factor
+++ b/extra/random/blum-blum-shub/blum-blum-shub-tests.factor
@@ -8,14 +8,14 @@ IN: blum-blum-shub.tests
 ] unit-test
 
 
-[ 887708070 ] [
+[ 70576473 ] [
     T{ blum-blum-shub f 590695557939 811977232793 } clone [
         32 random-bits
         little-endian? [ <uint> reverse *uint ] unless
     ] with-random
 ] unit-test
 
-[ 5726770047455156646 ] [
+[ 5570804936418322777 ] [
     T{ blum-blum-shub f 590695557939 811977232793 } clone [
         64 random-bits
         little-endian? [ <ulonglong> 4 group [ reverse ] map concat *ulonglong ] unless

From 6d62a34ba0643aab852f5a4115c830154159a846 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Tue, 9 Sep 2008 19:16:11 -0500
Subject: [PATCH 2/2] fix regexp2

---
 unfinished/regexp2/regexp2.factor             | 2 +-
 unfinished/regexp2/traversal/traversal.factor | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/unfinished/regexp2/regexp2.factor b/unfinished/regexp2/regexp2.factor
index efc5c660de..24221baeb6 100644
--- a/unfinished/regexp2/regexp2.factor
+++ b/unfinished/regexp2/regexp2.factor
@@ -29,7 +29,7 @@ IN: regexp2
 
 : matches? ( string regexp -- ? )
     dupd match
-    [ [ length ] [ range-length 1- ] bi* = ] [ drop f ] if* ;
+    [ [ length ] [ length>> 1- ] bi* = ] [ drop f ] if* ;
 
 : match-head ( string regexp -- end ) match length>> 1- ;
 
diff --git a/unfinished/regexp2/traversal/traversal.factor b/unfinished/regexp2/traversal/traversal.factor
index a5db2cdaa8..0bc304bfe0 100644
--- a/unfinished/regexp2/traversal/traversal.factor
+++ b/unfinished/regexp2/traversal/traversal.factor
@@ -18,7 +18,7 @@ TUPLE: dfa-traverser
     matches ;
 
 : <dfa-traverser> ( text regexp -- match )
-    [ dfa-table>> ] [ traversal-flags>> ] bi
+    [ dfa-table>> ] [ dfa-traversal-flags>> ] bi
     dfa-traverser new
         swap >>traversal-flags
         swap [ start-state>> >>current-state ] keep