re-export mzscheme integer-length from SRFI-60
svn: r4927
This commit is contained in:
parent
94adeb1d13
commit
8fa49ab706
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue
Block a user