ffi: simple typedef mechanism.

* ffi.c (ffi_typedef_hash): New static variable.
(ffi_type_compile): Handle undefined atom case by trying
through typedef hash.
(ffi_typedef): New function.
(ffi_init): gc-protect ffi_type_compile variable and
initialize it with a hash table. Register ffi-typedef
intrinsic.

* ffi.h (ffi_typedef): Declared

1 files changed, 1 insertions, 0 deletions

diff --git a/ffi.h b/ffi.h
index 88da4deb..df9e9628 100644
--- a/ffi.h
+++ b/ffi.h
@@ -57,4 +57,5 @@ val ffi_make_closure(val fun, val call_desc);
 mem_t *ffi_closure_get_fptr(val closure);
 val ffi_call_wrap(val ffi_call_desc, val fptr, val args);
 val ffi_copy_type(val type);
+val ffi_typedef(val name, val type);
 void ffi_init(void);