shithub: 9ficl

ref: 7c76dac1b268038f567939a70a18228e790a5cbc
dir: /test/prefix.fr/

View raw version 
: 0x  { | old-base -- n }
    base @ to old-base
    16 base !
    0 0 parse-word >number 2drop drop
    old-base base !
;