From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 29 Feb 2016 03:23:11 +0000 (-0800)
Subject: Fix typos.
X-Git-Tag: mit-scheme-pucked-9.2.12~261^2~94
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0150d867087b6a4a00354044ef4935252eba25f1;p=mit-scheme.git

Fix typos.
---

diff --git a/src/runtime/random.scm b/src/runtime/random.scm
index 0219a54b1..2545829a0 100644
--- a/src/runtime/random.scm
+++ b/src/runtime/random.scm
@@ -175,14 +175,14 @@ USA.
     s))
 
 (define (random-source-make-integers source)
-  (get-random-state source 'RANDOM-SOURCE-MAKE-INTEGERS)
+  (guarantee-random-state source 'RANDOM-SOURCE-MAKE-INTEGERS)
   (lambda (modulus)
     (if (int:> modulus 0)
 	(%random-integer modulus source)
 	(error:bad-range-argument modulus #f))))
 
 (define (random-source-make-reals source #!optional unit)
-  (get-random-state source 'RANDOM-SOURCE-MAKE-REALS)
+  (guarantee-random-state source 'RANDOM-SOURCE-MAKE-REALS)
   (let ((unit
 	 (if (default-object? unit)
 	     .5