Merge branch 'master' into new_ui

[factor.git] / core / classes / tuple / tuple.factor

diff --git a/core/classes/tuple/tuple.factor b/core/classes/tuple/tuple.factor
index 69a8f3347e055a2f3cea506a02dab2800d3f9761..b13bc1bfa256ae5d6accb74c37bce36bf70ad281 100755 (executable)
--- a/core/classes/tuple/tuple.factor
+++ b/core/classes/tuple/tuple.factor
@@ -278,7 +278,7 @@ M: tuple-class (define-tuple-class)
     [ 3drop ] [ redefine-tuple-class ] if ;
 
 : thrower-effect ( slots -- effect )
-    [ dup array? [ first ] when ] map f <effect> t >>terminated? ;
+    [ dup array? [ first ] when ] map { "*" } <effect> ;
 
 : define-error-class ( class superclass slots -- )
     [ define-tuple-class ]