From cb1cbd96d05dc8978d95ca4685128e033f286c3d Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Sat, 9 Jul 2022 21:20:51 +0200
Subject: Playback: Factorise start-fixture-playback! and clock logic

---
 guile/starlet/clock.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'guile/starlet/clock.scm')

diff --git a/guile/starlet/clock.scm b/guile/starlet/clock.scm
index c139d66..2e6e2ff 100644
--- a/guile/starlet/clock.scm
+++ b/guile/starlet/clock.scm
@@ -92,8 +92,10 @@
 
 
 (define (clock-expired? clock)
-  (> (elapsed-time clock)
-     (expiration-time clock)))
+  (and
+    clock
+    (> (elapsed-time clock)
+       (expiration-time clock))))
 
 
 (define-method (elapsed-time (clock <starlet-clock>))
-- 
cgit v1.2.3