2010/6/25 Tristan Colgate <tcolgate@gmail.com>

scheme@(guile-user)> (use-modules (oop goops))
scheme@(guile-user)> (define-class <myclass> (<applicable-struct>))
scheme@(guile-user)> (make <myclass> #:procedure (lambda()(display
"some code")(nelwine)))
<stdin>:5:58: warning: possibly unbound variable `nelwine'
Throw to key `unbound-variable':
ERROR: In procedure module-lookup:
ERROR: Unbound variable: set-object-procedure!

I tried using a generic instead but it didn't make much difference.

What am I doing wrong?