From 80949873b409a54f7cb7e8defe9fe640670a1ae1 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Fri, 7 May 2021 16:44:43 +0530
Subject: Define with-rng sc macro.

* src/macros/macros.sc (with-rng): New macro.
---
 src/macros/macros.sc | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'src')

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 ...))
-- 
cgit v1.2.3