assert-literal ( n -- n )

Vocabulary

inverse

Inputs

n

an object

Outputs

n

an object

Definition

USING: combinators.short-circuit kernel words words.symbol ;

IN: inverse

: assert-literal ( n -- n )
    dup { [ word? ] [ symbol? not ] } 1&&
    [ missing-literal ] when ;