on second/.go-cached run: ERROR: Unbound variable: for-each - simplified

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

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

Jan Nieuwenhuizen schreef op do 03-02-2011 om 21:20 [+0100]:

This morning I've spend some time to reduce this problem into
a single scheme file, see attached.  

Again, here's what happens when I run it twice, starting from
a clean cache.  

First run

    12:47:07 janneke@vuurvlieg:~/vc/schikkers-list
    $ rm -rf ~/.cache/guile
    12:47:10 janneke@vuurvlieg:~/vc/schikkers-list
    $ ./compile-cache-run-problem.scm 
    ;;; note: autocompilation is enabled, set GUILE_AUTO_COMPILE=0
    ;;;       or pass the --no-autocompile argument to disable.
    ;;; compiling ./compile-cache-run-problem.scm
    ;;; compiled /home/janneke/.cache/guile/ccache/2.0-0.T-LE-4/home/janneke/vc/schikkers-list/compile-cache-run-problem.scm.go
    HALLO
    12:47:16 janneke@vuurvlieg:~/vc/schikkers-list

Second run

    $ ./compile-cache-run-problem.scm 
    Backtrace:
    In module/ice-9/boot-9.scm:
     170: 13 [catch #t #<catch-closure 86895a0> ...]
    In unknown file:
       ?: 12 [catch-closure]
    In module/ice-9/boot-9.scm:
      62: 11 [call-with-prompt prompt0 ...]
    In module/ice-9/eval.scm:
     389: 10 [eval # #]
    In module/ice-9/boot-9.scm:
    1864: 9 [save-module-excursion #<procedure 8697c78 at module/ice-9/boot-9.scm:1878:3 ()>]
    1172: 8 [load "./compile-cache-run-problem.scm" #f]
    In unknown file:
       ?: 7 [load-compiled/vm "/home/janneke/.cache/guile/ccache/2.0-0.T-LE-4/home/janneke/vc/schikkers-list/compile-cache-run-problem.scm.go"]
    In ./compile-cache-run-problem.scm:
      20: 6 [#<procedure 868a560 ()>]
    In module/oop/goops.scm:
    1552: 5 [#<procedure 8afe820 at module/oop/goops.scm:1550:0 (class . initargs)> #]
    In unknown file:
       ?: 4 [%initialize-object #<<notation> 8b01010> ()]
    In module/oop/goops.scm:
    1552: 3 [#<procedure 8afe820 at module/oop/goops.scm:1550:0 (class . initargs)> #]
    In ./compile-cache-run-problem.scm:
      12: 2 [#<procedure 8b04e40 at ./compile-cache-run-problem.scm:10:0 (obj . initargs)> # ...]
    In module/ice-9/boot-9.scm:
     115: 1 [#<procedure 85fc4d8 at module/ice-9/boot-9.scm:110:6 (thrown-k . args)> unbound-variable ...]
    In unknown file:
       ?: 0 [catch-closure unbound-variable "module-lookup" ...]

    ERROR: In procedure module-lookup:
    ERROR: Unbound variable: for-each
    [1]12:47:17 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: compile-cache-run-problem.scm --]
[-- Type: text/x-scheme, Size: 585 bytes --]

#! /bin/sh
# -*- scheme -*-
exec guile --debug -s $0 "$@"
!#

(define-module (ikli ikli)
  #:use-module (oop goops)
  #:use-module (srfi srfi-1)
  #:duplicates (merge-generics))

(define-class <music-document> ())

(define-method (initialize (obj <music-document>) . initargs)
  (let* ((self (next-method)))
    (for-each (lambda (x) #f) '())
    (map (lambda (x) #f) '())
    self))

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

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

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

(main)