diff options
Diffstat (limited to 'apple-town-fair/place.scm')
-rw-r--r-- | apple-town-fair/place.scm | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/apple-town-fair/place.scm b/apple-town-fair/place.scm index 2cfb5ed..b96130d 100644 --- a/apple-town-fair/place.scm +++ b/apple-town-fair/place.scm @@ -32,14 +32,13 @@ (name #:accessor name #:init-keyword #:name) (condition #:accessor condition #:init-keyword #:condition #:init-form (const #t)) - (exec #:accessor exec #:init-keyword #:exec) - (duration #:accessor duration #:init-keyword #:duration #:init-value 1)) + (exec #:accessor exec #:init-keyword #:exec)) -(define-method (performable? (action <action>) state) - ((condition action) state)) +(define-method (performable? (action <action>) scene) + ((condition action) scene)) -(define-method (perform (action <action>) state) - ((exec action) state)) +(define-method (perform (action <action>) scene) + ((exec action) scene)) (define-class <place> (<node-2d>) (title #:accessor title #:init-keyword #:title #:init-value "Unknown") |