summaryrefslogtreecommitdiffstats
path: root/lib.c
diff options
context:
space:
mode:
Diffstat (limited to 'lib.c')
-rw-r--r--lib.c10
1 files changed, 0 insertions, 10 deletions
diff --git a/lib.c b/lib.c
index 525a7824..4cb28c73 100644
--- a/lib.c
+++ b/lib.c
@@ -69,9 +69,7 @@
#include "struct.h"
#include "itypes.h"
#include "buf.h"
-#if HAVE_LIBFFI
#include "ffi.h"
-#endif
#include "txr.h"
#define max(a, b) ((a) > (b) ? (a) : (b))
@@ -5929,10 +5927,8 @@ val generic_funcall(val fun, struct args *args_in)
default:
callerror(fun, lit("too many arguments"));
}
-#if HAVE_LIBFFI
} else if (fun->co.cls == carray_s) {
goto carray;
-#endif
} else if (structp(fun)) {
fun = method(fun, lambda_s);
break;
@@ -9202,10 +9198,8 @@ val ref(val seq, val ind)
case COBJ:
if (seq->co.cls == hash_s)
return gethash(seq, ind);
-#if HAVE_LIBFFI
if (seq->co.cls == carray_s)
return carray_ref(seq, ind);
-#endif
/* fallthrough */
case CONS:
case LCONS:
@@ -9237,10 +9231,8 @@ val refset(val seq, val ind, val newval)
case COBJ:
if (seq->co.cls == hash_s)
return sethash(seq, ind, newval);
-#if HAVE_LIBFFI
if (seq->co.cls == carray_s)
return carray_refset(seq, ind, newval);
-#endif
default:
type_mismatch(lit("ref: ~s is not a sequence"), seq, nao);
}
@@ -11068,9 +11060,7 @@ void init(mem_t *(*oom)(mem_t *, size_t), val *stack_bottom)
struct_init();
itypes_init();
buf_init();
-#if HAVE_LIBFFI
ffi_init();
-#endif
sysif_init();
arith_init();
rand_init();