summaryrefslogtreecommitdiffstats
path: root/lisplib.c
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2017-06-13 21:08:23 -0700
committerKaz Kylheku <kaz@kylheku.com>2017-06-13 21:08:23 -0700
commit04083a6ce6e16ed8af92996ab85cd740fd19759a (patch)
tree6fa05aa0c800dcbf1978fb8d63e02e5f796a146a /lisplib.c
parent9b64a129d691fa3e4a08dacbd6e2c697bb4a857f (diff)
downloadtxr-04083a6ce6e16ed8af92996ab85cd740fd19759a.tar.gz
txr-04083a6ce6e16ed8af92996ab85cd740fd19759a.tar.bz2
txr-04083a6ce6e16ed8af92996ab85cd740fd19759a.zip
ffi: turn carray-sub into accessor.
* lisplib.c (ffi_set_entries): Register carray-sub for autoload. * share/txr/stdlib/ffi.tl (carray-sub): New place macro, aliases to sub. This is not 100% correct since that means it will admit non-carray objects, but the alternative is to clone the entire sub expander with a few changes, or else factor out sub expansion into a shared routine. Bleh ... * txr.1: Documented. We don't cover up the ruse we perpetrated, and reveal that it's just a place macro targetting sub.
Diffstat (limited to 'lisplib.c')
-rw-r--r--lisplib.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisplib.c b/lisplib.c
index 2b57c578..3e57d627 100644
--- a/lisplib.c
+++ b/lisplib.c
@@ -526,7 +526,7 @@ static val ffi_set_entries(val dlt, val fun)
lit("with-dyn-lib"), lit("deffi"), lit("deffi-type"), lit("deffi-cb"),
lit("deffi-var"), lit("typedef"), lit("sizeof"), lit("alignof"),
lit("offsetof"), lit("arraysize"), lit("elemsize"), lit("elemtype"),
- lit("ffi"), lit("carray-ref"),
+ lit("ffi"), lit("carray-ref"), lit("carray-sub"),
nil
};
set_dlt_entries(dlt, name, fun);