More g-wrap problems with GnuCash

[Derek Atkins]

Rob Browning <rlb@cs.utexas.edu> writes:

> Derek Atkins <warlord@MIT.EDU> writes:
> 
> > Nope, that's not it.  g-wrap is installed in /usr (as per the RPM):
> 
> > /usr/share/guile/g-wrapped/libgw-runtime.so.0.0.0
> 
> I think this is the problem -- I *believe*, though I'm not rock-solid
> enough on the issues with the various guile version, ldso versions,
> and dynamic-linking in general to state for sure, that the RPM needs
> to be installing libgw-runtime.so.0, not .0.0.0.  If you look at the
> strace output, that's what guile's looking for.
> 
> Could you just do a "mv" to change the name in place and see if that
> helps.  Then we'll have to decide if libgw-runtime.so.0 should be a
> symlink or the actual binary.  In this case, I doubt it matters.
> 
> Hope this helps.

Well, I now get a different error. ;)

Ready> /var/tmp/gnucash/bin/gnucash --evaluate '(display %load-path)'
ERROR: In procedure gsubr-apply in expression (scm-error (quote misc-error) #f ...):
ERROR: not-a-record #f

Running the guile command to load the module....

Ready> guile
guile> (use-modules (g-wrapped gw-runtime))
ERROR: In procedure error in expression (error (quote not-a-record) obj):
ERROR: not-a-record #f
ABORT: (misc-error)

Type "(backtrace)" to get more information.
guile> (backtrace)

Backtrace:
    ...
12  [#<procedure (result l)> ...
13*  [#<procedure (modinfo)> ((g-wrapped gw-runtime) 1073837628 #<dynamic-object "/usr/share/guile/g-wrapped/libgw-runtime.so.0">)]
14   (if (equal? (car modinfo) modname) (let (#) (save-module-excursion #) ...) ...)
15   (let ((mod #)) (save-module-excursion (lambda () # ...)) ...)
16*  [save-module-excursion #<procedure ()>]
17   (let ((inner-module #) (outer-module #f)) (dynamic-wind (lambda () # ...) thunk ...))
18   [dynamic-wind #<procedure ()> #<procedure ()> ...]
19*  [#<procedure ()>]
20*  [dynamic-call 1073837628 #<dynamic-object "/usr/share/guile/g-wrapped/libgw-runtime.so.0">]
21*  (define-public (gw:module-register-runtime name) (if (hash-ref gw:runtime-modules-hash name) (error "Tried to double-register module " name) ...))
22   (begin (let (#) (module-define! # # ...) ...) (eval (quote #)))
23*  (let ((public-i #)) (module-define! (current-module) (quote gw:module-register-runtime) ...) ...)
24   [module-add! #f gw:module-register-runtime ...]
25   [module-obarray-set! ...
26*   [module-obarray #f]
27    (and (eq? (quote #) (record-type-descriptor obj)) (struct-ref obj 0))
28*   [eq? #<record-type module> ...
29*    [record-type-descriptor #f]
30     (if (struct? obj) (struct-vtable obj) ...)
31     [error not-a-record #f]

-derek

-- 
       Derek Atkins, SB '93 MIT EE, SM '95 MIT Media Laboratory
       Member, MIT Student Information Processing Board  (SIPB)
       URL: http://web.mit.edu/warlord/    PP-ASEL-IA     N1NWH
       warlord@MIT.EDU                        PGP key available