Paste: HEX{ }

Author: Maxim Savchenko
Mode: factor
Date: Mon, 23 Mar 2009 19:10:13
Plain Text | 
ERROR: bad-hex-bytes ;

SYNTAX: HEX{
    byte-vector new "}" parse-tokens
    [
        dup length even?
        [ 2 <groups> [ hex> [ parsed ] [ bad-hex-bytes ] if* ] each ]
        [ bad-hex-bytes ] if
    ] each >byte-array parsed ;

New Annotation

Summary:
Author:
Mode:
Body: