Add more previously uncommitted changes that I left hanging around.HEADmaster

1 files changed, 10 insertions, 11 deletions

diff --git a/apple-town-fair/game.scm b/apple-town-fair/game.scm
index 5ede549..71ee13a 100644
--- a/apple-town-fair/game.scm
+++ b/apple-town-fair/game.scm
@@ -490,29 +490,28 @@ August 1675")
 (define-class <choose-action-mode> (<major-mode>))
 
 (define-method (advance-clock-once (mode <choose-action-mode>))
-  (advance-clock (parent mode) 1))
+  (advance-clock ($) 1))
 
 (define-method (quit-game (mode <choose-action-mode>))
   (exit-catbird))
 
 (define-method (up-selection (mode <choose-action-mode>))
-  (up-selection (& (parent mode) menu) 1))
+  (up-selection ($ menu) 1))
 
 (define-method (down-selection (mode <choose-action-mode>))
-  (down-selection (& (parent mode) menu) 1))
+  (down-selection ($ menu) 1))
 
 (define-method (confirm-selection (mode <choose-action-mode>))
-  (let* ((scene (parent mode))
-         (place (& scene place))
-         (chosen (selection (& scene menu)))
+  (let* ((place ($ place))
+         (chosen (selection ($ menu)))
          (action (find (lambda (a)
                          (string=? (name a) chosen))
                        (actions place))))
-    (run-script scene
-      (hide (& scene menu))
-      (perform action scene)
-      (hide (& scene dialog))
-      (show (& scene menu)))))
+    (scene-script
+      (hide ($ menu))
+      (perform action)
+      (hide ($ dialog))
+      (show ($ menu)))))
 
 (bind-input <choose-action-mode> (key-press 'r) reset-game)
 (bind-input <choose-action-mode> (key-press 'escape) quit-game)