asn1: Throw an error not a string.

diff --git a/extra/asn1/asn1.factor b/extra/asn1/asn1.factor
index 047f0133ffd5e1719d95bd31a3b6225d8c816135..decaf2940146052904c13ecb3dc03613a0702e3e 100644 (file)
--- a/extra/asn1/asn1.factor
+++ b/extra/asn1/asn1.factor
@@ -70,13 +70,13 @@ TUPLE: element syntax id tag tagclass encoding contentlength newobj objtype ;
 : get-id ( -- id )
     elements get id>> ;
 
+ERROR: unsupported-tag-encoding id ;
+
 : (set-tag) ( -- )
     elements get id>> 31 bitand
     dup elements get tag<<
     31 < [
-        [ "unsupported tag encoding: #{" % 
-          get-id # "}" %
-        ] "" make throw
+        get-id unsupported-tag-encoding
     ] unless ;
 
 : set-tagclass ( -- )