diff options
| author | Thomas White <taw@physics.org> | 2022-07-10 14:57:12 +0200 |
|---|---|---|
| committer | Thomas White <taw@physics.org> | 2022-07-10 14:57:12 +0200 |
| commit | 3731f442ca40619ce7e62789e6b8c44571866e74 (patch) | |
| tree | aced5aa1cb99e26c2a979455b72cca7aab2065ad /guile/starlet/state.scm | |
| parent | 274ebcd3c7a87524513f845cf533bd5b4d53ee16 (diff) | |
Add "state-empty?"
Diffstat (limited to 'guile/starlet/state.scm')
| -rw-r--r-- | guile/starlet/state.scm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/guile/starlet/state.scm b/guile/starlet/state.scm index 0fff383..0047014 100644 --- a/guile/starlet/state.scm +++ b/guile/starlet/state.scm @@ -57,7 +57,8 @@ value->number atomically-overlay-state! update-state! - add-update-hook!)) + add-update-hook! + state-empty?)) ;; A "state" is an atomically-updating container for an immutable @@ -452,3 +453,8 @@ pre-existing contents." (set! selection (flatten-sublists fixture-list)))) (run-hook selection-hook selection)) + +(define (state-empty? st) + (hash-table-empty? + (atomic-box-ref + (get-ht-box st)))) |