steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

asn1: Throw an error not a string.

Doug Coleman 2013-03-29 09:45:06 -07:00
parent d2a730dda8
commit 75c244531e
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/asn1/asn1.factor
View File

@ -70,13 +70,13 @@ TUPLE: element syntax id tag tagclass encoding contentlength newobj objtype ;
: get-id ( -- id ) : get-id ( -- id )
elements get id>> ; elements get id>> ;
ERROR: unsupported-tag-encoding id ;
: (set-tag) ( -- ) : (set-tag) ( -- )
elements get id>> 31 bitand elements get id>> 31 bitand
dup elements get tag<< dup elements get tag<<
31 < [ 31 < [
[ "unsupported tag encoding: #{" % get-id unsupported-tag-encoding
get-id # "}" %
] "" make throw
] unless ; ] unless ;
: set-tagclass ( -- ) : set-tagclass ( -- )