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. ] ] dip [ ? ] curry compose
    if-zero ; inline