From eb7be4c854261924bb4cdb9f300e865802f9e4d9 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sat, 2 Mar 2019 10:16:31 -0800 Subject: ffi, eval: move struct_s. * eval.c (struct_s): Now defined here. (eval_init): struct now interned here. * eval.h (struct_s): Declared. * ffi.c (struct_s): Definition removed. (ffi_init) struct no longer interned here. --- ffi.c | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'ffi.c') diff --git a/ffi.c b/ffi.c index b047d859..f54ecddd 100644 --- a/ffi.c +++ b/ffi.c @@ -111,7 +111,7 @@ val le_float_s, le_double_s; val array_s, zarray_s, carray_s; -val struct_s, union_s; +val union_s; val str_d_s, wstr_s, wstr_d_s, bstr_s, bstr_d_s; @@ -5501,7 +5501,6 @@ void ffi_init(void) array_s = intern(lit("array"), user_package); zarray_s = intern(lit("zarray"), user_package); carray_s = intern(lit("carray"), user_package); - struct_s = intern(lit("struct"), user_package); union_s = intern(lit("union"), user_package); str_d_s = intern(lit("str-d"), user_package); wstr_s = intern(lit("wstr"), user_package); -- cgit v1.2.3