diff options
author | Thomas White <taw@physics.org> | 2020-05-27 18:19:14 +0200 |
---|---|---|
committer | Thomas White <taw@physics.org> | 2020-05-27 18:19:14 +0200 |
commit | ed9dadd2536edd84604801af816a622205a48e72 (patch) | |
tree | 5ef67bb5b5dff63118d6ee61a0c0a7e1889acef5 /guile/nanolight/state.scm | |
parent | 65d6daaefcb3ceb66bc824e95a215d565183fad0 (diff) |
Basic fixture structure
Diffstat (limited to 'guile/nanolight/state.scm')
-rw-r--r-- | guile/nanolight/state.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/guile/nanolight/state.scm b/guile/nanolight/state.scm index deb31cf..b12d91a 100644 --- a/guile/nanolight/state.scm +++ b/guile/nanolight/state.scm @@ -48,8 +48,10 @@ (define (print-state st) (define (print-statelet a) - (display (car a)) - (display " ") + (if (eq? (car a) #f) + (display "(oops! nothing)")) + (display (fixture-string (car a))) + (display " / ") (display (cadr a)) (newline) (for-each (lambda (b) |