write-double ( n -- byte-array ) (original) (raw)

write-double ( n -- byte-array )

Vocabulary
pack

Inputs

n an object

Outputs

byte-array an object

Definition

USING: math ;

IN: pack

: write-double ( n -- byte-array ) double>bits 8 >n-byte-array ;