Changeset 35515 in project


Ignore:
Timestamp:
05/01/18 22:12:18 (3 months ago)
Author:
kon
Message:

rel 3.4.1

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

Legend:

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

    r35514 r35515  
    7575  ;scrub keyword arguments
    7676  (let* (
    77       (rest (pull-rest-argument rest0) )
    78       (srcs0
    79         (if (null? rest)
    80           (error 'composite-entropy-source-constructor "no entropy-sources to combine")
    81           (map (cut check-entropy-source 'composite-entropy-source-constructor <>) rest) ) ) )
     77    (rest (pull-rest-argument rest0) )
     78    (srcs0
     79      (if (null? rest)
     80        (error 'composite-entropy-source-constructor "no entropy-sources to combine")
     81        (map (cut check-entropy-source 'composite-entropy-source-constructor <>) rest) ) ) )
    8282    ;collect features
    8383    (let loop ((srcs srcs0) (names '()) (docus '()))
     
    104104(define (*composite-entropy-source-constructor comb-int comb-real def-name def-docu srcs)
    105105  (let (
    106       (u8proc
    107         (lambda ()
    108           (comb-int
    109             (map
    110               (lambda (es)
    111                 ((@entropy-source-u8 es)) )
    112               srcs)
    113             255) ) )
    114       (f64proc
    115         (lambda ()
    116           (comb-real
    117             (map
    118               (lambda (es)
    119                 ((@entropy-source-f64 es)) )
    120               srcs)
    121             #f) ) ) )
     106    (u8proc
     107      (lambda ()
     108        (comb-int
     109          (map
     110            (lambda (es)
     111              ((@entropy-source-u8 es)) )
     112            srcs)
     113          255) ) )
     114    (f64proc
     115      (lambda ()
     116        (comb-real
     117          (map
     118            (lambda (es)
     119              ((@entropy-source-f64 es)) )
     120            srcs)
     121          #f) ) ) )
    122122    (letrec (
    123123        (ctor
  • release/4/srfi-27/trunk/composite-random-source.scm

    r35514 r35515  
    105105          srcs0)
    106106        ;else collect info
    107         (let (
    108           (rs (car srcs)) )
     107        (let ((rs (car srcs)))
    109108          (loop
    110109            (cdr srcs)
Note: See TracChangeset for help on using the changeset viewer.