diff options
Diffstat (limited to 'apple-town-fair/place.scm')
| -rw-r--r-- | apple-town-fair/place.scm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/apple-town-fair/place.scm b/apple-town-fair/place.scm index b96130d..01750da 100644 --- a/apple-town-fair/place.scm +++ b/apple-town-fair/place.scm @@ -17,6 +17,7 @@ #:use-module (catbird config) #:use-module (catbird node) #:use-module (catbird node-2d) + #:use-module (catbird scene) #:use-module (oop goops) #:export (<action> condition @@ -34,11 +35,11 @@ #:init-form (const #t)) (exec #:accessor exec #:init-keyword #:exec)) -(define-method (performable? (action <action>) scene) - ((condition action) scene)) +(define-method (performable? (action <action>)) + ((condition action) (current-scene))) -(define-method (perform (action <action>) scene) - ((exec action) scene)) +(define-method (perform (action <action>)) + ((exec action) (current-scene))) (define-class <place> (<node-2d>) (title #:accessor title #:init-keyword #:title #:init-value "Unknown") |