guile-gtk-2.0 strangeness..?

[Paul Emsley]

Dear guile-gtkers,

I have problems getting guile-gtk-2.0 to work.

I compile and install guile-1.8 with prefix ~/guile-1.8
Works fine.

Now for guile-gtk-2.0...
I add $HOME/guile-1.8/bin to my path and then

$ ./configure --prefix=$HOME/guile-1.8 --with-gtkgl=no

[which builds and installs fine.
In config.log we have:
configure:19910: checking for guile
configure:19928: found $HOME/guile-1.8/bin/guile
configure:19940: result: $HOME/guile-1.8/bin/guile
configure:19956: checking for guile-config
configure:19974: found $HOME/guile-1.8/bin/guile-config
configure:19986: result: $HOME/guile-1.8/bin/guile-config
configure:20002: checking for guile-tools
configure:20020: found $HOME/guile-1.8/bin/guile-tools
configure:20032: result: $HOME/guile-1.8/bin/guile-tools
configure:20042: checking libguile compile flags
configure:20045: result: -I$HOME/guile-1.8/include -pthread

which seems to have done the right thing.

But now when I run ~/guile-1.8/bin/build-guile-gtk 
Backtrace:
In ~/guile-1.8/bin/build-guile-gtk:
 106:  0* (define-module (build-guile-gtk) #{:use-module}# ...)
 106:  1  (eval-case (# #) (else #))
In unknown file:
    ...
   ?:  2  (let ((m (process-define-module #))) (set-current-module m) m)
   ?:  3* [process-define-module ((build-guile-gtk) #:use-module (#) ...)]
   ?:  4  (let* (# # # #) (beautify-user-module! module) (letrec # #) ...)
   ?:  5* (letrec ((loop (lambda # #))) (loop kws (quote ()) (quote ()) (quote 
())))
   ?:  6  [loop (#:use-module ((gtk-2.0 config)) #:use-module ...) () ...]
    ...
   ?:  7  (let* ((interface-args #) (interface #)) (and (eq? # #) (or # #) ...) 
...)
   ?:  8* [apply #<procedure resolve-interface (name . args)> ((gtk-2.0 
config))]
   ?:  9  [resolve-interface (gtk-2.0 config)]
    ...
   ?: 10  (let* (# # # #) (and # #) (if # public-i #))
   ?: 11* (and (or (not module) (not public-i)) (error "no code for module" 
name))
   ?: 12  [error "no code for module" (gtk-2.0 config)]
    ...
   ?: 13  [scm-error misc-error #f ...]

<unnamed port>: In procedure scm-error in expression (scm-error (quote 
misc-error) #f ...):
<unnamed port>: no code for module (gtk-2.0 config)

Why does it not know to look in $PREFIX/share/guile for its modules?
Anyway, I set GUILE_LOAD_PATH:

$ setenv GUILE_LOAD_PATH ~/guile-1.8/share/guile


and run it again: 


$ ~/guile-1.8/bin/build-guile-gtk-2.0
Backtrace:
In unknown file:
   ?: 11* [resolve-module (srfi srfi-13)]
   ?: 12  (let ((full-name #)) (let (#) (if already # #)))
    ...
   ?: 13  (begin (if # #) (make-modules-in # full-name))
   ?: 14* (if (or # #) (try-load-module name))
   ?: 15  [try-load-module (srfi srfi-13)]
   ?: 16  (or (begin (try-module-linked name)) (try-module-autoload name) ...)
   ?: 17* [try-module-autoload (srfi srfi-13)]
   ?: 18  (let* (# # # #) (resolve-module dir-hint-module-name #f) (and # #))
    ...
   ?: 19  (letrec ((load-file #)) (dynamic-wind (lambda () #) (lambda () #) 
...) ...)
   ?: 20* [dynamic-wind #<procedure #f ()> #<procedure #f ()> #<procedure #f 
()>]
   ?: 21* [#<procedure #f ()>]
   ?: 22* (let ((file #)) (cond (# => #) (# => #)))
   ?: 23  [#<procedure #f (full)> "/usr/share/guile/1.6/srfi/srfi-13.scm"]
   ?: 24  [load-file #<primitive-procedure primitive-load> ...]
   ?: 25* [save-module-excursion #<procedure #f ()>]
   ?: 26  (let (# #) (dynamic-wind # thunk #))
   ?: 27  [dynamic-wind #<procedure #f ()> #<procedure #f ()> #<procedure #f 
()>]
   ?: 28* [#<procedure #f ()>]
   ?: 29* [primitive-load "/usr/share/guile/1.6/srfi/srfi-13.scm"]
In /usr/share/guile/1.6/srfi/srfi-13.scm:
 159: 30* [load-extension "libguile-srfi-srfi-13-14-v-1" "scm_init_srfi_13"]

/usr/share/guile/1.6/srfi/srfi-13.scm:159:1: In procedure dynamic-link in 
expression (load-extension "libguile-srfi-srfi-13-14-v-1" "scm_init_srfi_13"):
/usr/share/guile/1.6/srfi/srfi-13.scm:159:1: file: 
"libguile-srfi-srfi-13-14-v-1", message: "libguile-srfi-srfi-13-14-v-1.so: 
cannot open shared object file: No such file or directory"

What's going on here? Why is /usr/share/guile/1.6 getting involved?
Confused.

Thanks in advance,

Paul.