xref: /illumos-gate/usr/src/common/ficl/test/prefix.fr (revision a89c0811c892ec231725fe10817ef95dda813c06)

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