>forward-range< ( range -- start stop step )


Vocabulary
ranges.private

Inputs
rangean object


Outputs
startan object
stopan object
stepan object


Definition
USING: kernel math ;

IN: ranges.private

: >forward-range< ( range -- start stop step )
>range< dup neg? [ abs swapd ] when ;