fixed two more typos

cisco · Apr 30, 2024 · 1d70832 · 1d70832
1 parent f1ddc10
commit 1d70832
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git 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
@@ -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)))