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