[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Guile build failure
From: |
David Pirotte |
Subject: |
Re: Guile build failure |
Date: |
Tue, 22 Jan 2013 14:43:23 -0200 |
Hi Andy,
> > ‘load.test’ uses ‘compile-file’, and it seems that ‘compile-file’ does
> > an ‘open-input-file’ with no corresponding ‘close-port’. That may be
> > the problem.
>
> Can you try the following patch? ./check-guile load.test on your NFS
> machine should do it.
I did try and it still raise a bug. I had to manually apply the patch[*] and
could
have missed a place though: to make sure, here is the compile.scm i used
[attached].
note that since the close-port have been added, [1] the remaining trace shows
one .nfs* file
- there were two in the trace I sent to Ludovic - and [2] checking manually the
directory just
after the trace, it is empty [see below]
Cheers,
David
[*] i did a git pull before and compile.scm changed ... i could only find
one
place to add, (close-port in) [in (define (compile-file ...))], it seems you
already
added the other (close-port port).
;;
;; trace ...
;;
address@hidden:/usr/local/src/guile/git-clone 61 $ ./check-guile load.test
Testing /usr/local/src/guile/git-clone/meta/guile ... load.test
with GUILE_LOAD_PATH=/usr/local/src/guile/git-clone/test-suite
Running load.test
;;; (remaining
"/mnt/galia/linux/64/local/src/guile/git-clone/load-test.dir/dir3" ("." ".."))
;;; (remaining
"/mnt/galia/linux/64/local/src/guile/git-clone/load-test.dir/dir2" ("." ".."))
;;; (remaining
"/mnt/galia/linux/64/local/src/guile/git-clone/load-test.dir/dir1/subdir1" ("."
".."))
;;; (remaining
"/mnt/galia/linux/64/local/src/guile/git-clone/load-test.dir/dir1" ("." ".."))
;;; (remaining "/mnt/galia/linux/64/local/src/guile/git-clone/load-test.dir"
("." ".." ".nfs00000000138c196300000041"))
Backtrace:
In ice-9/boot-9.scm:
157: 12 [catch #t #<catch-closure baf280> ...]
In unknown file:
?: 11 [apply-smob/1 #<catch-closure baf280>]
In ice-9/boot-9.scm:
63: 10 [call-with-prompt prompt0 ...]
In ice-9/eval.scm:
432: 9 [eval # #]
432: 8 [eval # #]
In ice-9/boot-9.scm:
696: 7 [for-each #<procedure cb1f60 at ice-9/eval.scm:416:20 (a)>
("load.test")]
In ice-9/eval.scm:
481: 6 [lp (#<fluid 23>) (("load.test"))]
In ice-9/boot-9.scm:
2131: 5 [save-module-excursion #<procedure f53380 at ice-9/boot-9.scm:3771:3
()>]
3776: 4 [#<procedure f53380 at ice-9/boot-9.scm:3771:3 ()>]
1456: 3 [%start-stack load-stack #<procedure f579c0 at ice-9/boot-9.scm:3767:10
()>]
1461: 2 [#<procedure cb1cf0 ()>]
In unknown file:
?: 1 [primitive-load
"/usr/local/src/guile/git-clone/test-suite/tests/load.test"]
?: 0 [rmdir "/mnt/galia/linux/64/local/src/guile/git-clone/load-test.dir"]
ERROR: In procedure rmdir:
ERROR: In procedure rmdir: Directory not empty
address@hidden:/usr/local/src/guile/git-clone 62 $ ls -lsa load-test.dir/
total 8
4 drwxrwxr-x 2 david alto 4096 Jan 22 14:35 ./
4 drwxr-xr-x 21 david alto 4096 Jan 22 14:35 ../
address@hidden:/usr/local/src/guile/git-clone 63 $
compile.scm
Description: Text Data