From 6e86ea3f962577dca6f5ce703ab22e0ad2390d2b Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Thu, 13 May 2021 11:00:16 +0200
Subject: Avoid mutation of state objects by "set-state-name!"

---
 guile/starlet/state.scm | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

(limited to 'guile/starlet/state.scm')

diff --git a/guile/starlet/state.scm b/guile/starlet/state.scm
index a889d0c..92bf681 100644
--- a/guile/starlet/state.scm
+++ b/guile/starlet/state.scm
@@ -31,7 +31,6 @@
   #:export (<starlet-state>
             make-empty-state
             get-state-name
-            set-state-name!
             state-for-each
             state-map
             clear-state!
@@ -60,12 +59,7 @@
 (define-class <starlet-state> (<object>)
   (hash-table-box
     #:init-form (make-atomic-box (make-hash-table))
-    #:getter get-ht-box)
-  (name
-    #:init-value #f
-    #:init-keyword #:name
-    #:getter get-state-name
-    #:setter set-state-name!))
+    #:getter get-ht-box))
 
 
 ;; The state used to build a new scene for recording
-- 
cgit v1.2.3