Fix typo.

diff --git a/v7/src/runtime/random.scm b/v7/src/runtime/random.scm
index b9144b38c4f63a4e8108b331a05ac8608b17249c..d3bc2a66a4466b93e631262b06910a19674ebcc8 100644 (file)
--- a/v7/src/runtime/random.scm
+++ b/v7/src/runtime/random.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: random.scm,v 14.5 1993/02/09 00:25:45 cph Exp $
+$Id: random.scm,v 14.6 1993/02/10 22:29:57 cph Exp $
 
 Copyright (c) 1993 Massachusetts Institute of Technology
 
@@ -127,7 +127,7 @@ MIT in each case. |#
       ;; get locked in trivial cycles.
       (if (or (let loop ((i 0))
                (or (fix:= i r)
-                   (and (flo:= (vector-ref seeds i) 0)
+                   (and (flo:= (vector-ref seeds i) 0.)
                         (loop (fix:+ i 1)))))
              (let ((b-1 (flo:- b. 1.)))
                (let loop ((i 0))