[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