gio-channel

[Chris Vine]

Hi,

The code snippet below fails to compile with guile-2.0.11, using the
current master branches of guile-gnome-2 and g-wrap:

  #! /usr/bin/guile-gnome-2 -s
  !#

  (use-modules (gnome gobject)
               (gnome glib)
               (oop goops))

  (let* ([p (pipe)]
         [fd (fileno (car p))])
    (let ([ioc (g-io-channel-unix-new fd)])
      (g-io-add-watch ioc
                      '(in hup)
                      (lambda (a b)
                        '()))))

Attempting to run it gives:

  Backtrace:
  In ice-9/boot-9.scm:
   157: 7 [catch #t #<catch-closure 81f2c60> ...]
  In unknown file:
     ?: 6 [apply-smob/1 #<catch-closure 81f2c60>]
  In ice-9/boot-9.scm:
    63: 5 [call-with-prompt prompt0 ...]
  In ice-9/eval.scm:
   432: 4 [eval # #]
  In ice-9/boot-9.scm:
  2401: 3 [save-module-excursion #<procedure 8201ce0 at ice-9/boot-9.scm:4045:3 
()>]
  4052: 2 [#<procedure 8201ce0 at ice-9/boot-9.scm:4045:3 ()>]
  In unknown file:
     ?: 1 [load-compiled/vm 
"/home/chris/.cache/guile/ccache/2.0-LE-4-2.0/home/chris/src/io-channel.scm.go"]
     ?: 0 [apply-smob/1 # # # ...]

  ERROR: In procedure apply-smob/1:
  ERROR: In procedure module-lookup: Unbound variable: <gio-channel>

The backtrace from loading it at the repl appears to show that the new
gio-channel object is constructed properly, but g-io-add-watch fails.
Is this user error at my end or a bug in the wrapper?  If the latter I'll
file a bug.

Chris