From a361e68f3099130fd818413003fe81f42d113920 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Sun, 8 Nov 2009 19:44:04 -0600
Subject: [PATCH] generic, words: update unit tests for deopt data structure
 change

---
 core/generic/generic-tests.factor | 3 ++-
 core/words/words-tests.factor     | 4 ++--
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/core/generic/generic-tests.factor b/core/generic/generic-tests.factor
index f5c2018e60..5a98173a89 100755
--- a/core/generic/generic-tests.factor
+++ b/core/generic/generic-tests.factor
@@ -3,7 +3,8 @@ classes.tuple classes.union compiler.units continuations
 definitions eval generic generic.math generic.standard
 hashtables io io.streams.string kernel layouts math math.order
 namespaces parser prettyprint quotations sequences sorting
-strings tools.test vectors words generic.single ;
+strings tools.test vectors words generic.single
+compiler.crossref ;
 IN: generic.tests
 
 GENERIC: foobar ( x -- y )
diff --git a/core/words/words-tests.factor b/core/words/words-tests.factor
index b9d6e80630..fec9c14830 100755
--- a/core/words/words-tests.factor
+++ b/core/words/words-tests.factor
@@ -1,7 +1,7 @@
 USING: arrays generic assocs kernel math namespaces
 sequences tools.test words definitions parser quotations
 vocabs continuations classes.tuple compiler.units
-io.streams.string accessors eval words.symbol ;
+io.streams.string accessors eval words.symbol grouping ;
 IN: words.tests
 
 [ 4 ] [
@@ -121,7 +121,7 @@ DEFER: x
 [ { } ]
 [
     all-words [
-        "compiled-uses" word-prop
+        "compiled-uses" word-prop 2 <groups>
         keys [ "forgotten" word-prop ] filter
     ] map harvest
 ] unit-test