diff options
author | Thomas White <taw@physics.org> | 2023-05-11 21:02:48 +0200 |
---|---|---|
committer | Thomas White <taw@physics.org> | 2023-05-11 21:02:48 +0200 |
commit | d2138c27ffc90080fe7e0b16a9e7f3109200ee23 (patch) | |
tree | e6bfd0ef269da20da7d4150c3515fe001222e2d8 /guile/starlet/state.scm | |
parent | efb87ddf5c3c45a7b9ef79b9983f6c530af8680b (diff) |
Programmer state should be LTP
Diffstat (limited to 'guile/starlet/state.scm')
-rw-r--r-- | guile/starlet/state.scm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/guile/starlet/state.scm b/guile/starlet/state.scm index dbc7e38..5844b3f 100644 --- a/guile/starlet/state.scm +++ b/guile/starlet/state.scm @@ -47,6 +47,7 @@ current-state at apply-state + combine-states show-state lighting-state programmer-state @@ -329,6 +330,12 @@ pre-existing contents." (current-state))))) +(define (combine-states a b) + (lighting-state + (apply-state a) + (apply-state b))) + + (define (print-state a) (pretty-print (state-source a))) |