stable-2.0: In procedure module-lookup: Unbound variable: for-each

[Jan Nieuwenhuizen <janneke-list@xs4all.nl>]

[-- Attachment #1: Type: text/plain, Size: 2715 bytes --]

Good news: with guile stable-2.0 (958173e4), the module-lookup for-each
problem running from compiled cache

    http://lists.gnu.org/archive/html/guile-devel/2011-02/msg00213.html

Yay!

Bad news: schikkers-list still does not run, showing a similar problem.
The problem is the same for a fresh and a compiled run (I guess this
also is good news).

With attached run.scm and use.scm in cwd, doing

    
    $ ~/schikkers-list/usr/bin/guile -L . ./run.scm

results in

    14:18:05 janneke@vuurvlieg:~/vc/schikkers-list
    $ ~/schikkers-list/usr/bin/guile -L . ./run.scm 
    ;;; note: auto-compilation is enabled, set GUILE_AUTO_COMPILE=0
    ;;;       or pass the --no-auto-compile argument to disable.
    ;;; compiling /home/janneke/vc/schikkers-list/./run.scm
    ;;; compiling /home/janneke/vc/schikkers-list/use.scm
    ;;; /home/janneke/vc/schikkers-list/use.scm:12:2: warning: possibly unbound variable `for-each'
    ;;; compiled /home/janneke/.cache/guile/ccache/2.0-LE-4-2.0/home/janneke/vc/schikkers-list/use.scm.go
    ;;; compiled /home/janneke/.cache/guile/ccache/2.0-LE-4-2.0/home/janneke/vc/schikkers-list/run.scm.go
    Backtrace:
    In ice-9/boot-9.scm:
     170: 12 [catch #t #<catch-closure 90d5280> ...]
    In unknown file:
       ?: 11 [catch-closure]
    In ice-9/boot-9.scm:
      62: 10 [call-with-prompt prompt0 ...]
    In ice-9/eval.scm:
     389: 9 [eval # #]
    In ice-9/boot-9.scm:
    1917: 8 [save-module-excursion #<procedure 8fe42e0 at ice-9/boot-9.scm:3339:3 ()>]
    3346: 7 [#<procedure 8fe42e0 at ice-9/boot-9.scm:3339:3 ()>]
    In unknown file:
       ?: 6 [load-compiled/vm "/home/janneke/.cache/guile/ccache/2.0-LE-4-2.0/home/janneke/vc/schikkers-list/run.scm.go"]
    In /home/janneke/vc/schikkers-list/./run.scm:
      11: 5 [#<procedure 9519000 ()>]
    In oop/goops.scm:
    1556: 4 [#<procedure 945d1e0 at oop/goops.scm:1554:0 (class . initargs)> #]
    In unknown file:
       ?: 3 [%initialize-object #<<notation> 951cc60> ()]
    In oop/goops.scm:
    1556: 2 [#<procedure 945d1e0 at oop/goops.scm:1554:0 (class . initargs)> #]
    In unknown file:
       ?: 1 [%initialize-object #<<music-document> 951cbc0> ()]
    In /home/janneke/vc/schikkers-list/use.scm:
      11: 0 [test-expr]

    /home/janneke/vc/schikkers-list/use.scm:10:0: In procedure test-expr:
    /home/janneke/vc/schikkers-list/use.scm:10:0: In procedure module-lookup: Unbound variable: for-each
    [1]14:18:10 janneke@vuurvlieg:~/vc/schikkers-list
    $ 

Greetings,
Jan.

-- 
Jan Nieuwenhuizen <janneke@gnu.org> | GNU LilyPond http://lilypond.org
Freelance IT http://JoyofSource.com | Avatar®  http://AvatarAcademy.nl  

[-- Attachment #2: run.scm --]
[-- Type: text/x-scheme, Size: 292 bytes --]

(define-module (run)
  #:use-module (oop goops)
  ;;
  #:use-module (use)
  #:export (main))

(define-class <notation> ()
   (music #:init-form (make <music-document>)))

(define-class <run-app> ()
  (notation #:init-value (make <notation>)))

(define (main)
  (format #t "hello\n"))

(main)

[-- Attachment #3: use.scm --]
[-- Type: text/x-scheme, Size: 314 bytes --]

(define-module (use)
  #:use-module (oop goops)
  #:use-module (srfi srfi-1)
  ;;
  #:duplicates (merge-generics)
  #:export (<music-document>
))

(define-class <music> ())

(define (test-expr)
  (for-each display '()))

(define-class <music-document> ()
  (music #:init-form (test-expr) #:init-keyword #:music))