d* ( d d -- d )


Vocabulary
units

Inputs
dan object
dan object


Outputs
dan object


Definition
USING: accessors kernel math sequences ;

IN: units

: d* ( d d -- d )
[ dup number? [ scalar ] when ] bi@
[ [ top>> ] bi@ append ] 2keep
[ [ bot>> ] bi@ append ] 2keep 2values * dimension-op> ;