- symbol_module = scm_call (scm_c_public_ref ("guile", "define-module*"),
- scm_list_1 (scm_from_utf8_symbol ("elisp-symbols")),
- scm_from_locale_keyword ("pure"),
- SCM_BOOL_T,
- SCM_UNDEFINED);
- function_module = scm_call (scm_c_public_ref ("guile", "define-module*"),
- scm_list_1 (scm_from_utf8_symbol ("elisp-functions")),
- scm_from_locale_keyword ("pure"),
- SCM_BOOL_T,
- SCM_UNDEFINED);
- plist_module = scm_call (scm_c_public_ref ("guile", "define-module*"),
- scm_list_1 (scm_from_utf8_symbol ("elisp-plists")),
- scm_from_locale_keyword ("pure"),
- SCM_BOOL_T,
- SCM_UNDEFINED);
+ /* scm_c_module_define (scm_c_resolve_module ("language elisp lexer"), */
+ /* "make-lisp-string", */
+ /* scm_c_make_gsubr ("make-lisp-string", 1, 0, 0, */
+ /* string_from_scheme)); */
+ (void *) scm_c_resolve_module ("language elisp spec");
+ symbol_module = scm_c_resolve_module ("elisp-symbols");
+ function_module = scm_c_resolve_module ("elisp-functions");
+ plist_module = scm_c_resolve_module ("elisp-plists");
+ scm_set_current_module (scm_c_resolve_module ("guile-user"));