From 812618c6cc9761f4c071f8230c1efb7c4be40df5 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 7 Dec 2007 20:11:53 +0000
Subject: [PATCH] fix SRFI-54 change

svn: r7921
---
 collects/srfi/54/cat.ss | 3 ---
 1 file changed, 3 deletions(-)

diff --git a/collects/srfi/54/cat.ss b/collects/srfi/54/cat.ss
index 3ee6829eef..4f9c453d40 100644
--- a/collects/srfi/54/cat.ss
+++ b/collects/srfi/54/cat.ss
@@ -244,9 +244,6 @@
                   #t
                   #f)))))
   
-  (define (exact-integer? n)
-    (and (integer? n) (exact? n)))
-  
   (define (exact-integer/string? ns)
     (or (and (integer? ns)
              (exact? ns))