From d0591ca538ddbd84325dbc4f9bcdf36ef5dbf239 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 10 Feb 1993 22:29:57 +0000
Subject: [PATCH] Fix typo.

---
 v7/src/runtime/random.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/v7/src/runtime/random.scm b/v7/src/runtime/random.scm
index b9144b38c..d3bc2a66a 100644
--- 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))
-- 
2.25.1