Changeset 37252 in project


Ignore:
Timestamp:
02/16/19 03:39:09 (5 weeks ago)
Author:
kon
Message:

remove reduction result

File:
1 edited

Legend:

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

    r37251 r37252  
    5959;;;
    6060
    61 (: make-pseudo-random-integer (#!rest --> number-function procedure))
    62 ;
    63 (define (make-pseudo-random-integer #!key (source (current-random-source)))
    64   (check-random-source 'make-pseudo-random-integer source 'source)
    65   (values
    66     ((@random-source-make-integers source))
    67     (lambda ()
    68       (values source)) ) )
    69 
    7061(: make-uniform-random-integers (#!rest --> number-function procedure))
    7162;
Note: See TracChangeset for help on using the changeset viewer.