diff options
| author | Arun Isaac | 2021-05-07 16:44:43 +0530 |
|---|---|---|
| committer | Arun Isaac | 2021-05-07 17:04:50 +0530 |
| commit | 80949873b409a54f7cb7e8defe9fe640670a1ae1 (patch) | |
| tree | c9f3b2d8e79e39c5efb80b30a054d9c985b13608 /src/macros | |
| parent | c517ae401221da5b495fbd7b815bbafc0f087da9 (diff) | |
| download | nsmc-80949873b409a54f7cb7e8defe9fe640670a1ae1.tar.gz nsmc-80949873b409a54f7cb7e8defe9fe640670a1ae1.tar.lz nsmc-80949873b409a54f7cb7e8defe9fe640670a1ae1.zip | |
Define with-rng sc macro.
* src/macros/macros.sc (with-rng): New macro.
Diffstat (limited to 'src/macros')
| -rw-r--r-- | src/macros/macros.sc | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/macros/macros.sc b/src/macros/macros.sc index a921f75..cf6be15 100644 --- a/src/macros/macros.sc +++ b/src/macros/macros.sc @@ -48,3 +48,8 @@ (gsl-vector-alloc size) gsl-vector-free body ...)) + +(sc-define-syntax (with-rng var body ...) + (with-alloc var gsl-rng* + (gsl-rng-alloc gsl-rng-default) gsl-rng-free + body ...)) |