normalize-axis ( axis rank -- normalized )

Vocabulary

arrays.shaped.private

Inputs

axis	an object
rank	an object

Outputs

normalized

an object

Definition

USING: arrays.shaped kernel math ;

IN: arrays.shaped.private

:: normalize-axis ( axis rank -- normalized )
    axis integer? [ axis rank neg >= axis rank < and ] [ f ] if
    [ axis rank invalid-shaped-axis ] unless axis dup 0 <
    [ rank + ] when ;