Remove unnecessary exports

1 files changed, 4 insertions, 5 deletions

diff --git a/guile/starlet/playback.scm b/guile/starlet/playback.scm
index b5dd1e9..7acd323 100644
--- a/guile/starlet/playback.scm
+++ b/guile/starlet/playback.scm
@@ -409,16 +409,15 @@
        (eq? (cdr fa1) (cdr fa2))))
 
 
-(define (hash-map-keys hm)
-  (hash-map->list (lambda (key val) key)
-                  hm))
+(define (fix-attrs-in-state state)
+  (state-map (lambda (fix attr val) (cons fix attr))
+             state))
 
 
 (define (add-fix-attrs-to-list state old-list)
   (lset-union fix-attr-eq
               old-list
-              (hash-map-keys
-                (get-state-hash-table state))))
+              (fix-attrs-in-state state)))
 
 
 (define (fix-attrs-involved . states)