Remove unnecessary exports

2 files changed, 4 insertions, 10 deletions

diff --git a/guile/starlet/base.scm b/guile/starlet/base.scm
index 2716c6c..9ee5e52 100644
--- a/guile/starlet/base.scm
+++ b/guile/starlet/base.scm
@@ -33,16 +33,11 @@
             make-empty-state
             state-for-each
             state-map
-            get-state-hash-table
-            set-state-hash-table!
-            add-state-to-state!
             clear-state!
             print-state
             state-source
             set-in-state!
             state-find
-            have-value
-            merge-states-htp
             current-state
             at
             apply-state
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)