From 8fea8080106328e2b1c0980814bed5583c4a4716 Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Sun, 24 Oct 2021 17:47:53 +0200
Subject: Allow clocks to be created in stopped state, add
 'set-clock-expiration-time!'

---
 guile/starlet/clock.scm | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

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

diff --git a/guile/starlet/clock.scm b/guile/starlet/clock.scm
index 6c11936..22aba7d 100644
--- a/guile/starlet/clock.scm
+++ b/guile/starlet/clock.scm
@@ -28,6 +28,8 @@
             reverse-clock!
             clock-expired?
 
+            set-clock-expiration-time!
+
             <starlet-delayed-clock>
             make-delayed-clock
 
@@ -63,13 +65,15 @@
 
   (stopped
     #:init-value #f
+    #:init-keyword #:stopped
     #:getter clock-stopped?
     #:setter set-clock-stopped!)
 
   (expiration-time
     #:init-value #f
     #:init-keyword #:expiration-time
-    #:getter expiration-time)
+    #:getter expiration-time
+    #:setter set-clock-expiration-time!)
 
   (reversed
     #:init-value #f
@@ -78,9 +82,12 @@
 
 
 (define* (make-clock
-           #:key (expiration-time #f))
+           #:key
+           (expiration-time #f)
+           (stopped #f))
   (make <starlet-clock>
-        #:expiration-time expiration-time))
+        #:expiration-time expiration-time
+        #:stopped stopped))
 
 
 (define (clock-expired? clock)
-- 
cgit v1.2.3