Re: Death of -glib, Life of -platform

[Jan Nieuwenhuizen]

Andy Wingo writes:

> Test it, please!
> http://ambient.2y.net/wingo/tmp/guile-gnome-platform-2.5.990.tar.gz

I get:

(gnome gtk): [goops gobject glib atk pango Backtrace:
In unknown file:
   ?: 36* [resolve-module (gnome gw pango)]
   ?: 37  (let ((full-name #)) (let (#) (if already # #)))
    ...
   ?: 38  (begin (if # #) (make-modules-in # full-name))
   ?: 39* (if (or # #) (try-load-module name))
   ?: 40  [try-load-module (gnome gw pango)]
   ?: 41  (or (begin (try-module-linked name)) (try-module-autoload name) ...)
   ?: 42* [try-module-autoload (gnome gw pango)]
   ?: 43  (let* (# # # #) (resolve-module dir-hint-module-name #f) (and # #))
    ...
   ?: 44  (letrec ((load-file #)) (dynamic-wind (lambda () #) (lambda () #) 
...) ...)
   ?: 45* [dynamic-wind #<procedure #f ()> #<procedure #f ()> #<procedure #f 
()>]
   ?: 46* [#<procedure #f ()>]
   ?: 47* (let ((file #)) (cond (# => #) (# => #)))
   ?: 48  [#<procedure #f #> 
"/home/janneke/usr/pkg/ggp/share/guile/gnome/gw/pango.s$
   ?: 49  [load-file #<primitive-procedure primitive-load> ...]
   ?: 50* [save-module-excursion #<procedure #f ()>]
   ?: 51  (let (# #) (dynamic-wind # thunk #))
   ?: 52  [dynamic-wind #<procedure #f ()> #<procedure #f ()> #<procedure #f 
()>]
   ?: 53* [#<procedure #f ()>]
   ?: 54* [primitive-load 
"/home/janneke/usr/pkg/ggp/share/guile/gnome/gw/pango.scm"]
In /home/janneke/usr/pkg/ggp/share/guile/gnome/gw/pango.scm:
  13: 55* [# #<primitive-procedure pango-layout-get-lines> <pango-layout> ...]

/home/janneke/usr/pkg/ggp/share/guile/gnome/gw/pango.scm:13:1: In procedure 
%gw:procedure-to-method-public! in expression (%gw:procedure->method-public 
pango-layout-get-lines (quote <pango-layout>) ...):
/home/janneke/usr/pkg/ggp/share/guile/gnome/gw/pango.scm:13:1: Wrong type 
argument in position 2: <pango-layout>

Where I have:

$ cat /home/janneke/usr/pkg/ggp/share/guile/gnome/gw/pango.scm
;; Generated by G-Wrap-TNG: an experimental Guile C API-wrapper engine.

(define-module (gnome gw pango)
  #:use-module (oop goops)
  #:use-module (gnome gw gobject)
  #:use-module (gnome gw glib)
  #:use-module (g-wrap gw standard)
)

(dynamic-call "gw_guile_init_wrapset_gnome_pango"
              (dynamic-link "libgw-guile-gnome-pango"))
(module-use! (module-public-interface (current-module)) (current-module))
(%gw:procedure->method-public pango-layout-get-lines (quote <pango-layout>) 
(quote get-lines) 1 #f)

Jan.

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