From 7bf0a46d3d02efa1aaa3dff0c5117f31d9134ec2 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Mon, 6 Apr 2009 04:16:39 -0500
Subject: [PATCH] Updating tests for method-spec removal

---
 core/classes/classes.factor           | 3 +--
 core/classes/tuple/tuple-tests.factor | 2 +-
 core/generic/generic.factor           | 3 +++
 3 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/core/classes/classes.factor b/core/classes/classes.factor
index eded33beed..ab8ba398cd 100644
--- a/core/classes/classes.factor
+++ b/core/classes/classes.factor
@@ -174,8 +174,7 @@ GENERIC: update-methods ( class seq -- )
         [ forget ] [ drop ] if
     ] [ 2drop ] if ;
 
-: forget-methods ( class -- )
-    [ implementors ] [ [ swap 2array ] curry ] bi map forget-all ;
+GENERIC: forget-methods ( class -- )
 
 GENERIC: class-forgotten ( use class -- )
 
diff --git a/core/classes/tuple/tuple-tests.factor b/core/classes/tuple/tuple-tests.factor
index fa2df4e312..6de1810a51 100644
--- a/core/classes/tuple/tuple-tests.factor
+++ b/core/classes/tuple/tuple-tests.factor
@@ -133,7 +133,7 @@ M: integer forget-robustness-generic ;
 [
     [ ] [ \ forget-robustness-generic forget ] unit-test
     [ ] [ \ forget-robustness forget ] unit-test
-    [ ] [ { forget-robustness forget-robustness-generic } forget ] unit-test
+    [ ] [ M\ forget-robustness forget-robustness-generic forget ] unit-test
 ] with-compilation-unit
 
 ! rapido found this one
diff --git a/core/generic/generic.factor b/core/generic/generic.factor
index ab0685f1d6..65a802dc2d 100644
--- a/core/generic/generic.factor
+++ b/core/generic/generic.factor
@@ -188,5 +188,8 @@ M: generic subwords
 M: generic forget*
     [ subwords forget-all ] [ call-next-method ] bi ;
 
+M: class forget-methods
+    [ implementors ] [ [ swap method ] curry ] bi map forget-all ;
+
 : xref-generics ( -- )
     all-words [ subwords [ xref ] each ] each ;