0^ ( zero x -- z )

Vocabulary

math.functions.private

Inputs

zero	an object
x	an object

Outputs

z

an object

Definition

USING: kernel math ;

IN: math.functions.private

: 0^ ( zero x -- z )
    swap [ 0/0. ] swap '[ 0 < 1/0. _ ? ] if-zero ; inline