summaryrefslogtreecommitdiff
path: root/module/system
diff options
context:
space:
mode:
Diffstat (limited to 'module/system')
-rw-r--r--module/system/foreign.scm3
-rw-r--r--module/system/vm/instruction.scm5
-rw-r--r--module/system/vm/objcode.scm5
-rw-r--r--module/system/vm/program.scm3
-rw-r--r--module/system/vm/vm.scm3
5 files changed, 12 insertions, 7 deletions
diff --git a/module/system/foreign.scm b/module/system/foreign.scm
index 2a7433230..73c11feaa 100644
--- a/module/system/foreign.scm
+++ b/module/system/foreign.scm
@@ -33,7 +33,8 @@
make-foreign-function
make-c-struct parse-c-struct))
-(load-extension "libguile" "scm_init_foreign")
+(load-extension (string-append "libguile-" (effective-version))
+ "scm_init_foreign")
(define *writers*
`((,float . ,bytevector-ieee-single-native-set!)
diff --git a/module/system/vm/instruction.scm b/module/system/vm/instruction.scm
index 403e9cdc7..287e47293 100644
--- a/module/system/vm/instruction.scm
+++ b/module/system/vm/instruction.scm
@@ -1,6 +1,6 @@
;;; Guile VM instructions
-;; Copyright (C) 2001 Free Software Foundation, Inc.
+;; Copyright (C) 2001, 2010 Free Software Foundation, Inc.
;;; This library is free software; you can redistribute it and/or
;;; modify it under the terms of the GNU Lesser General Public
@@ -24,4 +24,5 @@
instruction-pops instruction-pushes
instruction->opcode opcode->instruction))
-(load-extension "libguile" "scm_init_instructions")
+(load-extension (string-append "libguile-" (effective-version))
+ "scm_init_instructions")
diff --git a/module/system/vm/objcode.scm b/module/system/vm/objcode.scm
index 7c0490da6..966f34585 100644
--- a/module/system/vm/objcode.scm
+++ b/module/system/vm/objcode.scm
@@ -1,6 +1,6 @@
;;; Guile VM object code
-;; Copyright (C) 2001 Free Software Foundation, Inc.
+;; Copyright (C) 2001, 2010 Free Software Foundation, Inc.
;;; This library is free software; you can redistribute it and/or
;;; modify it under the terms of the GNU Lesser General Public
@@ -24,4 +24,5 @@
load-objcode write-objcode
word-size byte-order))
-(load-extension "libguile" "scm_init_objcodes")
+(load-extension (string-append "libguile-" (effective-version))
+ "scm_init_objcodes")
diff --git a/module/system/vm/program.scm b/module/system/vm/program.scm
index 1afc3e0f4..6c5956620 100644
--- a/module/system/vm/program.scm
+++ b/module/system/vm/program.scm
@@ -44,7 +44,8 @@
program-num-free-variables
program-free-variable-ref program-free-variable-set!))
-(load-extension "libguile" "scm_init_programs")
+(load-extension (string-append "libguile-" (effective-version))
+ "scm_init_programs")
(define (make-binding name boxed? index start end)
(list name boxed? index start end))
diff --git a/module/system/vm/vm.scm b/module/system/vm/vm.scm
index c6e550b05..c50959bcc 100644
--- a/module/system/vm/vm.scm
+++ b/module/system/vm/vm.scm
@@ -31,7 +31,8 @@
vm-next-hook vm-apply-hook vm-boot-hook vm-return-hook
vm-break-hook vm-exit-hook vm-halt-hook vm-enter-hook))
-(load-extension "libguile" "scm_init_vm")
+(load-extension (string-append "libguile-" (effective-version))
+ "scm_init_vm")
(define (vms:time stat) (vector-ref stat 0))
(define (vms:clock stat) (vector-ref stat 1))