round-to-step ( x step -- y )

Vocabulary

math.extras

Inputs

x	an object
step	an object

Outputs

y

an object

Definition

USING: kernel math math.functions ;

IN: math.extras

: round-to-step ( x step -- y )
    [ [ / round ] [ * ] bi ] unless-zero ;