From 1d70832b1249e0522e3b7a4418595bc855d01039 Mon Sep 17 00:00:00 2001 From: Bob Burger Date: Tue, 30 Apr 2024 11:43:21 -0400 Subject: [PATCH] fixed two more typos --- mats/5_3.ms | 2 +- s/5_3.ss | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/mats/5_3.ms b/mats/5_3.ms index c26d25fa8..dd7542a6a 100644 --- a/mats/5_3.ms +++ b/mats/5_3.ms @@ -2827,7 +2827,7 @@ (loop (sub1 i))))) ;; We expect about 100 hits in each bin. Having less than 50 or ;; more than 150 should be so extremely unlikely that we can rely on - ;; it not happning: + ;; it not happening: (let loop ([i (vector-length hits)]) (or (= i 0) (and (< 50 (vector-ref hits (sub1 i)) 150) diff --git a/s/5_3.ss b/s/5_3.ss index 705af585c..473b8530d 100644 --- a/s/5_3.ss +++ b/s/5_3.ss @@ -3169,7 +3169,7 @@ (loop (+ r (bitwise-arithmetic-shift-left (random-int s #x80000000) shift)) (- len 31) (+ shift 31)))))]) - ;; probably of a bad choice is at most 1/2 + ;; probability of a bad choice is at most 1/2 (if (>= maybe-result x) (random-integer s x) maybe-result)))