From 2b11e83fe2c5bee913fdd9a9fc932412f370bba8 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sun, 15 Oct 2023 18:03:32 -0700
Subject: match: bug: missing autloads.

* autoload.c (match_set_entries): We must not just intern
match-error, but load the function if it is referenced.
Likewise, we must register an autoload for sys:match-pat-error.
---
 autoload.c | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'autoload.c')

diff --git a/autoload.c b/autoload.c
index a939cbfc..a4a6ff28 100644
--- a/autoload.c
+++ b/autoload.c
@@ -837,7 +837,7 @@ static val quips_instantiate(void)
 static val match_set_entries(val fun)
 {
   val name_noload[] = {
-    lit("all*"), lit("as"), lit("with"), lit("scan"), lit("sme"), lit("match-error"),
+    lit("all*"), lit("as"), lit("with"), lit("scan"), lit("sme"),
     nil
   };
   val name[] = {
@@ -849,6 +849,11 @@ static val match_set_entries(val fun)
     lit("each-match"), lit("append-matches"),
     lit("keep-matches"), lit("each-match-product"),
     lit("append-match-products"), lit("keep-match-products"),
+    lit("match-error"),
+    nil
+  };
+  val sys_name[] = {
+    lit("match-pat-error"),
     nil
   };
   val vname[] = {
@@ -861,6 +866,7 @@ static val match_set_entries(val fun)
   };
 
   autoload_set(al_fun, name, fun);
+  autoload_sys_set(al_fun, sys_name, fun);
   autoload_set(al_var, vname, fun);
   autoload_key_set(al_key, kname, fun);
   intern_only(name_noload);
-- 
cgit v1.2.3