From be2326f351467112d32c9e7056922bfac01acc42 Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Sun, 17 Jul 2016 23:43:16 +0200
Subject: [PATCH] unquoting fix.

---
 mes.c | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/mes.c b/mes.c
index d0afe834..e09c82e9 100644
--- a/mes.c
+++ b/mes.c
@@ -214,16 +214,20 @@ quasiquote (scm *x)
 }
 
 scm *
-unquote (scm *x)
+unquote (scm *x) //int must not add to environment
 {
   return cons (&scm_symbol_unquote, x);
 }
+scm *unquote (scm *x);
+scm scm_unquote = {FUNCTION1, .name="unquote", .function1=&unquote};
 
 scm *
-unquote_splicing (scm *x)
+unquote_splicing (scm *x) //int must not add to environment
 {
   return cons (&scm_symbol_unquote_splicing, x);
 }
+scm *unquote_splicing (scm *x);
+scm scm_unquote_splicing = {FUNCTION1, .name="unquote-splicing", .function1=&unquote_splicing};
 #endif
 
 //Library functions