compiler: move sys:bind-mac-error to error.tl.

The sys:bind-mac-error function is a run-time support function
for the compiler-generated code for destructuring.  But the
compiler.tl source file is a bad place for it.  It means that
compiled modules which need sys:bind-mac-error auto-load the
entire compiler. That easily creates an irresolveable cycle,
because the compiler is on top of the foodchain.

No, sys:bind-mac-error belongs in error.tl; the light-weight
module of low-dependency run-time support routines for error
reporting.

* lisplib.c (error_set_entries): Add sys:bind-mac-error symbol
here.
(compiler_set_entries): Remove it from here.

* share/txr/stdlib/compiler.tl (sys:bind-mac-error): Function
removed.

* share/txr/stdlib/error.tl (sys:bind-mac-error): Function
moved here.

1 files changed, 6 insertions, 1 deletions

diff --git a/lisplib.c b/lisplib.c
index c40cf3a2..aee8f6aa 100644
--- a/lisplib.c
+++ b/lisplib.c
@@ -532,10 +532,15 @@ static val pmac_instantiate(val set_fun)
 
 static val error_set_entries(val dlt, val fun)
 {
+  val sys_name[] = {
+    lit("bind-mac-error"),
+    nil
+  };
   val name[] = {
     lit("compile-error"), lit("compile-warning"), lit("compile-defr-warning"),
     nil
   };
+  set_dlt_entries_sys(dlt, sys_name, fun);
   set_dlt_entries(dlt, name, fun);
   return nil;
 }
@@ -658,7 +663,7 @@ static val compiler_instantiate(val set_fun)
 static val compiler_set_entries(val dlt, val fun)
 {
   val sys_name[] = {
-    lit("compiler"), lit("bind-mac-error"),
+    lit("compiler"),
     nil
   };
   val name[] = {