classes.tuple: error-class should call-next-method before resetting itself.

2011-09-26 11:54:55 -07:00 · 2011-09-26 11:54:55 -07:00 · 86923107db
parent b7813ed084
commit 86923107db
1 changed files with 1 additions and 2 deletions
--- a/core/classes/tuple/tuple.factor
+++ b/core/classes/tuple/tuple.factor
@ -294,8 +294,7 @@ PREDICATE: error-class < tuple-class
    "error-class" word-prop ;

 M: error-class reset-class
-    [ "error-class" remove-word-prop ]
-    [ call-next-method ] bi ;
+    [ call-next-method ] [ "error-class" remove-word-prop ] bi ;

 : define-error-class ( class superclass slots -- )
    error-slots {