New equot macro: expand then suppress evaluation.

* eval.c (me_equot): New static function.
(eval_init): Register equot intrinsic macro.

* txr.1: Documented equot.

1 files changed, 9 insertions, 0 deletions

diff --git a/eval.c b/eval.c
index 53fb6ad5..a5888e9f 100644
--- a/eval.c
+++ b/eval.c
@@ -2912,6 +2912,14 @@ static val me_qquote(val form, val menv)
   return expand_qquote(second(form), qquote_s, unquote_s, splice_s);
 }
 
+static val me_equot(val form, val menv)
+{
+  if (!cdr(form) || cddr(form))
+    eval_error(form, lit("~s: one argument required"), car(form));
+
+  return rlcp(cons(quote_s, cons(expand(cadr(form), menv), nil)), form);
+}
+
 static val expand_vars(val vars, val menv, val form,
                        val *spec_p, int seq_p)
 {
@@ -5068,6 +5076,7 @@ void eval_init(void)
   reg_mac(aret_s, func_n2(me_ret_aret));
   reg_mac(qquote_s, func_n2(me_qquote));
   reg_mac(sys_qquote_s, func_n2(me_qquote));
+  reg_mac(intern(lit("equot"), user_package), func_n2(me_equot));
   reg_mac(intern(lit("pprof"), user_package), func_n2(me_pprof));
   reg_mac(when_s, func_n2(me_when));
   reg_mac(intern(lit("unless"), user_package), func_n2(me_unless));