diff options
author | Andy Wingo <wingo@pobox.com> | 2009-03-27 18:40:15 -0700 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2009-03-27 18:40:15 -0700 |
commit | 60ae5ca2a31a89b8930089f7dbfa3a99ac727383 (patch) | |
tree | 42d85b9e6f80a794667e852605584cec428ea69a /libguile/programs.c | |
parent | 845952664b24861b40d23660bb4509a967d1a271 (diff) | |
download | guile-60ae5ca2a31a89b8930089f7dbfa3a99ac727383.tar.gz |
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.
Diffstat (limited to 'libguile/programs.c')
-rw-r--r-- | libguile/programs.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/libguile/programs.c b/libguile/programs.c index 1d6318c6c..c97f61e13 100644 --- a/libguile/programs.c +++ b/libguile/programs.c @@ -368,6 +368,8 @@ scm_bootstrap_programs (void) scm_smobs[SCM_TC2SMOBNUM (scm_tc16_program)].apply_1 = program_apply_1; scm_smobs[SCM_TC2SMOBNUM (scm_tc16_program)].apply_2 = program_apply_2; scm_set_smob_print (scm_tc16_program, program_print); + scm_c_register_extension ("libguile", "scm_init_programs", + (scm_t_extension_init_func)scm_init_programs, NULL); } void |