Adding guard

ktakashi · ktakashi · commit d74263df1bb4 · 2024-12-04T14:40:24.000+01:00
diff --git a/ext/socket/socket-selector.incl b/ext/socket/socket-selector.incl
@@ -1,4 +1,4 @@
-/* mode:c */
+/* -*- mode:c -*- */
 static int selector_sockets(SgSocketSelector *selector)
 {
   /* filter closed socket */
diff --git a/sitelib/util/concurrent/actor.scm b/sitelib/util/concurrent/actor.scm
@@ -100,8 +100,10 @@
   actor)
 
 (define (actor-interrupt! actor)
-  (and (actor-running? actor)
-       (thread-interrupt! (actor-thread actor))))
+  ;; if the actor already stopped, thread-interrrupt! signals an error
+  (guard (e (else #t))
+    (and (actor-running? actor)
+	 (thread-interrupt! (actor-thread actor)))))
 
 (define (actor-running? actor) (eq? (actor-state actor) 'running))
 

Original file line number	Diff line number	Diff line change
`@@ -1,4 +1,4 @@`
`1`		`-/* mode:c */`
	`1`	`+/* -- mode:c -- */`
`2`	`2`	`static int selector_sockets(SgSocketSelector *selector)`
`3`	`3`	`{`
`4`	`4`	`/* filter closed socket */`