From 29758df2cc854d884cdfd2b823190f6df7dcb712 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Wed, 12 Aug 2015 20:21:31 -0400
Subject: [PATCH] Added (macro?) primitive

---
 include/cyclone/runtime.h |  2 ++
 runtime.c                 | 23 ++++++++++++++++++++---
 2 files changed, 22 insertions(+), 3 deletions(-)

diff --git a/include/cyclone/runtime.h b/include/cyclone/runtime.h
index 36239a29..cbcb10ed 100644
--- a/include/cyclone/runtime.h
+++ b/include/cyclone/runtime.h
@@ -168,6 +168,7 @@ object Cyc_is_symbol(object o);
 object Cyc_is_string(object o);
 object Cyc_is_char(object o);
 object Cyc_is_procedure(object o);
+object Cyc_is_macro(object o);
 object Cyc_is_eof_object(object o);
 object Cyc_is_cvar(object o);
 common_type Cyc_sum_op(object x, object y);
@@ -334,6 +335,7 @@ extern const object primitive_real_127;
 extern const object primitive_integer_127;
 extern const object primitive_pair_127;
 extern const object primitive_procedure_127;
+extern const object primitive_macro_127;
 extern const object primitive_port_127;
 extern const object primitive_vector_127;
 extern const object primitive_string_127;
diff --git a/runtime.c b/runtime.c
index f61a0e45..14866b6e 100644
--- a/runtime.c
+++ b/runtime.c
@@ -11,7 +11,7 @@
 
 /* Error checking section - type mismatch, num args, etc */
 /* Type names to use for error messages */
-const char *tag_names[20] = { \
+const char *tag_names[21] = { \
    "pair" \
  , "symbol" \
  , "" \
@@ -30,8 +30,9 @@ const char *tag_names[20] = { \
  , "boolean" \
  , "C primitive" \
  , "vector" \
- , "TODO: add missing type" \
- , "TODO: add missing type" };
+ , "macro" \
+ , "Reserved for future use" \
+ , "Reserved for future use" };
 
 void Cyc_invalid_type_error(int tag, object found) {
   char buf[256];
@@ -753,6 +754,17 @@ object Cyc_is_procedure(object o) {
     return boolean_f;
 }
 
+object Cyc_is_macro(object o) {
+    int tag;
+    if (!nullp(o) && !is_value_type(o)) {
+        tag = type_of(o);
+        if (tag == macro_tag) {
+          return boolean_t;
+        }
+    }
+    return boolean_f;
+}
+
 object Cyc_is_eof_object(object o) {
     if (!nullp(o) && !is_value_type(o) && type_of(o) == eof_tag)
         return boolean_t;
@@ -1619,6 +1631,9 @@ void _pair_127(object cont, object args) {
 void _procedure_127(object cont, object args) {
     Cyc_check_num_args("procedure?", 1, args);
     return_funcall1(cont, Cyc_is_procedure(car(args))); }
+void _macro_127(object cont, object args) {
+    Cyc_check_num_args("macro?", 1, args);
+    return_funcall1(cont, Cyc_is_macro(car(args))); }
 void _port_127(object cont, object args) {
     Cyc_check_num_args("port?", 1, args);
     return_funcall1(cont, Cyc_is_port(car(args))); }
@@ -2461,6 +2476,7 @@ static primitive_type real_127_primitive = {primitive_tag, "real?", &_real_127};
 static primitive_type integer_127_primitive = {primitive_tag, "integer?", &_integer_127};
 static primitive_type pair_127_primitive = {primitive_tag, "pair?", &_pair_127};
 static primitive_type procedure_127_primitive = {primitive_tag, "procedure?", &_procedure_127};
+static primitive_type macro_127_primitive = {primitive_tag, "macro?", &_macro_127};
 static primitive_type port_127_primitive = {primitive_tag, "port?", &_port_127};
 static primitive_type vector_127_primitive = {primitive_tag, "vector?", &_vector_127};
 static primitive_type string_127_primitive = {primitive_tag, "string?", &_string_127};
@@ -2577,6 +2593,7 @@ const object primitive_real_127 = &real_127_primitive;
 const object primitive_integer_127 = &integer_127_primitive;
 const object primitive_pair_127 = &pair_127_primitive;
 const object primitive_procedure_127 = &procedure_127_primitive;
+const object primitive_macro_127 = &macro_127_primitive;
 const object primitive_string_127 = &string_127_primitive;
 const object primitive_port_127 = &port_127_primitive;
 const object primitive_vector_127 = &vector_127_primitive;