From 60ae5ca2a31a89b8930089f7dbfa3a99ac727383 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Fri, 27 Mar 2009 18:40:15 -0700 Subject: frame, program, objcode, etc inits use load-extension * libguile/extensions.h: Define a scm_t_extension_init_func. * libguile/frames.c: * libguile/instructions.c: * libguile/objcodes.c: * libguile/programs.c: * libguile/vm.c: Register extension init funcs. Should play nicer with a static Guile, in addition to working on Darwin with non-default installation prefixes without munging DYLD_LIBRARY_PATH. * module/system/vm/frame.scm: * module/system/vm/instruction.scm: * module/system/vm/objcode.scm: * module/system/vm/program.scm: * module/system/vm/vm.scm: Use load-extension. --- libguile/objcodes.c | 2 ++ 1 file changed, 2 insertions(+) (limited to 'libguile/objcodes.c') diff --git a/libguile/objcodes.c b/libguile/objcodes.c index 3e30b2d60..c53cf2253 100644 --- a/libguile/objcodes.c +++ b/libguile/objcodes.c @@ -266,6 +266,8 @@ scm_bootstrap_objcodes (void) { scm_tc16_objcode = scm_make_smob_type ("objcode", 0); scm_set_smob_mark (scm_tc16_objcode, objcode_mark); + scm_c_register_extension ("libguile", "scm_init_objcodes", + (scm_t_extension_init_func)scm_init_objcodes, NULL); } /* Before, we used __BYTE_ORDER, but that is not defined on all -- cgit v1.2.3