Re: g-wrap: guile-CVS build error

[Jan Nieuwenhuizen]

Andreas Rottmann writes:

> It should come from (oop goops). Could you try 
>
> % guile -c '(use-modules (oop goops)) (format #t "~S\n" class-name)'
>
> This yields #<primitive-procedure class-name> for me (for both 1.6.4
> and CVS Guile).

I was just looking at this now.  The difference is that g-wrap.scm
says #:export class-name, which shadows the oop-goops classname:

$ guile
guile> (define-module (g-wrap) #:use-module (oop goops) #:export (class-name))
#<directory (g-wrap) 4035bed0>
guile> class-name
ERROR: Unbound variable: class-name

I was trying something like:

(if (defined? 'class-name)
    (define class-name (ensure-accessor class-name))
    (let* ((oop-goops (resolve-module '(oop goops)))
           (goops-class-name (module-ref oop-goops 'class-name)))
      (define class-name (ensure-accessor goops-class-name))))

But that doesn't work?

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