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

new accessors

db4
Doug Coleman 2008-09-02 12:36:35 -05:00
parent 24736c038c
commit 9ad4b50855
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/asn1/asn1.factor
View File

@ -184,7 +184,7 @@ TUPLE: tag value ;
tagnum get (>>value) ; tagnum get (>>value) ;
M: string >ber ( str -- byte-array ) M: string >ber ( str -- byte-array )
tagnum get tag-value 1array "C" pack-native swap dup tagnum get value>> 1array "C" pack-native swap dup
length >ber-length-encoding swapd append swap length >ber-length-encoding swapd append swap
>byte-array append ; >byte-array append ;