diff options
| author | Thomas White <taw@physics.org> | 2021-03-28 20:49:51 +0200 |
|---|---|---|
| committer | Thomas White <taw@physics.org> | 2021-03-31 21:56:36 +0200 |
| commit | 4135e46592535b6796fab8e464ac7a9e6a35a2da (patch) | |
| tree | 1ce6333153264d6eee46683fb9ab4838e9aa0608 /guile | |
| parent | 6f1fd2a3d2306c203a1ad90b65502b08e003bb9a (diff) | |
Get rid of set-state-hash-table
Diffstat (limited to 'guile')
| -rw-r--r-- | guile/starlet/base.scm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/guile/starlet/base.scm b/guile/starlet/base.scm index 8b5c035..2716c6c 100644 --- a/guile/starlet/base.scm +++ b/guile/starlet/base.scm @@ -131,8 +131,7 @@ (define-class <starlet-state> (<object>) (hash-table #:init-form (make-hash-table) - #:getter get-state-hash-table - #:setter set-state-hash-table!)) + #:getter get-state-hash-table)) (define-method (set-in-state! (state <starlet-state>) @@ -325,7 +324,7 @@ pre-existing contents." (define (clear-state! state) - (set-state-hash-table! state (make-hash-table))) + (hash-clear! (get-state-hash-table state))) (define (merge-rule-ltp attr a b) b) |