Re: G-Wrap 1.9.3rc1 -- please test

[Jan Nieuwenhuizen]

Andreas Rottmann writes:

> Hi!
>
> I've just uploaded the first 1.9.3 release canditate to
> http://stud3.tuwien.ac.at/~e9926584/tmp/. This release

Looks fine, with guile 1.6.4.

With guile CVS, it compiles and runs fine, but testing canvas.scm I get

$ guile --debug -s test/guile-gnome/libgnomecanvas/examples/canvas.scm 
(gnome gtk): [goops gobject WARNING: (gnome gobject gclosure): `gtype:genum' 
imported from both (gnome gobject gtype) and (gnome gobject gvalue)
WARNING: (gnome gobject gclosure): `gtype:gflags' imported from both (gnome 
gobject gtype) and (gnome gobject gvalue)
WARNING: (gnome gobject gsignal): `gtype:genum' imported from both (gnome 
gobject gtype) and (gnome gobject gvalue)
WARNING: (gnome gobject gsignal): `gtype:gflags' imported from both (gnome 
gobject gtype) and (gnome gobject gvalue)
WARNING: (gnome gobject gparameter): `gtype:genum' imported from both (gnome 
gobject gtype) and (gnome gobject gvalue)
WARNING: (gnome gobject gparameter): `gtype:gflags' imported from both (gnome 
gobject gtype) and (gnome gobject gvalue)
Backtrace:
In unknown file:
   ?:  84  [#<procedure #f #> 
"/home/janneke/usr/pkg/guile-gnome/share/guile/gnome/g$
   ?:  85  [load-file #<primitive-procedure primitive-load> ...]
   ?:  86* [save-module-excursion #<procedure #f ()>]
   ?:  87  (let (# #) (dynamic-wind # thunk #))
   ?:  88  [dynamic-wind #<procedure #f ()> #<procedure #f ()> #<procedure #f 
()>]
   ?:  89* [#<procedure #f ()>]
   ?:  90* [primitive-load 
"/home/janneke/usr/pkg/guile-gnome/share/guile/gnome/gobj$
In /home/janneke/usr/pkg/guile-gnome/share/guile/gnome/gobject/gparameter.scm:
 214:  91* (define-class <gparam-spec-flags> (<gflags>) ...)
 214:  92  (begin (let* (# # #) (if # # #)))
In unknown file:
   ?:  93  (let* (# # #) (if # # #))
   ?:  94* (class (<gflags>) #:vtable ...)
   ?:  95  [make-class (#<<gflags-class> <gflags> 40345fe0>) () ...]
     ...
   ?:  96  [make-instance]
   ?:  97* [make-instance #<<set-once-class> <gflags-class> 403496a0> #:dsupers 
...]
   ?:  98* (let* ((instance #)) (initialize instance initargs) instance)
   ?:  99* [initialize #<<gflags-class> 4034b340> (#:dsupers (#) #:slots () 
...)]
   ?: 100  (let* ((next-method #)) (let* (#) (if # #) ...))
   ?: 101  (let* (#) (if # #) (%gtype-bind-to-class class gtype) ...)
   ?: 102* (cond (# => noop) (# => gtype-from-name) (else #))
   ?: 103  [gflags-register-static "GparamSpecFlags" #(# # # # ...)]

<unnamed port>: In procedure gflags-register-static in expression 
(gflags-register-static (or # #) (or # #)):
<unnamed port>: string is read-only: "Readable"

Some deprecated features have been used.  Set the environment
variable GUILE_WARN_DEPRECATED to "detailed" and rerun the
program to get more information.  Set it to "no" to suppress
this message.

Jan.

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