diff options
| -rw-r--r-- | src/extent-sampling.sc | 6 | ||||
| -rw-r--r-- | src/macros/macros.sc | 6 |
2 files changed, 6 insertions, 6 deletions
diff --git a/src/extent-sampling.sc b/src/extent-sampling.sc index 8cddb80..8d3693d 100644 --- a/src/extent-sampling.sc +++ b/src/extent-sampling.sc @@ -27,12 +27,6 @@ (pre-include "utils.h") (pre-include "extent-sampling.h") -(sc-define-syntax (with-vector var size body ...) - (with-alloc var gsl-vector* - (gsl-vector-alloc size) - gsl-vector-free - body ...)) - (sc-define-syntax (with-rstats var body ...) (with-alloc var gsl-rstat-workspace* (gsl-rstat-alloc) gsl-rstat-free diff --git a/src/macros/macros.sc b/src/macros/macros.sc index 5c0d578..a921f75 100644 --- a/src/macros/macros.sc +++ b/src/macros/macros.sc @@ -42,3 +42,9 @@ (let* ((var type allocate)) body ... (free var))) + +(sc-define-syntax (with-vector var size body ...) + (with-alloc var gsl-vector* + (gsl-vector-alloc size) + gsl-vector-free + body ...)) |