>double ( S E M -- frac )

Vocabulary
math.floating-point

Definition

USING: kernel math ;

IN: math.floating-point

: >double ( S E M -- frac )
    [ 52 shift ] dip [ 63 shift ] 2dip bitor bitor bits>double
    ;