From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 10 Feb 1993 22:29:57 +0000 (+0000)
Subject: Fix typo.
X-Git-Tag: 20090517-FFI~8542
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d0591ca538ddbd84325dbc4f9bcdf36ef5dbf239;p=mit-scheme.git

Fix typo.
---

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))