From 722ee145fbc57dc987a275b3e930c4571909e320 Mon Sep 17 00:00:00 2001
From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Wed, 2 Aug 1995 03:56:44 +0000
Subject: [PATCH] Replace INT:INTEGER? by faster EXACT-INTEGER?

---
 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 925c12beb..47831f926 100644
--- a/v7/src/runtime/random.scm
+++ b/v7/src/runtime/random.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: random.scm,v 14.12 1995/07/19 05:22:08 cph Exp $
+$Id: random.scm,v 14.13 1995/08/02 03:56:44 adams Exp $
 
 Copyright (c) 1993-95 Massachusetts Institute of Technology
 
@@ -69,7 +69,7 @@ MIT in each case. |#
     ;; integer.  Otherwise, the result is a real number.
     (cond ((flo:flonum? modulus)
 	   (flo:* element modulus))
-	  ((int:integer? modulus)
+	  ((exact-integer? modulus)
 	   (flo:truncate->exact (flo:* element (int:->flonum modulus))))
 	  (else
 	   (* (inexact->exact element) modulus)))))
-- 
2.25.1