Changeset 8596 in project

Timestamp:

02/20/08 23:30:53 (12 years ago)

Author:

Kon Lovett

Message:

Rmvd fixnum->string.

Location:

release/3/mathh/trunk

Files:

• doc.scm (modified) (1 diff)
• fixnum-extras.scm (modified) (2 diffs)

release/3/mathh/trunk/doc.scm

@@ -232 +232 @@
         "violates R6RS.")
 
-        (procedure "(fixnum->string FX [RADIX])"
-          (p "") )
-
         (procedure "(fixnum-width)"
           (p "") )

release/3/mathh/trunk/fixnum-extras.scm

@@ -9 +9 @@
         (no-procedure-checks-for-usual-bindings)
         (bound-to-procedure
-          ##sys#signal-hook
-          ##sys#make-string
-          ##sys#string-append )
+          ##sys#signal-hook )
   (export
-    fixnum->string
     fixnum-width
     least-fixnum
@@ -515 +512 @@
 ;;;
 
-(define fixnum->string
-  (let ([digits "0123456789ABCDEF"])
-    (lambda (fx #!optional (radix 10))
-      (letrec ([fx-digits
-                 (lambda (fx from to)
-                   (if (##core#inline "C_eqp" 0 fx)
-                       (values (##sys#make-string from)
-                               to)
-                       (let* ([quo
-                                (##core#inline "C_fixnum_divide" fx radix)]
-                              [digit
-                                (##core#inline "C_i_string_ref"
-                                 digits
-                                 (##core#inline "C_fixnum_difference"
-                                  fx
-                                  (##core#inline "C_fixnum_times" quo radix)))])
-                           (let-values ([(str to)
-                                         (fx-digits
-                                          quo
-                                          (##core#inline "C_fixnum_plus" from 1)
-                                          to)])
-                             (##core#inline "C_i_string_set" str to digit)
-                             (values str
-                                     (##core#inline "C_fixnum_plus" to 1)) ) ) ) ) ]
-               [fx->str
-                 (lambda (fx)
-                   (cond [(##core#inline "C_eqp" 0 fx)
-                           (##sys#make-string 1 #\0)]
-                         [(##core#inline "C_fixnum_lessp" 0 fx)
-                           (let ([str (fx-digits fx 0 0)])
-                             (noop str)
-                             str ) ]
-                         [(##core#inline "C_eqp" most-negative-fixnum fx)
-                           (##sys#string-append
-                            (fx->str (##core#inline "C_fixnum_divide" fx radix))
-                            (fx->str (##core#inline "C_fixnum_difference"
-                                      radix
-                                      (##core#inline "C_fixnum_modulo" fx radix))))]
-                         [else
-                           (let ([str (fx-digits (##core#inline "C_fixnum_negate" fx) 1 1)])
-                             (##core#inline "C_i_string_set" str 0 #\-)
-                             str ) ] ) ) ] )
-        ;
-        (check-fixnum 'fixnum->string fx)
-        (case radix
-          [(2 8 10 16)
-            (fx->str fx)]
-          [else
-            (##sys#signal-hook #:type-error 'fixnum->string
-                               "bad argument type - invalid radix" radix) ] ) ) ) ) )
-
-;;;
-
 (define (fxif mask true false)
   (check-fixnum 'fxif mask)