Re: Guile build failure

[Ludovic Courtès]

Hi!

Sorry, I’m still pretty clueless.

Can you try the attached patch, and run “./check-guile load.test” with
this NFS setup?

For me, it displays this:

  ;;; (remaining "/home/ludo/src/guile/load-test.dir/dir3" ("." ".."))

  ;;; (remaining "/home/ludo/src/guile/load-test.dir/dir1/subdir1" ("." ".."))

  ;;; (remaining "/home/ludo/src/guile/load-test.dir/dir1" ("." ".."))

  ;;; (remaining "/home/ludo/src/guile/load-test.dir/dir2" ("." ".."))

  ;;; (remaining "/home/ludo/src/guile/load-test.dir" ("." ".."))

Thanks,
Ludo’.


diff --git a/test-suite/tests/load.test b/test-suite/tests/load.test
index 1cf8d65..a43573c 100644
--- a/test-suite/tests/load.test
+++ b/test-suite/tests/load.test
@@ -20,7 +20,8 @@
 (define-module (test-suite test-load)
   #:use-module (test-suite lib)
   #:use-module (test-suite guile-test)
-  #:use-module (system base compile))
+  #:use-module (system base compile)
+  #:use-module (ice-9 ftw))
 
 (define temp-dir (data-file-name "load-test.dir"))
 
@@ -61,6 +62,7 @@
 	      (delete-tree name)
 	      (loop))))))
       (closedir dir)
+      (pk 'remaining tree (scandir tree))
       (rmdir tree)))
    ((file-exists? tree)
     (delete-file tree))