Thanks Marc, but it didn't work. BTW I finally realized that Bugzilla responded to my beta 17 bug report; must've been you.
I forgot to remove the buggy code (which runs fine on my machine):
(define (test-directory-files) (try 'directory-files directory-files "newdir2") ) (test-directory-files)
Just remove those lines from tests/error.scm and also remove the line
(directory-files "newdir2") => ("aaa" "bbb")
from tests/test2.out .
Did you mean tests/test2.ok? test2.out doesn't exist until after I run `make check'. So here's what I did:
gambc-4.0b18> ./configure --enable-single-host --prefix=/rhome/richter/gambit/bin --enable-shared gambc-4.0b18> make gambc-4.0b18> make check
Got this errors as before:
------------ TEST 2 (error handling) LD_LIBRARY_PATH=../lib:/rhome/richter/my-gambit/lib ../gsi/gsi -:h4000 -f error.scm < error.scm > test2.out diff test2.ok test2.out && rm -f test2.out 1194c1194 < (directory-files "newdir2") => ("aaa" "bbb") ---
(directory-files "newdir2") => ("bbb" "aaa")
make[1]: *** [test2] Error 1
Now I removed these lines from tests/error.scm:
(define (test-directory-files) (try 'directory-files directory-files "newdir2") ) (test-directory-files)
But I cannot remove (directory-files "newdir2") => ("aaa" "bbb") from tests/test2.out, because the line is reversed! test2.out reads: (directory-files "newdir2") => ("bbb" "aaa") So I removed that line. Then
gambc-4.0b18> make check ------------ TEST 2 (error handling) LD_LIBRARY_PATH=../lib:/rhome/richter/my-gambit/lib ../gsi/gsi -:h4000 -f error.scm < error.scm > test2.out diff test2.ok test2.out && rm -f test2.out 1194d1193 < (directory-files "newdir2") => ("aaa" "bbb") 1206,1207c1205,1206 < (file-size "error.scm") => 65542 < (file-size "newdir2/bbb") => 65542 ---
(file-size "error.scm") => 65437 (file-size "newdir2/bbb") => 65437
make[1]: *** [test2] Error 1