change ERROR: words from throw-foo back to foo.

[factor.git] / extra / descriptive / descriptive.factor

diff --git a/extra/descriptive/descriptive.factor b/extra/descriptive/descriptive.factor
index ccf29a02c3e361c2f0beab5a8a89fce7bfe4744f..112540bc91a0c87e3dd1a8d1d9bfb1dac1e7cc08 100644 (file)
--- a/extra/descriptive/descriptive.factor
+++ b/extra/descriptive/descriptive.factor
@@ -19,7 +19,7 @@ M: descriptive-error error.
 
 : rethrower ( word inputs -- quot )
     [ length ] keep [ [ narray ] dip swap 2array flip ] 2curry
-    [ 2 ndip throw-descriptive-error ] 2curry ;
+    [ 2 ndip descriptive-error ] 2curry ;
 
 : [descriptive] ( word def effect -- newdef )
     swapd in>> rethrower [ recover ] 2curry ;