slice-bound ( bound size lower upper default -- normalized )

Vocabulary

arrays.shaped.private

Inputs

bound	an object
size	an object
lower	an object
upper	an object
default	an object

Outputs

normalized

an object

Definition

USING: arrays.shaped kernel math math.order ;

IN: arrays.shaped.private

:: slice-bound
    ( bound size lower upper default -- normalized )
    bound [
        dup integer? [ bound invalid-shaped-slice ] unless
        dup 0 < [ size + ] when lower max upper min
    ] [ default ] if* ;