1 ! Copyright (C) 2009,2011 Maxim Savchenko, Slava Pestov, Doug Coleman.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: ascii grouping kernel math.parser sequences
4 strings.parser lexer math ;
7 ERROR: odd-length-hex-string string ;
10 "}" parse-tokens concat
12 dup length even? [ throw-odd-length-hex-string ] unless
13 2 <groups> [ hex> ] B{ } map-as