>double ( S E M -- frac )

Vocabulary

math.floating-point

Inputs

S	an object
E	an object
M	an object

Outputs

frac

an object

Definition

USING: kernel math ;

IN: math.floating-point

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