Re: Guile build failure

[David Pirotte]

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