Re: g-wrap: guile-CVS build error

[Jan Nieuwenhuizen]

Andreas Rottmann writes:

>> I noticed fixes for guile-CVS in g-wrap, which is great, but it
>> doesn't quite work for me yet.  Am I missing something?

> This is with Guile CVS, I guess. Does the build work for you with 1.6?

Yes.  The build works with 1.6 (that is, with my small patch for
setting SIZEOF_LONG).  Han-Wen has rearranged our LilyPond output
backend, and we're now experiencing weird goops errors, so I'd like to
try guile CVS first, if that's easier.

> make GUILE_FLAGS="--debug"
> A backtrace for the above error would be helpful.

Ah, exactly what I was looking for.  Good.

It's in g-wrap:

    ;; Upgrade the GOOPS class-name procedure
    (define class-name (ensure-accessor class-name))

Indeed, I do not see where class-name is defined.



make[4]: Entering directory 
`/home/janneke/arch/test/g-wrap/=build/guile/g-wrap/gw'
guile --debug -c \
          "(set! %load-path (cons \"../../../guile\" (cons \"../../../..\" 
%load-path)))""(use-modules (g-wrap)) \
                (use-modules (g-wrap guile)) \
                        (use-modules (g-wrap guile ws standard)) \
                        (generate-wrapset 'guile 'standard \"standard\")"
WARNING: (srfi srfi-35): `any' imported from both (oop goops util) and (srfi 
srfi-1)
WARNING: (srfi srfi-35): `every' imported from both (oop goops util) and (srfi 
srfi-1)
WARNING: (g-wrap util): imported module (srfi srfi-34) overrides core binding 
`raise'
WARNING: (g-wrap): imported module (srfi srfi-34) overrides core binding `raise'
Backtrace:
In unknown file:
   ?: 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 (g-wrap)]
   ?: 16  (or (begin (try-module-linked name)) (try-module-autoload name) ...)
   ?: 17* [try-module-autoload (g-wrap)]
   ?: 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)> "../../../../g-wrap.scm"]
   ?: 24  [load-file #<primitive-procedure primitive-load> 
"../../../../g-wrap.scm"]
   ?: 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 "../../../../g-wrap.scm"]
In ../../../../g-wrap.scm:
 146: 30* (define class-name (ensure-accessor class-name))
 146: 31* [ensure-accessor ...

../../../../g-wrap.scm:146:20: While evaluating arguments to ensure-accessor in 
expression (ensure-accessor class-name):
../../../../g-wrap.scm:146:20: Unbound variable: class-name
make[4]: *** [standard.c] Fout 2
make[4]: Leaving directory 
`/home/janneke/arch/test/g-wrap/=build/guile/g-wrap/gw'
make[3]: *** [all-recursive] Fout 1
make[3]: Leaving directory `/home/janneke/arch/test/g-wrap/=build/guile/g-wrap'
make[2]: *** [all-recursive] Fout 1
make[2]: Leaving directory `/home/janneke/arch/test/g-wrap/=build/guile'
make[1]: *** [all-recursive] Fout 1
make[1]: Leaving directory `/home/janneke/arch/test/g-wrap/=build'
make: *** [all] Fout 2


-- 
Jan Nieuwenhuizen <address@hidden> | GNU LilyPond - The music typesetter
http://www.xs4all.nl/~jantien       | http://www.lilypond.org