diff options
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))) |