Merge branch 'wingo'

module/system/vm/frame.scm

@@ -42,8 +42,7 @@
            frame-return-address frame-program
            frame-dynamic-link heap-frame?))
 
-;; fixme: avoid the dynamic-call?
-(dynamic-call "scm_init_frames" (dynamic-link "libguile"))
+(load-extension "libguile" "scm_init_frames")
 
 ;;;
 ;;; Frame chain

module/system/vm/instruction.scm

@@ -25,4 +25,4 @@
            instruction-pops instruction-pushes
            instruction->opcode opcode->instruction))
 
-(dynamic-call "scm_init_instructions" (dynamic-link "libguile"))
+(load-extension "libguile" "scm_init_instructions")

module/system/vm/objcode.scm

@@ -25,4 +25,4 @@
             load-objcode write-objcode
             word-size byte-order))
 
-(dynamic-call "scm_init_objcodes" (dynamic-link "libguile"))
+(load-extension "libguile" "scm_init_objcodes")

module/system/vm/program.scm

@@ -36,7 +36,7 @@
             program-objcode program? program-objects
             program-module program-base program-external))
 
-(dynamic-call "scm_init_programs" (dynamic-link "libguile"))
+(load-extension "libguile" "scm_init_programs")
 
 (define arity:nargs car)
 (define arity:nrest cadr)

module/system/vm/vm.scm

@@ -32,7 +32,7 @@
             vm-next-hook vm-apply-hook vm-boot-hook vm-return-hook
             vm-break-hook vm-exit-hook vm-halt-hook vm-enter-hook))
 
-(dynamic-call "scm_init_vm" (dynamic-link "libguile"))
+(load-extension "libguile" "scm_init_vm")
 
 (define (vms:time stat) (vector-ref stat 0))
 (define (vms:clock stat) (vector-ref stat 1))