diff options
| -rw-r--r-- | benchmarks/benchmark.scm | 2 | ||||
| -rw-r--r-- | slsets.scm | 2 |
2 files changed, 4 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) @@ -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 |