summaryrefslogtreecommitdiffstats
path: root/lisplib.c
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2019-03-08 08:31:00 -0800
committerKaz Kylheku <kaz@kylheku.com>2019-03-08 08:31:00 -0800
commit685c906b541ff7d457d2dd555f513ed93016bf75 (patch)
treea75ce3dbc89e0b06ff37685d7f7ad755eb217c8d /lisplib.c
parentfe533f82ee26d0bf98468f25b263e8f8461f309e (diff)
downloadtxr-685c906b541ff7d457d2dd555f513ed93016bf75.tar.gz
txr-685c906b541ff7d457d2dd555f513ed93016bf75.tar.bz2
txr-685c906b541ff7d457d2dd555f513ed93016bf75.zip
structs: fix missing lnew operator.
* lisplib.c (struct_set_entries): Add missing entry for lnew in the name array. This is not just a missing auto-load issue. Because we don't intern the symbol, struct.tl ends up defining a sys:lnew macro, and not usr:lnew. The symbol usr:lnew doesn't exist and so when application code tries to use lnew, it's trying to invoke pub:lnew.
Diffstat (limited to 'lisplib.c')
-rw-r--r--lisplib.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisplib.c b/lisplib.c
index a3f0e9f6..cbbbf701 100644
--- a/lisplib.c
+++ b/lisplib.c
@@ -208,8 +208,8 @@ static val struct_set_entries(val dlt, val fun)
lit("define-method"), lit("rslotset"), nil
};
val name[] = {
- lit("defstruct"), lit("qref"), lit("uref"), lit("new"), lit("meth"),
- lit("umeth"), lit("usl"), lit("defmeth"), lit("rslot"), nil
+ lit("defstruct"), lit("qref"), lit("uref"), lit("new"), lit("lnew"),
+ lit("meth"), lit("umeth"), lit("usl"), lit("defmeth"), lit("rslot"), nil
};
set_dlt_entries_sys(dlt, sys_name, fun);