From 51845b710d404aa13bddf3de049789891f1fcbf1 Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Sat, 6 Jun 2020 15:46:56 +0200
Subject: state-assignment-string isn't part of the class

---
 guile/nanolight/state.scm | 22 +++++++++-------------
 1 file changed, 9 insertions(+), 13 deletions(-)

diff --git a/guile/nanolight/state.scm b/guile/nanolight/state.scm
index 6c95c3d..5684b57 100644
--- a/guile/nanolight/state.scm
+++ b/guile/nanolight/state.scm
@@ -25,20 +25,16 @@
   (value-func
     #:init-value #f
     #:init-keyword #:value-func
-    #:getter value-func)
+    #:getter value-func))
 
-  (state-assignment-string
-    #:init-value #f
-    #:allocation #:virtual
-    #:getter state-assignment-string
-    #:slot-ref (lambda (a)
-                 (string-append
-                   (fixture-string (fixture a))
-                   " / "
-                   (symbol->string (attribute a))
-                   " ---> "
-                   (number->string ((value-func a)))))
-    #:slot-set! (lambda (a s) #f)))
+
+(define (state-assignment-string a)
+  (string-append
+    (fixture-string (fixture a))
+    " / "
+    (symbol->string (attribute a))
+    " ---> "
+    (number->string ((value-func a)))))
 
 
 ; Return #t if the two state assignments target the same parameter
-- 
cgit v1.2.3