Changeset 35473 in project for release/4/srfi27/trunk/srfi27.scm
 Timestamp:
 04/29/18 16:18:57 (11 months ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

release/4/srfi27/trunk/srfi27.scm
r35456 r35473 46 46 entropysourcef64vector 47 47 ;; 48 currentrandominteger49 currentrandomreal)48 randominteger/current 49 randomreal/current) 50 50 51 51 (import scheme chicken) … … 216 216 ((@randomsourcemakeintegers (currentrandomsource))) ) 217 217 218 (: currentrandominteger (deprecated currentrandominteger))219 (define currentrandominteger currentrandominteger)220 221 218 (: currentrandomreal (> float)) 222 219 ; 223 220 (define (currentrandomreal) 224 221 ((@randomsourcemakereals (currentrandomsource)) #f) ) 225 226 (: currentrandomreal (deprecated currentrandomreal))227 (define currentrandomreal currentrandomreal)228 222 229 223 (: makerandomsource (#!optional randomsource > randomsource)) … … 323 317 ((@randomsourcemakeintegers (checkrandomsource 'randomsourcemakeintegers rs))) ) 324 318 325 (: randomsourcemake integers (randomsource #!optional fixnum > randomrealfunction))319 (: randomsourcemakereals (randomsource #!optional fixnum > randomrealfunction)) 326 320 ; 327 321 (define (randomsourcemakereals rs #!optional prec) … … 342 336 (and prec (checkrealprecision 'randomsourcemakef64vectors prec 'precision))) ) 343 337 338 ;;; 339 340 (: randominteger/current (deprecated currentrandominteger)) 341 (define randominteger/current currentrandominteger) 342 343 (: randomreal/current (deprecated currentrandomreal)) 344 (define randomreal/current currentrandomreal) 345 344 346 ) ;module srfi27
Note: See TracChangeset
for help on using the changeset viewer.