[gambit-list] Gambit-C 4.0 beta 18
Bill Richter
richter at math.northwestern.edu
Sat Sep 23 03:35:25 EDT 2006
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...
More information about the Gambit-list
mailing list