--- gforth/libffi.fs	2008/03/16 21:39:59	1.16
+++ gforth/libffi.fs	2008/04/22 14:50:59	1.19
@@ -23,6 +23,10 @@
 
 require libcc.fs
 
+s" libffi" open-lib 0= [if]
+    .( cannot open libffi ) cr abort
+[then]
+
 \c #include <ffi.h>
 \c static Cell *gforth_RP;
 \c static char *gforth_LP;
@@ -78,7 +82,7 @@ c-function ffi-prep-cif ffi_prep_cif1 a
 \c                      (void *)a_rvalue, (void **)a_avalues)
 c-function ffi-call ffi_call1 a a a a -- void
 
-\c #define ffi-prep-closure1(a_ip, a_cif, a_closure) \
+\c #define ffi_prep_closure1(a_ip, a_cif, a_closure) \
 \c              ffi_prep_closure((ffi_closure *)a_closure, (ffi_cif *)a_cif, gforth_callback_ffi, (void *)a_ip)
 c-function ffi-prep-closure a a a -- n