diff options
| author | Peter Bex <peter@more-magic.net> | 2025-08-05 10:27:31 +0200 |
|---|---|---|
| committer | Peter Bex <peter@more-magic.net> | 2025-08-18 13:39:32 +0200 |
| commit | 565171c7b0a7389e60ec6f8593732988f43b6aef (patch) | |
| tree | 1f3c5db2e06f8a1cf9c43e17be71fbc74d0c06e5 /benchmarks/benchmark.scm | |
| parent | 53f99c5612daadf18e90475159c7683443033b0d (diff) | |
| download | slset-565171c7b0a7389e60ec6f8593732988f43b6aef.tar.gz | |
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.
Diffstat (limited to 'benchmarks/benchmark.scm')
| -rw-r--r-- | benchmarks/benchmark.scm | 2 |
1 files changed, 2 insertions, 0 deletions
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) |