From f099cd5b4c61f1793f744b8eaac8dbce8bdf3b5a Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sun, 25 Sep 2011 17:12:32 -0700
Subject: [PATCH] classes.tuple: adding test cases for error-class and support
forget-class.
---
core/classes/tuple/tuple-tests.factor | 4 ++++
core/classes/tuple/tuple.factor | 4 ++++
2 files changed, 8 insertions(+)
diff --git a/core/classes/tuple/tuple-tests.factor b/core/classes/tuple/tuple-tests.factor
index 5ea14999ed..45af82ea83 100644
--- a/core/classes/tuple/tuple-tests.factor
+++ b/core/classes/tuple/tuple-tests.factor
@@ -631,12 +631,16 @@ DEFER: error-y
[ f ] [ \ error-y tuple-class? ] unit-test
+[ f ] [ \ error-y error-class? ] unit-test
+
[ t ] [ \ error-y generic? ] unit-test
[ ] [ "IN: classes.tuple.tests ERROR: error-y ;" eval( -- ) ] unit-test
[ t ] [ \ error-y tuple-class? ] unit-test
+[ t ] [ \ error-y error-class? ] unit-test
+
[ f ] [ \ error-y generic? ] unit-test
[ ] [
diff --git a/core/classes/tuple/tuple.factor b/core/classes/tuple/tuple.factor
index ab61fa6c37..ed62956f5d 100644
--- a/core/classes/tuple/tuple.factor
+++ b/core/classes/tuple/tuple.factor
@@ -293,6 +293,10 @@ M: tuple-class (define-tuple-class)
PREDICATE: error-class < tuple-class
"error-class" word-prop ;
+M: error-class reset-class
+ [ "error-class" remove-word-prop ]
+ [ call-next-method ] bi ;
+
: define-error-class ( class superclass slots -- )
error-slots {
[ define-tuple-class ]