state-assignment-string isn't part of the class

1 files 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