Changeset 27249 in project


Ignore:
Timestamp:
08/14/12 19:12:03 (9 years ago)
Author:
Kon Lovett
Message:

fix for missing entropy-source arg.

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

Legend:

Unmodified
Added
Removed
  • release/4/srfi-27/tags/3.1.6/composite-random-source.scm

    r19090 r27249  
    4747                      ;
    4848                      maxrng
    49                       ;
     49                      ;entropy-source
     50                      ;FIXME provide combine entropy-source
     51                      #f
    5052                      ;state-ref
    5153                      (lambda ()
     
    9597            (comb-real (lambda (reals unit) (apply * reals))))
    9698  ; scrub keyword arguments
    97   (let ((srcs 
     99  (let ((srcs
    98100          (let loop ((isrcs srcs0) (osrcs '()))
    99101            (if (null? isrcs)
  • release/4/srfi-27/tags/3.1.6/srfi-27-vector.scm

    r22477 r27249  
    9292
    9393(define (*random-hollow-sphere! vec mu sigma randoms)
    94   (**random-hollow-sphere! vec (make-random-normals #:mu mu #:sigma sigma #:randoms randoms)) )
     94  (let-values (((norms pl) (make-random-normals #:mu mu #:sigma sigma #:randoms randoms)))
     95    (**random-hollow-sphere! vec norms) ) )
    9596
    9697(define (make-random-hollow-sphere #!key (mu 0.0) (sigma 1.0) (randoms (make-uniform-random-reals)))
    97   (let ((norms (make-random-normals #:mu mu #:sigma sigma #:randoms randoms)))
     98  (let-values (((norms pl) (make-random-normals #:mu mu #:sigma sigma #:randoms randoms)))
    9899    (lambda (n)
    99100      (check-cardinal-integer 'random-hollow-sphere n 'length)
     
    116117
    117118(define (*random-solid-sphere! vec mu sigma randoms)
    118   (**random-solid-sphere! vec randoms (make-random-normals #:mu mu #:sigma sigma #:randoms randoms)) )
     119  (let-values (((norms pl) (make-random-normals #:mu mu #:sigma sigma #:randoms randoms)))
     120    (**random-solid-sphere! vec randoms norms) ) )
    119121
    120122(define (make-random-solid-sphere #!key (mu 0.0) (sigma 1.0) (randoms (make-uniform-random-reals)))
    121   (let ((norms (make-random-normals #:mu mu #:sigma sigma #:randoms randoms)))
     123  (let-values (((norms pl) (make-random-normals #:mu mu #:sigma sigma #:randoms randoms)))
    122124    (lambda (n)
    123125      (check-cardinal-integer 'random-solid-sphere n 'length)
  • release/4/srfi-27/tags/3.1.6/srfi-27.meta

    r23813 r27249  
    88 (synopsis "Sources of Random Bits")
    99 (depends
    10         (setup-helper "1.2.0")
     10        (setup-helper "1.5.2")
    1111        (check-errors "1.9.0")
    1212        (timed-resource "1.0.1")
     
    1414        (miscmacros "2.8")
    1515        (vector-lib "1.2")
    16         (numbers "1.809")
     16        (numbers "2.8")
    1717        (synch "2.1.0"))
    1818 (files "mrg32k3a.scm" "srfi-27.meta" "srfi-27-uniform-random.scm" "mwc.scm" "srfi-27.setup" "entropy-procedure.scm" "srfi-27.release-info" "srfi-27-implementation" "srfi-27-numbers.scm" "fp-extn-w.scm" "entropy-unix.scm" "composite-random-source.scm" "entropy-source.scm" "entropy-clock.scm" "random-source.scm" "srfi-27-vector-support.scm" "srfi-27-distributions.scm" "srfi-27-vector.scm" "srfi-27.scm" "entropy-windows.scm" "moa.scm" "fp-extn-wo.scm" "entropy-support.scm" "tests/test-diehard.scm" "tests/test-confidence.scm" "tests/test-mrg32k3a.scm" "tests/run.scm" "entropy-port.scm") )
  • release/4/srfi-27/tags/3.1.6/srfi-27.setup

    r23730 r27249  
    11;;;; srfi-27.setup  -*- Hen -*-
    22
    3 (include "setup-helper")
     3(use setup-helper-mod)
    44
    55(verify-extension-name "srfi-27")
    6 
    7 (required-extension-version
    8   "timed-resource"      "1.0.1"
    9   "thread-utils"        "1.0.0"
    10   "miscmacros"          "2.8"
    11   "vector-lib"          "1.2"
    12   "synch"               "2.1.0"
    13   "numbers"             "1.809"
    14   "check-errors"        "1.9.0")
    156
    167(if (version>=? (chicken-version) "4.3.6")
     
    2011;; Utility Modules
    2112
    22 (setup-shared-extension-module 'srfi-27-numbers (extension-version "3.1.5")
     13(setup-shared-extension-module 'srfi-27-numbers (extension-version "3.1.6")
     14  #:inline? #t
     15  #:types? #t
    2316  #:compile-options '(
    2417    -scrutinize -optimize-level 3 -debug-level 0
    2518    -no-procedure-checks -no-argc-checks -no-bound-checks) )
    2619
    27 (setup-shared-extension-module 'srfi-27-vector-support (extension-version "3.1.5")
     20(setup-shared-extension-module 'srfi-27-vector-support (extension-version "3.1.6")
     21  #:inline? #t
     22  #:types? #t
    2823  #:compile-options '(
    2924    -scrutinize -optimize-level 3 -debug-level 0
     
    3227;; Entropy Source Modules
    3328
    34 (setup-shared-extension-module 'entropy-source (extension-version "3.1.5")
     29(setup-shared-extension-module 'entropy-source (extension-version "3.1.6")
     30  #:inline? #t
     31  #:types? #t
    3532  #:compile-options '(
    3633    -scrutinize -optimize-level 3 -debug-level 1
    3734    -no-procedure-checks -no-argc-checks -no-bound-checks) )
    3835
    39 (setup-shared-extension-module 'entropy-support (extension-version "3.1.5")
     36(setup-shared-extension-module 'entropy-support (extension-version "3.1.6")
     37  #:inline? #t
     38  #:types? #t
    4039  #:compile-options '(
    4140    -scrutinize -optimize-level 3 -debug-level 0
    4241    -no-procedure-checks -no-argc-checks -no-bound-checks) )
    4342
    44 (setup-shared-extension-module 'entropy-clock (extension-version "3.1.5")
     43(setup-shared-extension-module 'entropy-clock (extension-version "3.1.6")
     44  #:inline? #t
     45  #:types? #t
    4546  #:compile-options '(
    4647    -scrutinize -optimize-level 3 -debug-level 1
    4748    -no-procedure-checks) )
    4849
    49 (setup-shared-extension-module 'entropy-procedure (extension-version "3.1.5")
     50(setup-shared-extension-module 'entropy-procedure (extension-version "3.1.6")
     51  #:inline? #t
     52  #:types? #t
    5053  #:compile-options '(
    5154    -scrutinize -optimize-level 3 -debug-level 1
    5255    -no-procedure-checks) )
    5356
    54 (setup-shared-extension-module 'entropy-port (extension-version "3.1.5")
     57(setup-shared-extension-module 'entropy-port (extension-version "3.1.6")
     58  #:inline? #t
     59  #:types? #t
    5560  #:compile-options '(
    5661    -scrutinize -optimize-level 3 -debug-level 1
     
    5863
    5964#+unix
    60 (setup-shared-extension-module 'entropy-unix (extension-version "3.1.5")
     65(setup-shared-extension-module 'entropy-unix (extension-version "3.1.6")
     66  #:inline? #t
     67  #:types? #t
    6168  #:compile-options '(
    6269    -scrutinize -optimize-level 3 -debug-level 1
     
    6471
    6572#+windows
    66 (setup-shared-extension-module 'entropy-windows (extension-version "3.1.5")
     73(setup-shared-extension-module 'entropy-windows (extension-version "3.1.6")
     74  #:inline? #t
     75  #:types? #t
    6776  #:compile-options '(
    6877    -scrutinize -optimize-level 3 -debug-level 1
     
    7180;; Random Source Modules
    7281
    73 (setup-shared-extension-module 'random-source (extension-version "3.1.5")
     82(setup-shared-extension-module 'random-source (extension-version "3.1.6")
     83  #:inline? #t
     84  #:types? #t
    7485  #:compile-options '(
    7586    -scrutinize -optimize-level 3 -debug-level 1
    7687    -no-procedure-checks -no-argc-checks -no-bound-checks) )
    7788
    78 (setup-shared-extension-module 'mrg32k3a (extension-version "3.1.5")
     89(setup-shared-extension-module 'mrg32k3a (extension-version "3.1.6")
     90  #:inline? #t
     91  #:types? #t
    7992  #:compile-options '(
    8093    -scrutinize -optimize-level 3 -debug-level 0
    8194    -no-procedure-checks -no-argc-checks -no-bound-checks) )
    8295
    83 (setup-shared-extension-module 'mwc (extension-version "3.1.5")
     96(setup-shared-extension-module 'mwc (extension-version "3.1.6")
     97  #:inline? #t
     98  #:types? #t
    8499  #:compile-options '(
    85100    -scrutinize -optimize-level 3 -debug-level 0
    86101    -no-procedure-checks -no-argc-checks -no-bound-checks) )
    87102
    88 (setup-shared-extension-module 'moa (extension-version "3.1.5")
     103(setup-shared-extension-module 'moa (extension-version "3.1.6")
     104  #:inline? #t
     105  #:types? #t
    89106  #:compile-options '(
    90107    -scrutinize -optimize-level 3 -debug-level 0
    91108    -no-procedure-checks -no-argc-checks -no-bound-checks) )
    92109
    93 (setup-shared-extension-module 'composite-random-source (extension-version "3.1.5")
     110(setup-shared-extension-module 'composite-random-source (extension-version "3.1.6")
     111  #:inline? #t
     112  #:types? #t
    94113  #:compile-options '(
    95114    -scrutinize -optimize-level 3 -debug-level 1
     
    98117;; Main Modules
    99118
    100 (setup-shared-extension-module 'srfi-27 (extension-version "3.1.5")
     119(setup-shared-extension-module 'srfi-27 (extension-version "3.1.6")
     120  #:inline? #t
     121  #:types? #t
    101122  #:compile-options '(
    102123    -scrutinize -optimize-level 3 -debug-level 1
    103124    -no-procedure-checks) )
    104125
    105 (setup-shared-extension-module 'srfi-27-uniform-random (extension-version "3.1.5")
     126(setup-shared-extension-module 'srfi-27-uniform-random (extension-version "3.1.6")
     127  #:inline? #t
     128  #:types? #t
    106129  #:compile-options '(
    107130    -scrutinize -optimize-level 3 -debug-level 1
    108131    -no-procedure-checks) )
    109132
    110 (setup-shared-extension-module 'srfi-27-distributions (extension-version "3.1.5")
     133(setup-shared-extension-module 'srfi-27-distributions (extension-version "3.1.6")
     134  #:inline? #t
     135  #:types? #t
    111136  #:compile-options '(
    112137    -scrutinize -optimize-level 3 -debug-level 1
    113138    -no-procedure-checks) )
    114139
    115 (setup-shared-extension-module 'srfi-27-vector (extension-version "3.1.5")
     140(setup-shared-extension-module 'srfi-27-vector (extension-version "3.1.6")
     141  #:inline? #t
     142  #:types? #t
    116143  #:compile-options '(
    117144    -scrutinize -optimize-level 3 -debug-level 1
  • release/4/srfi-27/trunk/composite-random-source.scm

    r19090 r27249  
    4747                      ;
    4848                      maxrng
    49                       ;
     49                      ;entropy-source
     50                      ;FIXME provide combine entropy-source
     51                      #f
    5052                      ;state-ref
    5153                      (lambda ()
     
    9597            (comb-real (lambda (reals unit) (apply * reals))))
    9698  ; scrub keyword arguments
    97   (let ((srcs 
     99  (let ((srcs
    98100          (let loop ((isrcs srcs0) (osrcs '()))
    99101            (if (null? isrcs)
  • release/4/srfi-27/trunk/srfi-27-vector.scm

    r22477 r27249  
    9292
    9393(define (*random-hollow-sphere! vec mu sigma randoms)
    94   (**random-hollow-sphere! vec (make-random-normals #:mu mu #:sigma sigma #:randoms randoms)) )
     94  (let-values (((norms pl) (make-random-normals #:mu mu #:sigma sigma #:randoms randoms)))
     95    (**random-hollow-sphere! vec norms) ) )
    9596
    9697(define (make-random-hollow-sphere #!key (mu 0.0) (sigma 1.0) (randoms (make-uniform-random-reals)))
    97   (let ((norms (make-random-normals #:mu mu #:sigma sigma #:randoms randoms)))
     98  (let-values (((norms pl) (make-random-normals #:mu mu #:sigma sigma #:randoms randoms)))
    9899    (lambda (n)
    99100      (check-cardinal-integer 'random-hollow-sphere n 'length)
     
    116117
    117118(define (*random-solid-sphere! vec mu sigma randoms)
    118   (**random-solid-sphere! vec randoms (make-random-normals #:mu mu #:sigma sigma #:randoms randoms)) )
     119  (let-values (((norms pl) (make-random-normals #:mu mu #:sigma sigma #:randoms randoms)))
     120    (**random-solid-sphere! vec randoms norms) ) )
    119121
    120122(define (make-random-solid-sphere #!key (mu 0.0) (sigma 1.0) (randoms (make-uniform-random-reals)))
    121   (let ((norms (make-random-normals #:mu mu #:sigma sigma #:randoms randoms)))
     123  (let-values (((norms pl) (make-random-normals #:mu mu #:sigma sigma #:randoms randoms)))
    122124    (lambda (n)
    123125      (check-cardinal-integer 'random-solid-sphere n 'length)
  • release/4/srfi-27/trunk/srfi-27.meta

    r23813 r27249  
    88 (synopsis "Sources of Random Bits")
    99 (depends
    10         (setup-helper "1.2.0")
     10        (setup-helper "1.5.2")
    1111        (check-errors "1.9.0")
    1212        (timed-resource "1.0.1")
     
    1414        (miscmacros "2.8")
    1515        (vector-lib "1.2")
    16         (numbers "1.809")
     16        (numbers "2.8")
    1717        (synch "2.1.0"))
    1818 (files "mrg32k3a.scm" "srfi-27.meta" "srfi-27-uniform-random.scm" "mwc.scm" "srfi-27.setup" "entropy-procedure.scm" "srfi-27.release-info" "srfi-27-implementation" "srfi-27-numbers.scm" "fp-extn-w.scm" "entropy-unix.scm" "composite-random-source.scm" "entropy-source.scm" "entropy-clock.scm" "random-source.scm" "srfi-27-vector-support.scm" "srfi-27-distributions.scm" "srfi-27-vector.scm" "srfi-27.scm" "entropy-windows.scm" "moa.scm" "fp-extn-wo.scm" "entropy-support.scm" "tests/test-diehard.scm" "tests/test-confidence.scm" "tests/test-mrg32k3a.scm" "tests/run.scm" "entropy-port.scm") )
  • release/4/srfi-27/trunk/srfi-27.setup

    r23730 r27249  
    11;;;; srfi-27.setup  -*- Hen -*-
    22
    3 (include "setup-helper")
     3(use setup-helper-mod)
    44
    55(verify-extension-name "srfi-27")
    6 
    7 (required-extension-version
    8   "timed-resource"      "1.0.1"
    9   "thread-utils"        "1.0.0"
    10   "miscmacros"          "2.8"
    11   "vector-lib"          "1.2"
    12   "synch"               "2.1.0"
    13   "numbers"             "1.809"
    14   "check-errors"        "1.9.0")
    156
    167(if (version>=? (chicken-version) "4.3.6")
     
    2011;; Utility Modules
    2112
    22 (setup-shared-extension-module 'srfi-27-numbers (extension-version "3.1.5")
     13(setup-shared-extension-module 'srfi-27-numbers (extension-version "3.1.6")
     14  #:inline? #t
     15  #:types? #t
    2316  #:compile-options '(
    2417    -scrutinize -optimize-level 3 -debug-level 0
    2518    -no-procedure-checks -no-argc-checks -no-bound-checks) )
    2619
    27 (setup-shared-extension-module 'srfi-27-vector-support (extension-version "3.1.5")
     20(setup-shared-extension-module 'srfi-27-vector-support (extension-version "3.1.6")
     21  #:inline? #t
     22  #:types? #t
    2823  #:compile-options '(
    2924    -scrutinize -optimize-level 3 -debug-level 0
     
    3227;; Entropy Source Modules
    3328
    34 (setup-shared-extension-module 'entropy-source (extension-version "3.1.5")
     29(setup-shared-extension-module 'entropy-source (extension-version "3.1.6")
     30  #:inline? #t
     31  #:types? #t
    3532  #:compile-options '(
    3633    -scrutinize -optimize-level 3 -debug-level 1
    3734    -no-procedure-checks -no-argc-checks -no-bound-checks) )
    3835
    39 (setup-shared-extension-module 'entropy-support (extension-version "3.1.5")
     36(setup-shared-extension-module 'entropy-support (extension-version "3.1.6")
     37  #:inline? #t
     38  #:types? #t
    4039  #:compile-options '(
    4140    -scrutinize -optimize-level 3 -debug-level 0
    4241    -no-procedure-checks -no-argc-checks -no-bound-checks) )
    4342
    44 (setup-shared-extension-module 'entropy-clock (extension-version "3.1.5")
     43(setup-shared-extension-module 'entropy-clock (extension-version "3.1.6")
     44  #:inline? #t
     45  #:types? #t
    4546  #:compile-options '(
    4647    -scrutinize -optimize-level 3 -debug-level 1
    4748    -no-procedure-checks) )
    4849
    49 (setup-shared-extension-module 'entropy-procedure (extension-version "3.1.5")
     50(setup-shared-extension-module 'entropy-procedure (extension-version "3.1.6")
     51  #:inline? #t
     52  #:types? #t
    5053  #:compile-options '(
    5154    -scrutinize -optimize-level 3 -debug-level 1
    5255    -no-procedure-checks) )
    5356
    54 (setup-shared-extension-module 'entropy-port (extension-version "3.1.5")
     57(setup-shared-extension-module 'entropy-port (extension-version "3.1.6")
     58  #:inline? #t
     59  #:types? #t
    5560  #:compile-options '(
    5661    -scrutinize -optimize-level 3 -debug-level 1
     
    5863
    5964#+unix
    60 (setup-shared-extension-module 'entropy-unix (extension-version "3.1.5")
     65(setup-shared-extension-module 'entropy-unix (extension-version "3.1.6")
     66  #:inline? #t
     67  #:types? #t
    6168  #:compile-options '(
    6269    -scrutinize -optimize-level 3 -debug-level 1
     
    6471
    6572#+windows
    66 (setup-shared-extension-module 'entropy-windows (extension-version "3.1.5")
     73(setup-shared-extension-module 'entropy-windows (extension-version "3.1.6")
     74  #:inline? #t
     75  #:types? #t
    6776  #:compile-options '(
    6877    -scrutinize -optimize-level 3 -debug-level 1
     
    7180;; Random Source Modules
    7281
    73 (setup-shared-extension-module 'random-source (extension-version "3.1.5")
     82(setup-shared-extension-module 'random-source (extension-version "3.1.6")
     83  #:inline? #t
     84  #:types? #t
    7485  #:compile-options '(
    7586    -scrutinize -optimize-level 3 -debug-level 1
    7687    -no-procedure-checks -no-argc-checks -no-bound-checks) )
    7788
    78 (setup-shared-extension-module 'mrg32k3a (extension-version "3.1.5")
     89(setup-shared-extension-module 'mrg32k3a (extension-version "3.1.6")
     90  #:inline? #t
     91  #:types? #t
    7992  #:compile-options '(
    8093    -scrutinize -optimize-level 3 -debug-level 0
    8194    -no-procedure-checks -no-argc-checks -no-bound-checks) )
    8295
    83 (setup-shared-extension-module 'mwc (extension-version "3.1.5")
     96(setup-shared-extension-module 'mwc (extension-version "3.1.6")
     97  #:inline? #t
     98  #:types? #t
    8499  #:compile-options '(
    85100    -scrutinize -optimize-level 3 -debug-level 0
    86101    -no-procedure-checks -no-argc-checks -no-bound-checks) )
    87102
    88 (setup-shared-extension-module 'moa (extension-version "3.1.5")
     103(setup-shared-extension-module 'moa (extension-version "3.1.6")
     104  #:inline? #t
     105  #:types? #t
    89106  #:compile-options '(
    90107    -scrutinize -optimize-level 3 -debug-level 0
    91108    -no-procedure-checks -no-argc-checks -no-bound-checks) )
    92109
    93 (setup-shared-extension-module 'composite-random-source (extension-version "3.1.5")
     110(setup-shared-extension-module 'composite-random-source (extension-version "3.1.6")
     111  #:inline? #t
     112  #:types? #t
    94113  #:compile-options '(
    95114    -scrutinize -optimize-level 3 -debug-level 1
     
    98117;; Main Modules
    99118
    100 (setup-shared-extension-module 'srfi-27 (extension-version "3.1.5")
     119(setup-shared-extension-module 'srfi-27 (extension-version "3.1.6")
     120  #:inline? #t
     121  #:types? #t
    101122  #:compile-options '(
    102123    -scrutinize -optimize-level 3 -debug-level 1
    103124    -no-procedure-checks) )
    104125
    105 (setup-shared-extension-module 'srfi-27-uniform-random (extension-version "3.1.5")
     126(setup-shared-extension-module 'srfi-27-uniform-random (extension-version "3.1.6")
     127  #:inline? #t
     128  #:types? #t
    106129  #:compile-options '(
    107130    -scrutinize -optimize-level 3 -debug-level 1
    108131    -no-procedure-checks) )
    109132
    110 (setup-shared-extension-module 'srfi-27-distributions (extension-version "3.1.5")
     133(setup-shared-extension-module 'srfi-27-distributions (extension-version "3.1.6")
     134  #:inline? #t
     135  #:types? #t
    111136  #:compile-options '(
    112137    -scrutinize -optimize-level 3 -debug-level 1
    113138    -no-procedure-checks) )
    114139
    115 (setup-shared-extension-module 'srfi-27-vector (extension-version "3.1.5")
     140(setup-shared-extension-module 'srfi-27-vector (extension-version "3.1.6")
     141  #:inline? #t
     142  #:types? #t
    116143  #:compile-options '(
    117144    -scrutinize -optimize-level 3 -debug-level 1
Note: See TracChangeset for help on using the changeset viewer.