From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Sat, 11 Oct 2014 01:22:02 +0000 (-0700)
Subject: typo
X-Git-Tag: mit-scheme-pucked-9.2.12~398^2
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f67b816ba940fd0963c4ebd560806558a942c349;p=mit-scheme.git

typo
---

diff --git a/tests/runtime/test-hash-table.scm b/tests/runtime/test-hash-table.scm
index d3457aa04..51372aa00 100644
--- 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)))