Marc, again I failed make check, on beta 18 on my RHEL clone. Should I debug this myself? Please advise me, because I have a nice Scheme Sudoku Solver that's merely too slow. I learn everything I want by running jobs overnight. I want to compile it on the latest beta.
So I tried two different configure options:
./configure --enable-single-host --prefix=/rhome/richter/gambit/bin --enable-shared ./configure --enable-single-host --prefix=/rhome/richter/gambit/bin
make works fine, but not make check:
------------ TEST 2 (error handling) ../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 make[1]: Leaving directory `/tmp_mnt/rhome/richter/gambc-4.0b18/tests' make: *** [check] Error 2
I think what's bugging out is right here in error.scm:
(define (test-rename-file) (try 'rename-file rename-file "newdir1" "newdir2") (try 'rename-file rename-file "newdir1" "newdir2") (try 'rename-file rename-file "newfile1" (path-exp "aaa" "newdir2")) (try 'rename-file rename-file "newfile1" (path-exp "aaa" "newdir2")) )
The only `define' I found for `try' is in mix.scm:
(define (try thunk) (call-with-current-continuation (lambda (cont) (with-exception-handler (lambda (exc) (display "-----> ") (write exc) (show2 " on " thunk) (cont 0)) (lambda () (write (thunk)) (show2 " on " thunk))))))
and I suppose I could eventually figure out what that means. But I don't know how mix.scm is even being used here. It's used in test4
cp $(srcdirpfx)mix.scm .; \ touch mix.rm; \
but that's later in the makefile...