guile-1.7 latest cvs and load-extension

[David Pirotte]

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>