From 5cd8a31d61289594cb582c7e82b60a3911fe085a Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Wed, 23 May 2018 21:34:57 -0700
Subject: awk: bugfix: autoload on sys:awk-state.

The problem is that compiled code which uses the awk macro
won't load because it invokes make-struct for the unknown
sys:awk-state type. Interpreted code doesn't have the problem
because it has to expand the awk macro from scratch to
generate the make-struct call, and the awk macro triggers
the autoload.

* lisplib.c (awk_set_entries): Add sys:awk-state to autoload
list for awk.tl.
---
 lisplib.c | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'lisplib.c')

diff --git a/lisplib.c b/lisplib.c
index bee38589..b168552c 100644
--- a/lisplib.c
+++ b/lisplib.c
@@ -392,6 +392,9 @@ static val termios_instantiate(val set_fun)
 
 static val awk_set_entries(val dlt, val fun)
 {
+  val sys_name[] = {
+    lit("awk-state"), nil
+  };
   val name[] = {
     lit("awk"), nil
   };
@@ -405,6 +408,7 @@ static val awk_set_entries(val dlt, val fun)
     lit("<-"), lit("!>"), lit("<!"), lit("prn"), nil
   };
 
+  set_dlt_entries_sys(dlt, sys_name, fun);
   set_dlt_entries(dlt, name, fun);
   intern_only(name_noload);
   return nil;
-- 
cgit v1.2.3