diff options
Diffstat (limited to 'lib.c')
-rw-r--r-- | lib.c | 10 |
1 files changed, 0 insertions, 10 deletions
@@ -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(); |