update-stores ( game -- game )


Vocabulary
hamurabi.private

Inputs
gamean object


Outputs
gamean object


Definition
USING: accessors kernel math ;

IN: hamurabi.private

: update-stores ( game -- game )
dup #harvested >>harvest dup #eaten >>eaten dup #stored
[ + ] curry change-stores ;