diff options
Diffstat (limited to 'module/system')
-rw-r--r-- | module/system/foreign.scm | 3 | ||||
-rw-r--r-- | module/system/vm/instruction.scm | 5 | ||||
-rw-r--r-- | module/system/vm/objcode.scm | 5 | ||||
-rw-r--r-- | module/system/vm/program.scm | 3 | ||||
-rw-r--r-- | module/system/vm/vm.scm | 3 |
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)) |