guard-decimals ( obj1 obj2 -- D1 D2 )

Vocabulary

decimals

Inputs

obj1	an object
obj2	an object

Outputs

D1	an object
D2	an object

Definition

USING: kernel ;

IN: decimals

: guard-decimals ( obj1 obj2 -- D1 D2 )
    2dup [ decimal? ] both? [ decimal-types-expected ] unless ;