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

[factor.git] / extra / asn1 / asn1.factor

diff --git a/extra/asn1/asn1.factor b/extra/asn1/asn1.factor
index 40819a1302d69cd7f8b68ea163fb3885cefb91a4..ad86a8877d4b2e9e056d328abea96920e0268fb2 100644 (file)
--- a/extra/asn1/asn1.factor
+++ b/extra/asn1/asn1.factor
@@ -76,7 +76,7 @@ ERROR: unsupported-tag-encoding id ;
     elements get id>> 31 bitand
     dup elements get tag<<
     31 < [
-        get-id throw-unsupported-tag-encoding
+        get-id unsupported-tag-encoding
     ] unless ;
 
 : set-tagclass ( -- )