diff options
| author | Arun Isaac | 2021-05-07 16:45:28 +0530 |
|---|---|---|
| committer | Arun Isaac | 2021-05-07 17:05:07 +0530 |
| commit | 4224e183522b696e60556c8ea88dec5409d8a746 (patch) | |
| tree | 732799e61eb3032fabdcfb9960f22d63097ea966 | |
| parent | 80949873b409a54f7cb7e8defe9fe640670a1ae1 (diff) | |
| download | nsmc-4224e183522b696e60556c8ea88dec5409d8a746.tar.gz nsmc-4224e183522b696e60556c8ea88dec5409d8a746.tar.lz nsmc-4224e183522b696e60556c8ea88dec5409d8a746.zip | |
Move with-rstats and define with-rstats* sc macros.
* src/extent-sampling.sc (with-rstats): Move to ...
* src/macros/macros.sc (with-rstats): ... to here.
(with-rstats*): New macro.
| -rw-r--r-- | src/extent-sampling.sc | 5 | ||||
| -rw-r--r-- | src/macros/macros.sc | 14 |
2 files changed, 14 insertions, 5 deletions
diff --git a/src/extent-sampling.sc b/src/extent-sampling.sc index 8d3693d..fb502a0 100644 --- a/src/extent-sampling.sc +++ b/src/extent-sampling.sc @@ -27,11 +27,6 @@ (pre-include "utils.h") (pre-include "extent-sampling.h") -(sc-define-syntax (with-rstats var body ...) - (with-alloc var gsl-rstat-workspace* - (gsl-rstat-alloc) gsl-rstat-free - body ...)) - (sc-define-syntax (with-integration-workspace var intervals body ...) (with-alloc var gsl-integration-workspace* (gsl-integration-workspace-alloc intervals) diff --git a/src/macros/macros.sc b/src/macros/macros.sc index cf6be15..8ff799b 100644 --- a/src/macros/macros.sc +++ b/src/macros/macros.sc @@ -53,3 +53,17 @@ (with-alloc var gsl-rng* (gsl-rng-alloc gsl-rng-default) gsl-rng-free body ...)) + +(sc-define-syntax (with-rstats var body ...) + (with-alloc var gsl-rstat-workspace* + (gsl-rstat-alloc) gsl-rstat-free + body ...)) + +(sc-define-syntax (with-rstats* var n body ...) + (begin + (declare var (array gsl-rstat-workspace* 3)) + (for-i i n + (array-set var i (gsl-rstat-alloc))) + body ... + (for-i i n + (gsl-rstat-free (array-get var i))))) |