[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
guile-1.7 latest cvs and load-extension
From: |
David Pirotte |
Subject: |
guile-1.7 latest cvs and load-extension |
Date: |
Wed, 07 Nov 2001 11:14:39 +0100 |
Hi,
just dowloaded the latest guile-1.7 from cvs (i was already using
guile-1.7, so this a 'today' problem that just raised itself) and:
the following is the content of gtrees.scm, the error is below. note
that i had this discussion a while ago and that people on this list
recomanded me to keep the call to load extension as it is mentionned
here
;; -- gtrees.scm content
(define-module (struct gtrees))
(load-extension "libgtrees" "init_gtrees_module")
;; end of file
in fact, I also tried to the following solutions:
(load-extension "libgtrees.so" "init_gtrees_module")
(load-extension "libgtrees.so.0" "init_gtrees_module")
(load-extension "/usr/local/lib/libgtrees.so" "init_gtrees_module")
(load-extension "/usr/local/lib/libgtrees.so.0" "init_gtrees_module")
but none of them worked
;; -- here is the error
address@hidden:~/alto/projects/postgres/tactus/scm 12 $ guile
guile> (use-modules (struct gtrees))
Backtrace:
In unknown file:
?: 5* [apply #<procedure resolve-interface (name . args)> ((struct gtrees))]
?: 6 [resolve-interface (struct gtrees)]
...
?: 7 (let* (# # # #) (and # #) (if # public-i #))
?: 8* [resolve-module (struct gtrees)]
?: 9 (let ((full-name #)) (let (#) (if already # #)))
...
?: 10 (begin (if # #) (make-modules-in # full-name))
?: 11* (if (or # #) (try-load-module name))
?: 12 [try-load-module (struct gtrees)]
...
?: 13 (letrec ((load-file #)) (dynamic-wind (lambda () #) (lambda () #)
...) ...)
?: 14* [dynamic-wind #<procedure #f ()> #<procedure #f ()> #<procedure #f
()>]
?: 15* [#<procedure #f ()>]
?: 16* (let ((file #)) (cond (# => #) (# => #)))
?: 17 [#<procedure #f (full)> "/usr/local/share/guile/struct/gtrees.scm"]
?: 18 [load-file #<primitive-procedure primitive-load> ...]
?: 19* [save-module-excursion #<procedure #f ()>]
?: 20 (let (# #) (dynamic-wind # thunk #))
?: 21 [dynamic-wind #<procedure #f ()> #<procedure #f ()> #<procedure #f
()>]
?: 22* [#<procedure #f ()>]
?: 23* [primitive-load "/usr/local/share/guile/struct/gtrees.scm"]
In /usr/local/share/guile/struct/gtrees.scm:
4: 24* [load-extension "libgtrees" "init_gtrees_module"]
/usr/local/share/guile/struct/gtrees.scm:4:1: In procedure dynamic-link in
expression (load-extension "libgtrees"
"init_gtrees_module"):
/usr/local/share/guile/struct/gtrees.scm:4:1: file: "libgtrees", message: "file
not found"
ABORT: (misc-error)
guile>
- guile-1.7 latest cvs and load-extension,
David Pirotte <=