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 <jann...@gnu.org> | GNU LilyPond http://lilypond.org
Freelance IT http://JoyofSource.com | Avatar® http://AvatarAcademy.nl
(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)
(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))
