untag-fixnum ( n -- tagged )


Vocabulary
layouts

Inputs
nan object


Outputs
taggedan object


Definition
USING: math namespaces ;

IN: layouts

: untag-fixnum ( n -- tagged ) tag-bits get neg shift ;