Changeset 17327 in project


Ignore:
Timestamp:
02/20/10 21:29:07 (10 years ago)
Author:
Kon Lovett
Message:

Rename for full-numeric-tower mod.

Location:
release/4/srfi-27/trunk
Files:
1 deleted
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/srfi-27/trunk/srfi-27-numbers.scm

    r17326 r17327  
    1 ;;;; srfi-27-large-numbers.scm
    2 ;;;; Kon Lovett, Oct '09
     1;;;; srfi-27-numbers.scm
     2;;;; Kon Lovett, Feb '10
    33
    4 (module srfi-27-large-numbers
     4(module srfi-27-numbers
    55
    66  (;export
     
    5050    (error-open-interval loc obj 0 1 argnam)) )
    5151
    52 #; ;not tail-recursive
    53 (define (random-power rndint state max k) ; n = m-max^k, k >= 1
    54   (let loop ((k k))
    55     (let ((ri (rndint state max)))
    56       (if (fx= 1 k) ri
    57           (+ ri (* (loop (fx- k 1)) max))))) )
     52;;;
    5853
    5954(define (random-power rndint state max k) ; n = m-max^k, k >= 1
     
    9792           (exact->inexact (add1 (expt max k)))) ) ) )
    9893
    99 ) ;module srfi-27-large-numbers
     94) ;module srfi-27-numbers
  • release/4/srfi-27/trunk/srfi-27.meta

    r17316 r17327  
    2727        "composite-random-source.scm"
    2828        "srfi-27-distributions.scm"
    29         "srfi-27-large-numbers.scm"
     29        "srfi-27-vector.scm"
     30        "srfi-27-uniform-random.scm"
     31        "srfi-27-numbers.scm"
    3032        "srfi-27.scm"
    3133  "srfi-27.setup") )
Note: See TracChangeset for help on using the changeset viewer.