From f2c8f8287fbc975eee1413f39709af8b43d358c2 Mon Sep 17 00:00:00 2001 From: Peter Bex 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. --- benchmarks/benchmark.scm | 2 ++ slsets.scm | 2 ++ 2 files changed, 4 insertions(+) diff --git a/benchmarks/benchmark.scm b/benchmarks/benchmark.scm index 541f5db..6ef4044 100644 --- a/benchmarks/benchmark.scm +++ b/benchmarks/benchmark.scm @@ -9,6 +9,8 @@ ;; value which makes hashing fast. Slsets don't care about the symbol ;; size and don't need a preallocated size. +(declare (disable-interrupts)) + (import (chicken fixnum) (chicken string) (chicken process-context) (only srfi-1 lset-difference) srfi-69 slsets) (unless (= (length (command-line-arguments)) 2) 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