Changeset 33881 in project


Ignore:
Timestamp:
03/04/17 21:38:57 (3 months ago)
Author:
kon
Message:

rel 3.4.1

Location:
wiki/eggref/4
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • wiki/eggref/4/srfi-19

    r33845 r33881  
    773773== Version history
    774774
     775; 3.4.1 : fix nanosecond squared value in date
    775776; 3.4.0 : add {{TIME-FINE-GRAIN}}, generalize {{make-time}}, add {{date-adjust}}.
    776777; 3.3.6 : Update leap second table.
  • wiki/eggref/4/srfi-27

    r28426 r33881  
    247247is used otherwise a new vector is returned.
    248248
     249==== entropy-source-integer
     250
     251<procedure>(entropy-source-integer ENTROPY-SOURC) => integer</procedure>
     252
     253Returns an {{integer}} from the {{ENTROPY-SOURCE}}.
     254
    249255
    250256=== Random Sources
     
    414420==== entropy-port-lifetime
    415421
    416 <procedure>(entropy-port-lifetime) => flonum</procedure>
    417 <procedure>(entropy-port-lifetime SECONDS)</procedure>
    418 
    419 Gets and sets the number of {{SECONDS}} an entropy port is kept open without
    420 any activity.
    421 
    422 {{SECONDS}} maybe {{#f}}, in which case the lifetime determined by GC finalizstion.
    423 
    424 This is not a {{parameter}}!
     422<parameter>(entropy-port-lifetime [SECONDS])</parameter>
     423
     424The number of {{SECONDS}} an entropy port is kept open without any activity.
     425
     426{{SECONDS}} is a {{positive real}} or a {{boolean}}: {{#t}}, to reset the default
     427seconds, or {{#f}}, to determine the lifetime by GC finalizstion.
    425428
    426429==== make-entropy-source/port
     
    647650
    648651(define (make-random-k-vector #!optional (k 1024))
    649   (let ((rs1 (make-random-source 'mwc)) ; or (make-random-source-mwc)
    650         (org (entropy-port-lifetime)) ) ; 'entropy-port-lifetime' is not a parameter!
    651     (entropy-port-lifetime 30) ; don't keep open port around too much
    652     (random-source-entropy-source-set! rs1 (make-entropy-source-random-device))
    653     (entropy-port-lifetime org)
     652  (let ((rs1 (make-random-source 'mwc))) ; or (make-random-source-mwc)
     653    (parameterize ((entropy-port-lifetime 30)) ; don't keep open port around too much
     654      (random-source-entropy-source-set! rs1 (make-entropy-source-random-device)) )
    654655    (make-random-vector #:randoms (make-uniform-random-integers #:high k #:low (- k) #:precision 2 #:source rs1))))
    655656</enscript>
     
    761762* The implementation API is not documented. See the source distribution.
    762763
    763 * Support for 64-bit platforms is poor. Need to provide core random
    764 integer generators which are defined over the 64-bit integer range.
    765 
    766 Currently 64-bit fixnum bounds are processed as if using a 32-bit
    767 platform. However, due to the bignum implementation results in the
    768 64-bit fixnum range are coerced to fixnum.
     764* Support for 64-bit platforms is poor. Need to provide core random integer
     765generators which are defined over the 64-bit integer range. Currently 64-bit
     766fixnum bounds are processed as if using a 32-bit platform. However, due to the
     767bignum implementation results in the 64-bit fixnum range are coerced to fixnum.
    769768
    770769
Note: See TracChangeset for help on using the changeset viewer.