diff options
| author | Thomas White <taw@physics.org> | 2022-07-09 21:20:51 +0200 |
|---|---|---|
| committer | Thomas White <taw@physics.org> | 2022-07-09 21:43:34 +0200 |
| commit | cb1cbd96d05dc8978d95ca4685128e033f286c3d (patch) | |
| tree | 009a8e3bccc623ee0e40abe4850609673344ab91 /guile/starlet/clock.scm | |
| parent | 8f863c9b360f6e3593ff1a52da71cee6bfe20104 (diff) | |
Playback: Factorise start-fixture-playback! and clock logic
Diffstat (limited to 'guile/starlet/clock.scm')
| -rw-r--r-- | guile/starlet/clock.scm | 6 |
1 files changed, 4 insertions, 2 deletions
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>)) |