From f2c8f8287fbc975eee1413f39709af8b43d358c2 Mon Sep 17 00:00:00 2001
From: Peter Bex <peter@more-magic.net>
Date: Tue, 5 Aug 2025 10:27:31 +0200
Subject: Disable interrupts

Doesn't do that much, but it's a good idea for slsets as well because
it makes it unlikely that plist changes are ever observed, because
there's no thread switching.
---
 slsets.scm | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'slsets.scm')

diff --git a/slsets.scm b/slsets.scm
index aef229f..92d7356 100644
--- a/slsets.scm
+++ b/slsets.scm
@@ -6,6 +6,8 @@
 ;; complexity.  It's even faster than using a side hash table, unless
 ;; the symbols already have large plists associated with them.
 ;;
+(declare (disable-interrupts))
+
 (module slsets
     (slset<= slset= slset-adjoin ;; TODO: slset-delete and slset-contains?
      slset-difference slset-intersection
-- 
cgit v1.2.3