?1+ ( x -- y )

Vocabulary

math

Inputs

x	a number or f

Outputs

y

a number

Word description

If the input is not f, adds one. Otherwise, outputs a 0.

Definition

USING: kernel ;

IN: math

: ?1+ ( x -- y ) [ 1 + ] [ 0 ] if* ; inline