From 8fa49ab70678b0540beadfff9a54e5c3f943de4e Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 23 Nov 2006 01:51:55 +0000
Subject: [PATCH] re-export mzscheme integer-length from SRFI-60

svn: r4927
---
 collects/srfi/60/60.ss | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/collects/srfi/60/60.ss b/collects/srfi/60/60.ss
index 9c8b666ae4..b978f53ba4 100644
--- a/collects/srfi/60/60.ss
+++ b/collects/srfi/60/60.ss
@@ -7,7 +7,8 @@
 ;; included below.
 
 (module |60| mzscheme
-  (provide (all-defined-except logical:ash-4))
+  (provide (all-defined-except logical:ash-4)
+           integer-length)
 
   ;; SRFI 60 defines several procedures which are already provided by
   ;; MzScheme and thus they are not provided by this module, namely
@@ -189,6 +190,7 @@
 	    (quotient n k)))
       (* (expt 2 count) n)))
 ;@
+#;
 (define integer-length
   (letrec ((intlen (lambda (n tot)
 		     (case n