Changeset 35473 in project for release/4/srfi-27/trunk/srfi-27.scm


Ignore:
Timestamp:
04/29/18 16:18:57 (7 months ago)
Author:
kon
Message:

fix make reals type, add type for clock entropy

File:
1 edited

Legend:

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

    r35456 r35473  
    4646  entropy-source-f64vector
    4747  ;;
    48   current-random-integer
    49   current-random-real)
     48  random-integer/current
     49  random-real/current)
    5050
    5151(import scheme chicken)
     
    216216  ((@random-source-make-integers (current-random-source))) )
    217217
    218 (: current-random-integer (deprecated current-random-integer))
    219 (define current-random-integer current-random-integer)
    220 
    221218(: current-random-real (--> float))
    222219;
    223220(define (current-random-real)
    224221  ((@random-source-make-reals (current-random-source)) #f) )
    225 
    226 (: current-random-real (deprecated current-random-real))
    227 (define current-random-real current-random-real)
    228222
    229223(: make-random-source (#!optional random-source --> random-source))
     
    323317  ((@random-source-make-integers (check-random-source 'random-source-make-integers rs))) )
    324318
    325 (: random-source-make-integers (random-source #!optional fixnum --> random-real-function))
     319(: random-source-make-reals (random-source #!optional fixnum --> random-real-function))
    326320;
    327321(define (random-source-make-reals rs #!optional prec)
     
    342336    (and prec (check-real-precision 'random-source-make-f64vectors prec 'precision))) )
    343337
     338;;;
     339
     340(: random-integer/current (deprecated current-random-integer))
     341(define random-integer/current current-random-integer)
     342
     343(: random-real/current (deprecated current-random-real))
     344(define random-real/current current-random-real)
     345
    344346) ;module srfi-27
Note: See TracChangeset for help on using the changeset viewer.