Fix non-working quasiquote over struct literals.

Turns out that there is missing support for quasiquoting
over structs. Code analogous to the way vector and hash
literals are handled is missing for structs.

* eval.c (expand_qquote_rec): Handle struct_lit_s forms
specially, like hash_lit_s and vector_lit_s.
commit 1e5bc5708d5763f20a7774f9348e825304a51adc

* struct.c (make_struct_lit_s): New symbol variable.
(struct_init): Store interned sys:make-struct-lit symbol
into make_struct_lit_s, and use that to register the
function.

* struct.h (make_struct_lit_s): Declared.

* tests/012/struct.tl: Update struct literal quasiquote
test cases to reflect fixed behavior.

1 files changed, 1 insertions, 1 deletions

diff --git a/struct.h b/struct.h
index cf1ef26a..ab3e7037 100644
--- a/struct.h
+++ b/struct.h
@@ -25,7 +25,7 @@
  * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  */
 
-extern val struct_type_s, meth_s;
+extern val struct_type_s, meth_s, make_struct_lit_s;
 val make_struct_type(val name, val super,
                      val static_slots, val slots,
                      val static_initfun, val initfun, val boactor,