update-deaths ( game -- game )


Vocabulary
hamurabi.private

Inputs
gamean object


Outputs
gamean object


Definition
USING: accessors kernel math ;

IN: hamurabi.private

: update-deaths ( game -- game )
dup #starved
[ >>deaths ] [ [ + ] curry change-total-deaths ]
[ [ - ] curry change-population ] tri ;