This is the mail archive of the guile@cygnus.com mailing list for the guile project.
| Index Nav: | [Date Index] [Subject Index] [Author Index] [Thread Index] | |
|---|---|---|
| Message Nav: | [Date Prev] [Date Next] | [Thread Prev] [Thread Next] |
I am using guile-core-19980329, gtk+-0.99.3, and guile-gtk from
gnome-0.12 built with gcc-2.7.2 under Sparc Solaris 2.6.
The "guile-gtk" binary works with "test-gtk.scm" and "calc.scm", but
when I try to load them into a plain guile I get a backtrace like the
one below. Is dynamic library loading (dll) known to work with guile
under Sparc Solaris? Am I missing something?
petersen[boron]~/src/gnome/guile-gtk% guile
guile> (load "test-gtk.scm")
ERROR: In procedure dynamic-link in expression (dynamic-link filename):
ERROR: ld.so.1: guile: fatal: relocation error: file /proj2/lang/mule-unsupported/solaris/share/guile/toolkits/libgtkstubs.so: symbol gtk_style_unref: referenced symbol not found
ABORT: (misc-error)
Type "(backtrace)" to get more information.
guile> (backtrace)
Backtrace:
0* [primitive-load "/proj2/lang/mule-unsupported/solaris/share/guile/toolkits/gtk.scm"]
1* (define-module (toolkits gtk) :use-module ...)
2 (let* ((process-define-module process-define-module) (set-current-module set-current-module) (module #)) (set-current-module module) ...)
3* [process-define-module ((toolkits gtk) :use-module (toolkits gtkstubs) ...)]
4 (let* ((module-id #) (module #) (kws #)) (beautify-user-module! module) ...)
5* (letrec ((loop #)) (loop kws (quote ())))
6 [#<procedure (kws reversed-interfaces)> (:use-module (toolkits gtkstubs) :use-module ...) ()]
...
7 (let* ((used-name #) (used-module #)) (if (not #) (begin # #)) ...)
8* [resolve-module (toolkits gtkstubs)]
9 (let ((full-name #)) (let (#) (or already #)))
...
10 (begin (if (or # #) (or # # ...)) (make-modules-in (current-module) full-name))
11* (if (or (null? maybe-autoload) (car maybe-autoload)) (or (try-module-linked name) (try-module-autoload name) ...))
12 (or (try-module-linked name) (try-module-autoload name) ...)
...
13 [try-module-dynamic-link (toolkits gtkstubs)]
14 (and (find-and-link-dynamic-module module-name) (init-dynamic-module module-name))
15* [find-and-link-dynamic-module (toolkits gtkstubs)]
16 (let ((subdir-and-libname #) (init #)) (let (# #) (letrec # #)))
...
17 [link-dynamic-module "/proj2/lang/mule-unsupported/solaris/share/guile/toolkits/libgtkstubs.so" "scm_init_toolkits_gtkstubs_module"]
18 (let ((dynobj #)) (dynamic-call initname dynobj) ...)
19* [dynamic-link "/proj2/lang/mule-unsupported/solaris/share/guile/toolkits/libgtkstubs.so"]
Thanks,
--
Jens-Ulrik Petersen <http://www.kurims.kyoto-u.ac.jp/~petersen/>
---
"We are on the verge: Today our program proved Fermat's next-to-last
theorem."
-- Epigrams in Programming, ACM SIGPLAN Sept. 1982