nbytes);
}
+Lisp_Object xsymbol_fn;
+Lisp_Object symbol_function_fn;
+
static int main2 (void *, int, char **);
int
main (int argc, char **argv)
{
- /* Override Guile's libgc configuration. */
- xputenv ("GC_ALL_INTERIOR_POINTERS=1");
scm_boot_guile (argc, argv, main2, NULL);
}
"lisp-string?",
scm_c_make_gsubr ("stringp", 1, 0, 0, Fstringp));
+ xsymbol_fn = scm_c_public_ref ("language elisp runtime", "symbol-desc");
+ symbol_function_fn = scm_c_public_ref ("language elisp runtime", "symbol-function");
+
init_guile ();
init_fns_once ();
init_obarray ();
syms_of_floatfns ();
syms_of_buffer ();
- syms_of_bytecode ();
syms_of_callint ();
syms_of_casefiddle ();
syms_of_casetab ();
#endif /* HAVE_W32NOTIFY */
#endif /* WINDOWSNT */
- syms_of_profiler ();
-
keys_of_casefiddle ();
keys_of_cmds ();
keys_of_buffer ();