From 5752f6ace59f62b397fd180d8c531ad516ca688e Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Wed, 17 Oct 2018 18:48:18 -0400
Subject: [PATCH] Added alloca_pair

---
 include/cyclone/types.h | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/include/cyclone/types.h b/include/cyclone/types.h
index 06cf71ca..70f0b672 100644
--- a/include/cyclone/types.h
+++ b/include/cyclone/types.h
@@ -1095,6 +1095,14 @@ typedef pair_type *pair;
   n.pair_car = a; \
   n.pair_cdr = d;
 
+#define alloca_pair(n,a,d) \
+  pair_type *n = alloca(sizeof(pair_type)); \
+  n->hdr.mark = gc_color_red; \
+  n->hdr.grayed = 0; \
+  n->tag = pair_tag; \
+  n->pair_car = a; \
+  n->pair_cdr = d;
+
 #define set_pair(n,a,d) \
   n->hdr.mark = gc_color_red; \
   n->hdr.grayed = 0; \