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