From 8255712c62cc0da844233995e04b1fa2cada5564 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson@vistahigherlearning.com>
Date: Tue, 6 Dec 2022 08:05:30 -0500
Subject: Add more previously uncommitted changes that I left hanging around.

---
 apple-town-fair/place.scm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'apple-town-fair/place.scm')

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")
-- 
cgit v1.2.3