diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2019-03-08 08:31:00 -0800 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2019-03-08 08:31:00 -0800 |
commit | 685c906b541ff7d457d2dd555f513ed93016bf75 (patch) | |
tree | a75ce3dbc89e0b06ff37685d7f7ad755eb217c8d /lisplib.c | |
parent | fe533f82ee26d0bf98468f25b263e8f8461f309e (diff) | |
download | txr-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.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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); |