Vocabulary
validators

Inputs
xan integer
nan integer


Outputs
xan integer


Word description
Throws an error if x is larger than n.

Definition


: v-max-value ( x n -- x )
2dup >
[ [ "must be no more than " % # ] "" make throw ] [ drop ]
if ;