From c5013476ca46313307d2537bb956603fe7dc6cac Mon Sep 17 00:00:00 2001 From: Thomas White Date: Tue, 19 Oct 2021 19:07:16 +0200 Subject: Rename group "floor" to "all-floor". Because "floor" is already a function. --- examples/show.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'examples/show.scm') diff --git a/examples/show.scm b/examples/show.scm index 1928e64..fa78b2e 100644 --- a/examples/show.scm +++ b/examples/show.scm @@ -52,7 +52,7 @@ ;; Fixtures can be grouped together (define ltruss (list ltruss1 ltruss2 ltruss3 ltruss4 ltruss5 ltruss6)) (define rtruss (list rtruss1 rtruss2 rtruss3 rtruss4 rtruss5 rtruss6)) -(define floor (list floor1 floor2 floor3 floor4 floor5 floor6)) +(define all-floor (list floor1 floor2 floor3 floor4 floor5 floor6)) (define my-state @@ -121,7 +121,7 @@ #:ready-note 69) (select-on-button controller 34 foh #:ready-note 70) -(select-on-button controller 35 floor +(select-on-button controller 35 all-floor #:ready-note 71) -- cgit v1.2.3