Changeset 35456 in project


Ignore:
Timestamp:
04/28/18 03:37:44 (6 months ago)
Author:
kon
Message:

begin typing, dep /

Location:
release/4/srfi-27/trunk
Files:
1 added
20 edited

Legend:

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

    r34208 r35456  
    2323  register-entropy-source!)
    2424
    25 (import scheme)
     25(import scheme chicken)
    2626
    27 (import chicken)
    28 
    29 (import
     27(use
    3028  (only data-structures alist-ref alist-update!)
    3129  (only srfi-1 alist-cons alist-delete!)
    32   (only type-checks define-check+error-type check-procedure check-symbol))
    33 (require-library data-structures srfi-1 type-checks)
     30  (only type-checks define-check+error-type check-procedure check-symbol)
     31  source-registration)
    3432
    35 (use source-registration)
     33;;;
     34
     35(include "srfi-27-common-types")
     36
     37;;;
    3638
    3739;;
  • release/4/srfi-27/trunk/random-source.scm

    r34967 r35456  
    2222  register-random-source!)
    2323
    24 (import scheme)
     24(import scheme chicken)
    2525
    26 (import chicken)
    27 
    28 (import
     26(use
    2927  (only data-structures alist-ref alist-update!)
    3028  (only srfi-1 alist-cons alist-delete!)
    31   (only type-checks define-check+error-type check-procedure check-symbol))
    32 (require-library data-structures srfi-1 type-checks)
    33 
    34 (use source-registration)
     29  (only type-checks define-check+error-type check-procedure check-symbol)
     30  source-registration)
    3531
    3632#; ;NO YOU 'EFFING MORON
    3733(use typed-define)
     34
     35;;;
     36
     37(include "srfi-27-common-types")
     38
     39;;;
    3840
    3941;;
     
    6264  (make-integers      @random-source-make-integers)
    6365  (make-reals         @random-source-make-reals) )
     66
    6467(define-record-type random-source
    6568  (*make-random-source
  • release/4/srfi-27/trunk/srfi-27-bernoullis.scm

    r34968 r35456  
    3434    (else      (lambda () (<= (randoms) p)))) )
    3535
    36 (define (make-random-bernoullis #!key (p 0.5) (randoms (random-real/current)))
     36(define (make-random-bernoullis #!key (p 0.5) (randoms (current-random-real)))
    3737  (check-real-unit 'make-random-bernoullis p 'p)
    3838  (check-procedure 'make-random-bernoullis randoms 'randoms)
  • release/4/srfi-27/trunk/srfi-27-binomials.scm

    r34968 r35456  
    4242            ((<= t i) n))))) )
    4343
    44 (define (make-random-binomials #!key (t 1) (p 0.5) (randoms (random-real/current)))
     44(define (make-random-binomials #!key (t 1) (p 0.5) (randoms (current-random-real)))
    4545  (check-cardinal-integer 'make-random-binomials t 't)
    4646  (check-real-unit 'make-random-binomials p 'p)
  • release/4/srfi-27/trunk/srfi-27-cauchys.scm

    r34968 r35456  
    3232    (+ median (* sigma (tan (* *pi* (- (randoms) 0.5)))))) )
    3333
    34 (define (make-random-cauchys #!key (median 0.0) (sigma 1.0) (randoms (random-real/current)))
     34(define (make-random-cauchys #!key (median 0.0) (sigma 1.0) (randoms (current-random-real)))
    3535  (check-real 'make-random-cauchys median 'median)
    3636  (check-positive-real 'make-random-cauchys sigma 'sigma)
  • release/4/srfi-27/trunk/srfi-27-erlangs.scm

    r34968 r35456  
    3232  (*make-random-gammas (exact->inexact alpha) (exact->inexact theta) randoms) )
    3333
    34 (define (make-random-erlangs #!key (alpha 1) (theta 1.0) (randoms (random-real/current)))
     34(define (make-random-erlangs #!key (alpha 1) (theta 1.0) (randoms (current-random-real)))
    3535  (check-positive-real 'make-random-erlangs alpha 'alpha)
    3636  (check-positive-real 'make-random-erlangs theta 'theta)
  • release/4/srfi-27/trunk/srfi-27-exponentials.scm

    r34968 r35456  
    3636    (lambda () (* mu (- (log (randoms)))))) )
    3737
    38 (define (make-random-exponentials #!key (mu 1.0) (randoms (random-real/current)))
     38(define (make-random-exponentials #!key (mu 1.0) (randoms (current-random-real)))
    3939  (check-real-unit 'make-random-exponentials mu 'mu)
    4040  (check-procedure 'make-random-exponentials randoms 'randoms)
  • release/4/srfi-27/trunk/srfi-27-gammas.scm

    r34968 r35456  
    7373                   (loop) ) ) ) ) ) ) ) ) )
    7474
    75 (define (make-random-gammas #!key (alpha 1.0) (theta 1.0) (randoms (random-real/current)))
     75(define (make-random-gammas #!key (alpha 1.0) (theta 1.0) (randoms (current-random-real)))
    7676  (check-positive-real 'make-random-gammas alpha 'alpha)
    7777  (check-positive-real 'make-random-gammas theta 'theta)
  • release/4/srfi-27/trunk/srfi-27-geometrics.scm

    r34968 r35456  
    3333      (+ 1 (inexact->exact (floor (/ (log (- 1.0 (randoms))) log-p)))))) )
    3434
    35 (define (make-random-geometrics #!key (p 0.5) (randoms (random-real/current)))
     35(define (make-random-geometrics #!key (p 0.5) (randoms (current-random-real)))
    3636  (check-real-unit 'make-random-geometrics p 'p)
    3737  (check-procedure 'make-random-geometrics randoms 'randoms)
  • release/4/srfi-27/trunk/srfi-27-levys.scm

    r34968 r35456  
    3535    (lambda () (let ((r (randoms))) (+ delta (* gamma (*reciprocal (* r r))))))) )
    3636
    37 (define (make-random-levys #!key (gamma 1.0) (delta 0.0) (randoms (random-real/current)))
     37(define (make-random-levys #!key (gamma 1.0) (delta 0.0) (randoms (current-random-real)))
    3838  (check-nonnegative-real 'make-random-levys delta 'delta)
    3939  (check-positive-real 'make-random-levys gamma 'gamma)
  • release/4/srfi-27/trunk/srfi-27-lognormals.scm

    r34968 r35456  
    3838      (exp (+ nmu (* (normals) nsigma))))) )
    3939
    40 (define (make-random-lognormals #!key (mu 1.0) (sigma 1.0) (randoms (random-real/current)))
     40(define (make-random-lognormals #!key (mu 1.0) (sigma 1.0) (randoms (current-random-real)))
    4141  (check-nonzero-real 'make-random-lognormals mu 'mu)
    4242  (check-nonnegative-real 'make-random-lognormals sigma 'sigma)
  • release/4/srfi-27/trunk/srfi-27-normals.scm

    r34968 r35456  
    5050                (+ mu (* sigma scale v1))))))))) )
    5151
    52 (define (make-random-normals #!key (mu 0.0) (sigma 1.0) (randoms (random-real/current)))
     52(define (make-random-normals #!key (mu 0.0) (sigma 1.0) (randoms (current-random-real)))
    5353  (check-real 'make-random-normals mu 'mu)
    5454  (check-nonzero-real 'make-random-normals sigma 'sigma)
  • release/4/srfi-27/trunk/srfi-27-paretos.scm

    r34968 r35456  
    3434    (*make-random-exponentials 1.0 (lambda () (*reciprocal (+ xmin (gammas)))))) )
    3535
    36 (define (make-random-paretos #!key (alpha 1.0) (xmin 1.0) (randoms (random-real/current)))
     36(define (make-random-paretos #!key (alpha 1.0) (xmin 1.0) (randoms (current-random-real)))
    3737  (check-positive-real 'make-random-paretos alpha 'alpha)
    3838  (check-positive-real 'make-random-paretos xmin 'xmin)
  • release/4/srfi-27/trunk/srfi-27-poissons.scm

    r34968 r35456  
    3636          ((<= prod emu) m)))) )
    3737
    38 (define (make-random-poissons #!key (mu 1.0) (randoms (random-real/current)))
     38(define (make-random-poissons #!key (mu 1.0) (randoms (current-random-real)))
    3939  (check-nonnegative-real 'make-random-poissons mu 'mu)
    4040  (check-procedure 'make-random-poissons randoms 'randoms)
  • release/4/srfi-27/trunk/srfi-27-triangles.scm

    r34968 r35456  
    4444            (- l (* d3 (sqrt (- (* d2 u) d1))))))))) )
    4545
    46 (define (make-random-triangles #!key (s 0.0) (m 0.5) (l 1.0) (randoms (random-real/current)))
     46(define (make-random-triangles #!key (s 0.0) (m 0.5) (l 1.0) (randoms (current-random-real)))
    4747  (check-real 'make-random-triangles s 's)
    4848  (check-real 'make-random-triangles m 'm)
  • release/4/srfi-27/trunk/srfi-27-vector.scm

    r34208 r35456  
    6565        (vector-set! vec j xi) ) ) ) )
    6666
    67 (define (make-random-permutations #!key (randoms (random-integer/current)))
     67(define (make-random-permutations #!key (randoms (current-random-integer)))
    6868  (lambda (n)
    6969    (*random-permutation!
     
    7373      (check-procedure 'make-random-permutations randoms 'randoms))) )
    7474
    75 (define (random-permutation! vec #!key (randoms (random-integer/current)))
     75(define (random-permutation! vec #!key (randoms (current-random-integer)))
    7676  (*random-permutation!
    7777    (check-vector 'random-permutation! vec)
     
    8080;;
    8181
    82 (define (make-random-vector #!key (randoms (random-real/current)))
     82(define (make-random-vector #!key (randoms (current-random-real)))
    8383  (lambda (n)
    8484    (vector-filled!
     
    8787      (check-procedure 'make-random-vector randoms 'randoms))) )
    8888
    89 (define (random-vector! vec #!key (randoms (random-real/current)))
     89(define (random-vector! vec #!key (randoms (current-random-real)))
    9090  (vector%-filled!
    9191    (check-vector% 'random-vector! vec)
     
    112112    (**random-hollow-sphere! vec norms) ) )
    113113
    114 (define (make-random-hollow-sphere #!key (mu 0.0) (sigma 1.0) (randoms (random-real/current)))
     114(define (make-random-hollow-sphere #!key (mu 0.0) (sigma 1.0) (randoms (current-random-real)))
    115115  (let-values (
    116116      ((norms pl)
     
    121121        norms) ) ) )
    122122
    123 (define (random-hollow-sphere! vec #!key (mu 0.0) (sigma 1.0) (randoms (random-real/current)))
     123(define (random-hollow-sphere! vec #!key (mu 0.0) (sigma 1.0) (randoms (current-random-real)))
    124124  (*random-hollow-sphere!
    125125    (check-vector% 'random-hollow-sphere! vec)
     
    144144    (**random-solid-sphere! vec randoms norms) ) )
    145145
    146 (define (make-random-solid-sphere #!key (mu 0.0) (sigma 1.0) (randoms (random-real/current)))
     146(define (make-random-solid-sphere #!key (mu 0.0) (sigma 1.0) (randoms (current-random-real)))
    147147  (let-values (
    148148      ((norms pl)
     
    153153        randoms norms) ) ) )
    154154
    155 (define (random-solid-sphere! vec #!key (mu 0.0) (sigma 1.0) (randoms (random-real/current)))
     155(define (random-solid-sphere! vec #!key (mu 0.0) (sigma 1.0) (randoms (current-random-real)))
    156156  (*random-solid-sphere!
    157157    (check-vector% 'random-solid-sphere! vec)
  • release/4/srfi-27/trunk/srfi-27-weibulls.scm

    r34968 r35456  
    3333    (lambda () (expt (* invscale (log (- 1.0 (randoms)))) invshape)) ) )
    3434
    35 (define (make-random-weibulls #!key (shape 1.0) (scale 1.0) (randoms (random-real/current)))
     35(define (make-random-weibulls #!key (shape 1.0) (scale 1.0) (randoms (current-random-real)))
    3636  (check-positive-real 'make-random-weibulls shape 'shape)
    3737  (check-positive-real 'make-random-weibulls scale 'scale)
  • release/4/srfi-27/trunk/srfi-27.meta

    r34968 r35456  
    1919 (test-depends test)
    2020 (files
    21  "srfi-27.setup" "srfi-27.meta" #;"srfi-27.release-info"
     21 "srfi-27.setup" "srfi-27.meta"
     22 "srfi-27-common-types.scm"
    2223 "srfi-27.scm"
    2324 "srfi-27-implementation"
  • release/4/srfi-27/trunk/srfi-27.scm

    r34856 r35456  
    1818  random-source-make-integers
    1919  random-source-make-reals
     20  ;
    2021  ;; Extensions
    21   ;
    2222  registered-random-sources registered-random-source
    2323  current-random-source
    24   random-integer/current random-real/current
     24  current-random-integer
     25  current-random-real
    2526  new-random-source
    2627  random-source-name random-source-kind
     
    4344  entropy-source-f64
    4445  entropy-source-u8vector
    45   entropy-source-f64vector)
    46 
    47 (import scheme)
    48 
    49 (import chicken)
    50 
    51 (import
     46  entropy-source-f64vector
     47  ;;
     48  current-random-integer
     49  current-random-real)
     50
     51(import scheme chicken)
     52
     53(use
    5254  (only data-structures alist-ref alist-update!)
    53   (only srfi-4 make-u8vector make-f64vector))
    54 (require-library data-structures srfi-4)
    55 
    56 (import (only miscmacros define-parameter))
    57 (require-library miscmacros)
    58 
    59 (import
     55  (only srfi-4 make-u8vector make-f64vector)
     56  (only miscmacros define-parameter)
    6057  (only type-errors error-argument-type warning-argument-type)
    6158  (only srfi-27-numbers check-real-precision)
    62   (only srfi-27-vector-support u8vector-filled! f64vector-filled!))
    63 (require-library
    64   type-errors
    65   srfi-27-numbers srfi-27-vector-support)
    66 
    67 (use
     59  (only srfi-27-vector-support u8vector-filled! f64vector-filled!)
    6860  type-checks srfi-4-checks
    6961  random-source mrg32k3a
    7062  entropy-source entropy-clock)
    7163
     64;;;
     65
     66(include "srfi-27-common-types")
     67
     68;;;
     69
    7270;;; Entropy Source
    7371
    7472;;
    7573
    76 (define default-entropy-source (make-entropy-source-system-clock))
    77 
    78 ;;
    79 
    80 (define-parameter current-entropy-source default-entropy-source
     74(: DEFAULT-ENTROPY-SOURCE entropy-source)
     75;
     76(define DEFAULT-ENTROPY-SOURCE (make-entropy-source-system-clock))
     77
     78;;
     79
     80(: current-entropy-source (#!optional entropy-source -> entropy-source))
     81;
     82(define-parameter current-entropy-source DEFAULT-ENTROPY-SOURCE
    8183  (lambda (x)
    8284    (cond
     
    8789        (current-entropy-source) ) ) ) )
    8890
     91;;
     92
     93(: make-entropy-source (#!optional entropy-source --> entropy-source))
     94;
    8995(define (make-entropy-source #!optional (es (current-entropy-source)))
    9096  (let (
     
    104110    (ctor) ) )
    105111
     112(: new-entropy-source (entropy-source --> entropy-source))
     113;
    106114(define (new-entropy-source es)
    107115  ((@entropy-source-constructor (check-entropy-source 'new-entropy-source es))) )
    108116
     117(: entropy-source-name (entropy-source --> entropy-source-name))
     118;
    109119(define (entropy-source-name es)
    110120  (*entropy-source-name (check-entropy-source 'entropy-source-name es)) )
     
    112122(define entropy-source-kind entropy-source-name)
    113123
     124(: entropy-source-name (entropy-source --> symbol))
     125;
    114126(define (entropy-source-documentation es)
    115127  (*entropy-source-documentation
    116128    (check-entropy-source 'entropy-source-documentation es)) )
    117129
     130(: entropy-source-u8vector (entropy-source fixnum #!optional u8vector --> u8vector))
     131;
    118132(define (entropy-source-u8vector es n #!optional vec)
    119133  ((@entropy-source-u8vector (check-entropy-source 'entropy-source-u8vector es))
     
    121135    (and vec (check-u8vector 'entropy-source-u8vector vec))) )
    122136
     137(: entropy-source-f64vector (entropy-source fixnum #!optional f64vector --> f64vector))
     138;
    123139(define (entropy-source-f64vector es n #!optional vec)
    124140  ((@entropy-source-f64vector (check-entropy-source 'entropy-source-f64vector es))
     
    126142    (and vec (check-f64vector 'entropy-source-f64vector vec))) )
    127143
     144(: entropy-source-u8 (entropy-source --> random-u8-function))
     145;
    128146(define (entropy-source-u8 es)
    129147  (@entropy-source-u8 (check-entropy-source 'entropy-source-u8 es)) )
    130148
     149(: entropy-source-f64 (entropy-source --> random-f64-function))
     150;
    131151(define (entropy-source-f64 es)
    132152  (@entropy-source-f64 (check-entropy-source 'entropy-source-f64 es)) )
     
    135155
    136156(define (*random-source-make-u8vectors rs)
    137   (let ((rndint ((@random-source-make-integers rs))))
     157  (let (
     158    (*rnd* ((@random-source-make-integers rs))) )
    138159    (lambda (n)
    139160      (u8vector-filled!
    140161        (make-u8vector (check-cardinal-integer 'random-source-make-u8vector n 'length))
    141         (lambda () (rndint 256))) ) ) )
     162        (lambda () (*rnd* 256))) ) ) )
    142163
    143164(define (*random-source-make-f64vectors rs prec)
    144   (let ((rnd ((@random-source-make-reals rs) prec)))
     165  (let (
     166    (*rnd* ((@random-source-make-reals rs) prec)) )
    145167    (lambda (n)
    146168      (f64vector-filled!
    147169        (make-f64vector (check-cardinal-integer 'random-source-make-f64vector n 'length))
    148         rnd) ) ) )
    149 
    150 ;;
    151 
     170        *rnd*) ) ) )
     171
     172;;
     173
     174(: default-random-source random-source)
     175;
    152176(define default-random-source (make-random-source-mrg32k3a))
    153177
     178(: random-integer random-integer-function)
     179;
    154180(define random-integer ((@random-source-make-integers default-random-source)))
    155181
     182(: random-real random-real-function)
     183;
    156184(define random-real ((@random-source-make-reals default-random-source) #f))
    157185
     186(: random-u8vector (fixnum --> u8vector))
     187;
    158188(define random-u8vector
    159   (let ((mkv (*random-source-make-u8vectors default-random-source)))
    160     (lambda (n) (mkv n) ) ) )
    161 
     189  (let (
     190    (*mkv* (*random-source-make-u8vectors default-random-source)) )
     191    (lambda (n) (*mkv* n) ) ) )
     192
     193(: random-f64vector (fixnum --> f64vector))
     194;
    162195(define random-f64vector
    163   (let ((mkv (*random-source-make-f64vectors default-random-source #f)))
    164     (lambda (n) (mkv n) ) ) )
    165 
    166 ;;
    167 
     196  (let (
     197    (*mkv* (*random-source-make-f64vectors default-random-source #f)) )
     198    (lambda (n) (*mkv* n) ) ) )
     199
     200;;
     201
     202(: current-random-source (#!optional random-source -> random-source))
     203;
    168204(define-parameter current-random-source default-random-source
    169205  (lambda (x)
     
    175211        (current-random-source) ) ) ) )
    176212
    177 (define (random-integer/current)
     213(: current-random-integer (--> fixnum))
     214;
     215(define (current-random-integer)
    178216  ((@random-source-make-integers (current-random-source))) )
    179217
    180 (define (random-real/current)
     218(: current-random-integer (deprecated current-random-integer))
     219(define current-random-integer current-random-integer)
     220
     221(: current-random-real (--> float))
     222;
     223(define (current-random-real)
    181224  ((@random-source-make-reals (current-random-source)) #f) )
    182225
     226(: current-random-real (deprecated current-random-real))
     227(define current-random-real current-random-real)
     228
     229(: make-random-source (#!optional random-source --> random-source))
     230;
    183231(define (make-random-source #!optional (rs (current-random-source)))
    184232  (let (
     
    198246    (ctor) ) )
    199247
     248(: new-random-source (#!optional random-source --> random-source))
     249;
    200250(define (new-random-source #!optional (rs (current-random-source)))
    201251  ((@random-source-constructor (check-random-source 'new-random-source rs))) )
    202252
     253(: random-source-name (random-source --> random-source-name))
     254;
    203255(define (random-source-name rs)
    204256  (*random-source-name
     
    207259(define random-source-kind random-source-name)
    208260
     261(: random-source-documentation (random-source --> string))
     262;
    209263(define (random-source-documentation rs)
    210264  (*random-source-documentation
    211265    (check-random-source 'random-source-documentation rs)) )
    212266
     267(: random-source-log2-period (random-source --> float))
     268;
    213269(define (random-source-log2-period rs)
    214270  (*random-source-log2-period
    215271    (check-random-source 'random-source-log2-period rs)) )
    216272
     273(: random-source-maximum-range (random-source --> float))
     274;
    217275(define (random-source-maximum-range rs)
    218276  (*random-source-maximum-range
    219277    (check-random-source 'random-source-maximum-range rs)) )
    220278
     279(: random-source-entropy-source (random-source --> (or boolean entropy-source)))
     280;
    221281(define (random-source-entropy-source rs)
    222282  (*random-source-entropy-source
    223283    (check-random-source 'random-source-entropy-source rs)) )
    224284
     285(: random-source-entropy-source-set! (random-source (or boolean entropy-source) -> void))
     286;
    225287(define (random-source-entropy-source-set! rs es)
    226288  (*random-source-entropy-source-set!
     
    229291    (and es (check-entropy-source 'random-source-entropy-source-set! es))) )
    230292
     293(: random-source-state-ref (random-source --> random-source-state))
     294;
    231295(define (random-source-state-ref rs)
    232296  ((@random-source-state-ref (check-random-source 'random-source-state-ref rs))) )
    233297
     298(: random-source-state-set! (random-source random-source-state -> void))
     299;
    234300(define (random-source-state-set! rs state)
    235301  ((@random-source-state-set! (check-random-source 'random-source-state-set! rs))
    236302    state) )
    237303
     304(: random-source-randomize! (random-source #!optional entropy-source -> void))
     305;
    238306(define (random-source-randomize! rs #!optional es)
    239307  ((@random-source-randomize! (check-random-source 'random-source-randomize! rs))
     
    243311      (current-entropy-source))) )
    244312
     313(: random-source-pseudo-randomize! (random-source fixnum fixnum -> void))
     314;
    245315(define (random-source-pseudo-randomize! rs i j)
    246316  ((@random-source-pseudo-randomize! (check-random-source 'random-source-pseudo-randomize! rs))
     
    248318    (check-cardinal-integer 'random-source-pseudo-randomize! j)) )
    249319
     320(: random-source-make-integers (random-source --> random-integer-function))
     321;
    250322(define (random-source-make-integers rs)
    251323  ((@random-source-make-integers (check-random-source 'random-source-make-integers rs))) )
    252324
     325(: random-source-make-integers (random-source #!optional fixnum --> random-real-function))
     326;
    253327(define (random-source-make-reals rs #!optional prec)
    254328  ((@random-source-make-reals (check-random-source 'random-source-make-reals rs))
    255329    (and prec (check-real-precision 'random-source-make-reals prec 'precision))) )
    256330
     331(: random-source-make-u8vectors (random-source --> random-u8vector-function))
     332;
    257333(define (random-source-make-u8vectors rs)
    258334  (*random-source-make-u8vectors
    259335    (check-random-source 'random-source-make-u8vectors rs)) )
    260336
     337(: random-source-make-u8vectors (random-source --> random-f64vector-function))
     338;
    261339(define (random-source-make-f64vectors rs #!optional prec)
    262340  (*random-source-make-f64vectors
  • release/4/srfi-27/trunk/srfi-27.setup

    r35385 r35456  
    77;; Utility Modules
    88
    9 (define utiloptn '(
     9(define UTILITY-OPTIONS '(
     10  -scrutinize
    1011  -optimize-level 3 -debug-level 0
    1112  -no-procedure-checks -no-argc-checks -no-bound-checks))
    1213
    13 (define publoptn '(
     14(define PUBLIC-OPTIONS '(
     15  -scrutinize
    1416  -optimize-level 3 -debug-level 1
    15   -no-procedure-checks))
     17  -no-procedure-checks-for-toplevel-bindings))
    1618
    17 (setup-shared-extension-module 'source-registration (extension-version "3.3.1")
    18   #:inline? #t
    19   #:types? #t
    20   #:compile-options `(-scrutinize ,@utiloptn) )
     19(setup-shared-extension-module 'source-registration (extension-version "3.4.0")
     20  #:inline? #t #:types? #t #:compile-options UTILITY-OPTIONS)
    2121
    22 (setup-shared-extension-module 'srfi-27-numbers (extension-version "3.3.1")
    23   #:inline? #t
    24   #:types? #t
    25   #:compile-options `(-scrutinize ,@utiloptn) )
     22(setup-shared-extension-module 'srfi-27-numbers (extension-version "3.4.0")
     23  #:inline? #t #:types? #t #:compile-options UTILITY-OPTIONS)
    2624
    27 (setup-shared-extension-module 'srfi-27-vector-support (extension-version "3.3.1")
    28   #:inline? #t
    29   #:types? #t
    30   #:compile-options `(-scrutinize ,@utiloptn) )
     25(setup-shared-extension-module 'srfi-27-vector-support (extension-version "3.4.0")
     26  #:inline? #t #:types? #t #:compile-options UTILITY-OPTIONS)
    3127
    3228;; Entropy Source Modules
    3329
    34 (setup-shared-extension-module 'entropy-source (extension-version "3.3.1")
    35   #:inline? #t
    36   #:types? #t
    37   #:compile-options `(-scrutinize ,@utiloptn) )
     30(setup-shared-extension-module 'entropy-source (extension-version "3.4.0")
     31  #:inline? #t #:types? #t #:compile-options UTILITY-OPTIONS)
    3832
    39 (setup-shared-extension-module 'entropy-support (extension-version "3.3.1")
    40   #:inline? #t
    41   #:types? #t
    42   #:compile-options `(-scrutinize ,@utiloptn) )
     33(setup-shared-extension-module 'entropy-support (extension-version "3.4.0")
     34  #:inline? #t #:types? #t #:compile-options UTILITY-OPTIONS)
    4335
    44 (setup-shared-extension-module 'entropy-clock (extension-version "3.3.1")
    45   #:inline? #t
    46   #:types? #t
    47   #:compile-options `(-scrutinize ,@publoptn) )
     36(setup-shared-extension-module 'entropy-clock (extension-version "3.4.0")
     37  #:inline? #t #:types? #t #:compile-options PUBLIC-OPTIONS)
    4838
    49 (setup-shared-extension-module 'entropy-procedure (extension-version "3.3.1")
    50   #:inline? #t
    51   #:types? #t
    52   #:compile-options '(
    53     -scrutinize -optimize-level 3 -debug-level 1
    54     -no-procedure-checks) )
     39(setup-shared-extension-module 'entropy-procedure (extension-version "3.4.0")
     40  #:inline? #t #:types? #t #:compile-options PUBLIC-OPTIONS)
    5541
    56 (setup-shared-extension-module 'entropy-port (extension-version "3.3.1")
    57   #:inline? #t
    58   #:types? #t
    59   #:compile-options `(-scrutinize ,@publoptn) )
     42(setup-shared-extension-module 'entropy-port (extension-version "3.4.0")
     43  #:inline? #t #:types? #t #:compile-options PUBLIC-OPTIONS)
    6044
    6145#+unix
    62 (setup-shared-extension-module 'entropy-unix (extension-version "3.3.1")
    63   #:inline? #t
    64   #:types? #t
    65   #:compile-options `(-scrutinize ,@publoptn) )
     46(setup-shared-extension-module 'entropy-unix (extension-version "3.4.0")
     47  #:inline? #t #:types? #t #:compile-options PUBLIC-OPTIONS)
    6648
    6749#|
    6850#+linux
    69 (setup-shared-extension-module 'entropy-linux (extension-version "3.3.1")
    70   #:inline? #t
    71   #:types? #t
    72   #:compile-options `(-scrutinize ,@publoptn) )
     51(setup-shared-extension-module 'entropy-linux (extension-version "3.4.0")
     52  #:inline? #t #:types? #t #:compile-options PUBLIC-OPTIONS)
    7353|#
    7454
    7555#+windows
    76 (setup-shared-extension-module 'entropy-windows (extension-version "3.3.1")
    77   #:inline? #t
    78   #:types? #t
    79   #:compile-options `(-scrutinize ,@publoptn) )
     56(setup-shared-extension-module 'entropy-windows (extension-version "3.4.0")
     57  #:inline? #t #:types? #t #:compile-options PUBLIC-OPTIONS)
    8058
    8159;; Random Source Modules
    8260
    83 (setup-shared-extension-module 'random-source (extension-version "3.3.1")
    84   #:inline? #t
    85   #:types? #t
    86   #:compile-options `(-scrutinize ,@utiloptn) )
     61(setup-shared-extension-module 'random-source (extension-version "3.4.0")
     62  #:inline? #t #:types? #t #:compile-options UTILITY-OPTIONS)
    8763
    88 (setup-shared-extension-module 'mrg32k3a (extension-version "3.3.1")
    89   #:inline? #t
    90   #:types? #t
    91   ;-c++ w/ crunch
    92   #:compile-options `(-scrutinize ,@utiloptn) )
     64;-c++ w/ crunch
     65(setup-shared-extension-module 'mrg32k3a (extension-version "3.4.0")
     66  #:inline? #t #:types? #t #:compile-options UTILITY-OPTIONS)
    9367
    94 (setup-shared-extension-module 'mwc (extension-version "3.3.1")
    95   #:inline? #t
    96   #:types? #t
    97   #:compile-options `(-scrutinize ,@utiloptn) )
     68(setup-shared-extension-module 'mwc (extension-version "3.4.0")
     69  #:inline? #t #:types? #t #:compile-options UTILITY-OPTIONS)
    9870
    99 (setup-shared-extension-module 'moa (extension-version "3.3.1")
    100   #:inline? #t
    101   #:types? #t
    102   #:compile-options `(-scrutinize ,@utiloptn) )
     71(setup-shared-extension-module 'moa (extension-version "3.4.0")
     72  #:inline? #t #:types? #t #:compile-options UTILITY-OPTIONS)
    10373
    10474#;
    105 (setup-shared-extension-module 'bsdrnd (extension-version "3.3.1")
    106   #:inline? #t
    107   #:types? #t
    108   #:compile-options `(-scrutinize ,@utiloptn) )
     75(setup-shared-extension-module 'bsdrnd (extension-version "3.4.0")
     76  #:inline? #t #:types? #t #:compile-options UTILITY-OPTIONS)
    10977
    11078;; Main Modules
    11179
    112 (setup-shared-extension-module 'srfi-27 (extension-version "3.3.1")
    113   #:inline? #t
    114   #:types? #t
    115   #:compile-options `(-scrutinize ,@publoptn) )
     80(setup-shared-extension-module 'srfi-27 (extension-version "3.4.0")
     81  #:inline? #t #:types? #t #:compile-options PUBLIC-OPTIONS)
    11682
    117 (setup-shared-extension-module 'srfi-27-uniform-random (extension-version "3.3.1")
    118   #:inline? #t
    119   #:types? #t
    120   #:compile-options `(-scrutinize ,@publoptn) )
     83(setup-shared-extension-module 'srfi-27-uniform-random (extension-version "3.4.0")
     84  #:inline? #t #:types? #t #:compile-options PUBLIC-OPTIONS)
    12185
    122 (setup-shared-extension-module 'srfi-27-distributions-support (extension-version "3.3.1")
    123   #:inline? #t
    124   #:types? #t
    125   #:compile-options `(-scrutinize ,@publoptn) )
     86(setup-shared-extension-module 'srfi-27-distributions-support (extension-version "3.4.0")
     87  #:inline? #t #:types? #t #:compile-options PUBLIC-OPTIONS)
    12688
    127 (setup-shared-extension-module 'srfi-27-bernoullis (extension-version "3.3.1")
    128   #:inline? #t
    129   #:types? #t
    130   #:compile-options `(-scrutinize ,@publoptn) )
     89(setup-shared-extension-module 'srfi-27-bernoullis (extension-version "3.4.0")
     90  #:inline? #t #:types? #t #:compile-options PUBLIC-OPTIONS)
    13191
    132 (setup-shared-extension-module 'srfi-27-binomials (extension-version "3.3.1")
    133   #:inline? #t
    134   #:types? #t
    135   #:compile-options `(-scrutinize ,@publoptn) )
     92(setup-shared-extension-module 'srfi-27-binomials (extension-version "3.4.0")
     93  #:inline? #t #:types? #t #:compile-options PUBLIC-OPTIONS)
    13694
    137 (setup-shared-extension-module 'srfi-27-cauchys (extension-version "3.3.1")
    138   #:inline? #t
    139   #:types? #t
    140   #:compile-options `(-scrutinize ,@publoptn) )
     95(setup-shared-extension-module 'srfi-27-cauchys (extension-version "3.4.0")
     96  #:inline? #t #:types? #t #:compile-options PUBLIC-OPTIONS)
    14197
    142 (setup-shared-extension-module 'srfi-27-normals (extension-version "3.3.1")
    143   #:inline? #t
    144   #:types? #t
    145   #:compile-options `(-scrutinize ,@publoptn) )
     98(setup-shared-extension-module 'srfi-27-normals (extension-version "3.4.0")
     99  #:inline? #t #:types? #t #:compile-options PUBLIC-OPTIONS)
    146100
    147101;needs normals
    148 (setup-shared-extension-module 'srfi-27-gammas (extension-version "3.3.1")
    149   #:inline? #t
    150   #:types? #t
    151   #:compile-options `(-scrutinize ,@publoptn) )
     102(setup-shared-extension-module 'srfi-27-gammas (extension-version "3.4.0")
     103  #:inline? #t #:types? #t #:compile-options PUBLIC-OPTIONS)
    152104
    153105;needs gammas
    154 (setup-shared-extension-module 'srfi-27-erlangs (extension-version "3.3.1")
    155   #:inline? #t
    156   #:types? #t
    157   #:compile-options `(-scrutinize ,@publoptn) )
     106(setup-shared-extension-module 'srfi-27-erlangs (extension-version "3.4.0")
     107  #:inline? #t #:types? #t #:compile-options PUBLIC-OPTIONS)
    158108
    159 (setup-shared-extension-module 'srfi-27-exponentials (extension-version "3.3.1")
    160   #:inline? #t
    161   #:types? #t
    162   #:compile-options `(-scrutinize ,@publoptn) )
     109(setup-shared-extension-module 'srfi-27-exponentials (extension-version "3.4.0")
     110  #:inline? #t #:types? #t #:compile-options PUBLIC-OPTIONS)
    163111
    164 (setup-shared-extension-module 'srfi-27-geometrics (extension-version "3.3.1")
    165   #:inline? #t
    166   #:types? #t
    167   #:compile-options `(-scrutinize ,@publoptn) )
     112(setup-shared-extension-module 'srfi-27-geometrics (extension-version "3.4.0")
     113  #:inline? #t #:types? #t #:compile-options PUBLIC-OPTIONS)
    168114
    169 (setup-shared-extension-module 'srfi-27-levys (extension-version "3.3.1")
    170   #:inline? #t
    171   #:types? #t
    172   #:compile-options `(-scrutinize ,@publoptn) )
     115(setup-shared-extension-module 'srfi-27-levys (extension-version "3.4.0")
     116  #:inline? #t #:types? #t #:compile-options PUBLIC-OPTIONS)
    173117
    174 (setup-shared-extension-module 'srfi-27-lognormals (extension-version "3.3.1")
    175   #:inline? #t
    176   #:types? #t
    177   #:compile-options `(-scrutinize ,@publoptn) )
     118(setup-shared-extension-module 'srfi-27-lognormals (extension-version "3.4.0")
     119  #:inline? #t #:types? #t #:compile-options PUBLIC-OPTIONS)
    178120
    179121;needs gammas exponentials
    180 (setup-shared-extension-module 'srfi-27-paretos (extension-version "3.3.1")
    181   #:inline? #t
    182   #:types? #t
    183   #:compile-options `(-scrutinize ,@publoptn) )
     122(setup-shared-extension-module 'srfi-27-paretos (extension-version "3.4.0")
     123  #:inline? #t #:types? #t #:compile-options PUBLIC-OPTIONS)
    184124
    185 (setup-shared-extension-module 'srfi-27-poissons (extension-version "3.3.1")
    186   #:inline? #t
    187   #:types? #t
    188   #:compile-options `(-scrutinize ,@publoptn) )
     125(setup-shared-extension-module 'srfi-27-poissons (extension-version "3.4.0")
     126  #:inline? #t #:types? #t #:compile-options PUBLIC-OPTIONS)
    189127
    190 (setup-shared-extension-module 'srfi-27-triangles (extension-version "3.3.1")
    191   #:inline? #t
    192   #:types? #t
    193   #:compile-options `(-scrutinize ,@publoptn) )
     128(setup-shared-extension-module 'srfi-27-triangles (extension-version "3.4.0")
     129  #:inline? #t #:types? #t #:compile-options PUBLIC-OPTIONS)
    194130
    195 (setup-shared-extension-module 'srfi-27-weibulls (extension-version "3.3.1")
    196   #:inline? #t
    197   #:types? #t
    198   #:compile-options `(-scrutinize ,@publoptn) )
     131(setup-shared-extension-module 'srfi-27-weibulls (extension-version "3.4.0")
     132  #:inline? #t #:types? #t #:compile-options PUBLIC-OPTIONS)
    199133
    200 (setup-shared-extension-module 'srfi-27-distributions (extension-version "3.3.1")
    201   #:inline? #t
    202   #:types? #t
    203   #:compile-options `(-scrutinize ,@publoptn) )
     134(setup-shared-extension-module 'srfi-27-distributions (extension-version "3.4.0")
     135  #:inline? #t #:types? #t #:compile-options PUBLIC-OPTIONS)
    204136
    205 (setup-shared-extension-module 'srfi-27-vector (extension-version "3.3.1")
    206   #:inline? #t
    207   #:types? #t
    208   #:compile-options `(-scrutinize ,@publoptn) )
     137(setup-shared-extension-module 'srfi-27-vector (extension-version "3.4.0")
     138  #:inline? #t #:types? #t #:compile-options PUBLIC-OPTIONS)
    209139
    210140;; Composite Source Modules
    211141
    212 (setup-shared-extension-module 'composite-entropy-source (extension-version "3.3.1")
    213   #:inline? #t
    214   #:types? #t
    215   #:compile-options `(-scrutinize ,@publoptn) )
     142(setup-shared-extension-module 'composite-entropy-source (extension-version "3.4.0")
     143  #:inline? #t #:types? #t #:compile-options PUBLIC-OPTIONS)
    216144
    217 (setup-shared-extension-module 'composite-random-source (extension-version "3.3.1")
    218   #:inline? #t
    219   #:types? #t
    220   #:compile-options `(-scrutinize ,@publoptn) )
     145(setup-shared-extension-module 'composite-random-source (extension-version "3.4.0")
     146  #:inline? #t #:types? #t #:compile-options PUBLIC-OPTIONS)
Note: See TracChangeset for help on using the changeset viewer.