suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

re-export mzscheme integer-length from SRFI-60

Browse Source 
svn: r4927
This commit is contained in:
Matthew Flatt 2006-11-23 01:51:55 +00:00
parent 94adeb1d13
commit 8fa49ab706
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/srfi/60/60.ss
View File

@ -7,7 +7,8 @@
;; included below. ;; included below.
(module |60| mzscheme (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 ;; SRFI 60 defines several procedures which are already provided by
;; MzScheme and thus they are not provided by this module, namely ;; MzScheme and thus they are not provided by this module, namely
@ -189,6 +190,7 @@
(quotient n k))) (quotient n k)))
(* (expt 2 count) n))) (* (expt 2 count) n)))
;@ ;@
#;
(define integer-length (define integer-length
(letrec ((intlen (lambda (n tot) (letrec ((intlen (lambda (n tot)
(case n (case n