From f67b816ba940fd0963c4ebd560806558a942c349 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Fri, 10 Oct 2014 18:22:02 -0700 Subject: [PATCH] typo --- tests/runtime/test-hash-table.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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))) -- 2.25.1