From 2a5f8fad86d78adc82fa8c7cd94f3fe854dee025 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sun, 30 Oct 2022 21:25:15 -0400 Subject: Day 2 progress. --- apple-town-fair/place.scm | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) (limited to 'apple-town-fair/place.scm') 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 ) state) - ((condition action) state)) +(define-method (performable? (action ) scene) + ((condition action) scene)) -(define-method (perform (action ) state) - ((exec action) state)) +(define-method (perform (action ) scene) + ((exec action) scene)) (define-class () (title #:accessor title #:init-keyword #:title #:init-value "Unknown") -- cgit v1.2.3