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. --- eval.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'eval.c') diff --git a/eval.c b/eval.c index cd99424e..db883365 100644 --- a/eval.c +++ b/eval.c @@ -97,7 +97,7 @@ val op_s, identity_s; val hash_lit_s, hash_construct_s, struct_lit_s, qref_s, uref_s; val vector_lit_s, vec_list_s; val macro_time_s, macrolet_s; -val defsymacro_s, symacrolet_s, prof_s, switch_s; +val defsymacro_s, symacrolet_s, prof_s, switch_s, struct_s; val fbind_s, lbind_s, flet_s, labels_s; val load_path_s, load_recursive_s; val load_time_s, load_time_lit_s; @@ -6142,6 +6142,7 @@ void eval_init(void) symacro_k = intern(lit("symacro"), keyword_package); prof_s = intern(lit("prof"), user_package); switch_s = intern(lit("switch"), system_package); + struct_s = intern(lit("struct"), user_package); load_path_s = intern(lit("*load-path*"), user_package); load_recursive_s = intern(lit("*load-recursive*"), system_package); load_time_s = intern(lit("load-time"), user_package); -- cgit v1.2.3