aboutsummaryrefslogtreecommitdiff
path: root/guile/starlet/state.scm
diff options
context:
space:
mode:
Diffstat (limited to 'guile/starlet/state.scm')
-rw-r--r--guile/starlet/state.scm5
1 files changed, 5 insertions, 0 deletions
diff --git a/guile/starlet/state.scm b/guile/starlet/state.scm
index 6abd3c1..86e871e 100644
--- a/guile/starlet/state.scm
+++ b/guile/starlet/state.scm
@@ -30,6 +30,7 @@
#:use-module (srfi srfi-1)
#:export (<starlet-state>
make-empty-state
+ lighting-state?
get-state-name
state-for-each
state-map
@@ -70,6 +71,10 @@
#:getter get-update-hook))
+(define (lighting-state? a)
+ (is-a? a <starlet-state>))
+
+
;; The state used to build a new scene for recording
(define programmer-state (make <starlet-state>))