From 58ee52e63b1047474fcaff8aaec78c2db157b471 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Fri, 29 Mar 2013 09:45:06 -0700
Subject: [PATCH] asn1: Throw an error not a string.

---
 extra/asn1/asn1.factor | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/extra/asn1/asn1.factor b/extra/asn1/asn1.factor
index 047f0133ff..decaf29401 100644
--- 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 ( -- )