check-error ( game n error -- game n ? )

Vocabulary

hamurabi.private

Inputs

game	an object
n	an object
error	an object

Outputs

game	an object
n	an object
?	an object

Definition

USING: combinators kernel ;

IN: hamurabi.private

: check-error ( game n error -- game n ? )
    {
        { "acres" [ over bad-acres t ] }
        { "stores" [ over bad-stores t ] }
        { "population" [ over bad-population t ] }
        [ drop f ]
    } case ;