*complex-double ( alien -- z )


Vocabulary
alien.complex

Inputs
alienan object


Outputs
zan object


Definition
USING: accessors classes.struct kernel math ;

IN: alien.complex

: *complex-double ( alien -- z )
complex-double memory>struct [ real>> ] [ imaginary>> ] bi
rect> ; inline