diff options
author | Thomas White <taw@physics.org> | 2021-02-21 10:39:14 +0100 |
---|---|---|
committer | Thomas White <taw@physics.org> | 2021-02-21 10:39:14 +0100 |
commit | c9b76323fead8c203c20166a88b31ea78b52a73a (patch) | |
tree | 990ab8fab5d52b648785487870925abd84ca1109 | |
parent | 3e8aca43b4b2919bfba68904ab89e7dc6e41f578 (diff) |
Add show-state
-rw-r--r-- | guile/starlet/base.scm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/guile/starlet/base.scm b/guile/starlet/base.scm index dc25491..d6436f3 100644 --- a/guile/starlet/base.scm +++ b/guile/starlet/base.scm @@ -45,6 +45,7 @@ current-state at apply-state + show-state lighting-state blackout @@ -304,6 +305,14 @@ (define (apply-state state) + "Apply the contents of 'state' to the current state, on top of the \ +pre-existing contents." + (add-state-to-state! merge-rule-ltp state (current-state))) + + +(define (show-state state) + "Clear the current state, and apply the contents of 'state'" + (clear-state! (current-state)) (add-state-to-state! merge-rule-ltp state (current-state))) |