typo

diff --git a/tests/runtime/test-hash-table.scm b/tests/runtime/test-hash-table.scm
index d3457aa044bb634c51be1a859be8eb4068f61462..51372aa00555c869fff5710fd10d71862fc78f95 100644 (file)
--- a/tests/runtime/test-hash-table.scm
+++ b/tests/runtime/test-hash-table.scm
@@ -177,8 +177,8 @@ USA.
 ;;;; Correctness Tests
 
 (define (check implementation)
-  (let ((n (if keep-it-fast? #x100 #x1000)))
-    (do ((i 0 (+ i 1))) ((= i (if keep-it-fast? #x10 #x100)))
+  (let ((n (if keep-it-fast!? #x100 #x1000)))
+    (do ((i 0 (+ i 1))) ((= i (if keep-it-fast!? #x10 #x100)))
       (let* ((key-radix (+ 1 (random-integer n)))
             (insert-fraction (random-real))
             (delete-fraction (- 1 insert-fraction)))