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-05 10:27:31 +0200 |
| commit | f2c8f8287fbc975eee1413f39709af8b43d358c2 (patch) | |
| tree | 5f5a3f593481d3c9f5f1b9ac0cfe5d87eb0bba5c /benchmarks/benchmark.scm | |
| parent | 38155f79acb4f01308b7685834e4c50560a6e8b1 (diff) | |
| download | slsets-f2c8f8287fbc975eee1413f39709af8b43d358c2.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) |