summaryrefslogtreecommitdiffstats
path: root/lisplib.c
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2017-07-02 16:53:35 -0700
committerKaz Kylheku <kaz@kylheku.com>2017-07-02 16:53:35 -0700
commitdb8aeddade93adde5c9e4e14888fb53a64bdc377 (patch)
tree6dfd4da1fe1b21f3e57053e19ebfe49a6d7bd0da /lisplib.c
parent3d85925c3f209bed8703e4901ce3a28de89deea4 (diff)
downloadtxr-db8aeddade93adde5c9e4e14888fb53a64bdc377.tar.gz
txr-db8aeddade93adde5c9e4e14888fb53a64bdc377.tar.bz2
txr-db8aeddade93adde5c9e4e14888fb53a64bdc377.zip
ffi: new make-zstruct function and znew macro.
* ffi.c (make_zstruct): New function. (ffi_init): Register make-zstruct instrinsic. * ffi.h (make_zstruct): Declared. * lisplib.c (ffi_set_entries): Add znew to autload list. * share/txr/stdlib/ffi.tl (znew): New macro. * txr.1: Documented make-zstruct and znew.
Diffstat (limited to 'lisplib.c')
-rw-r--r--lisplib.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/lisplib.c b/lisplib.c
index 02c84529..9043577a 100644
--- a/lisplib.c
+++ b/lisplib.c
@@ -527,6 +527,7 @@ static val ffi_set_entries(val dlt, val fun)
lit("deffi-sym"), lit("deffi-var"), lit("typedef"), lit("sizeof"),
lit("alignof"), lit("offsetof"), lit("arraysize"), lit("elemsize"),
lit("elemtype"), lit("ffi"), lit("carray-ref"), lit("carray-sub"),
+ lit("znew"),
nil
};
set_dlt_entries(dlt, name, fun);