diff options
author | Thomas White <taw@physics.org> | 2021-03-28 20:50:55 +0200 |
---|---|---|
committer | Thomas White <taw@physics.org> | 2021-03-31 21:56:36 +0200 |
commit | 87c0652743d08f5d6b6f006c933cb692ed8f16d7 (patch) | |
tree | 9ef40849c0c53e7fd05ebfe03076f35d4f1016b2 | |
parent | 4135e46592535b6796fab8e464ac7a9e6a35a2da (diff) |
Remove unnecessary exports
-rw-r--r-- | guile/starlet/base.scm | 5 | ||||
-rw-r--r-- | guile/starlet/playback.scm | 9 |
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) |