Fix typos.

diff --git a/src/runtime/random.scm b/src/runtime/random.scm
index 0219a54b1adf05704d3d5f7e773d28162eefcb53..2545829a01ae3c262db48ae4c0d64a124d29d564 100644 (file)
--- 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