From 87c0652743d08f5d6b6f006c933cb692ed8f16d7 Mon Sep 17 00:00:00 2001 From: Thomas White Date: Sun, 28 Mar 2021 20:50:55 +0200 Subject: Remove unnecessary exports --- guile/starlet/playback.scm | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) (limited to 'guile/starlet/playback.scm') 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) -- cgit v1.2.3