+ Catch and report errors

+ Use scheme-with-scsh

scsh/test/test-base.scm

@@ -118,7 +118,16 @@
       (if (not silent)
 	  (display-start))
       
-      (if (apply proc args)
+      (call-with-current-continuation
+       (lambda (k)
+         (if (with-handler
+              (lambda (cond more)
+                (display "Error: ")
+                (display cond)
+                (newline)
+                (k #f))
+              (lambda ()
+                (apply proc args)))
              (begin
                (if silent
                    (display ".")
@@ -131,7 +140,7 @@
                (display "Error! Input was ")
                (display args)
                (newline)
-	    #f)))))
+               #f)))))))
 
 ;; --- Exported functions to make a test -------------------------------
 ;; The following 3 functions start the testing. They all have an 

scsh/test/test-packages.scm

@@ -8,21 +8,19 @@
 	  test-summary))
 
 (define-structure test-base test-base-interface
-  (open scsh
+  (open scheme-with-scsh
-	scheme
+        handle
 	list-lib
 	define-record-types)
   (files test-base))
 
 (define-structure file-system-test (export)
-  (open scsh
+  (open	scheme-with-scsh
-	scheme
 	test-base)
   (files file-system-tests))
 
 (define-structure process-state-test (export)
-  (open scsh
+  (open	scheme-with-scsh
-	scheme
 	test-base)
   (files process-state-tests))
 
@@ -41,8 +39,7 @@
    exec-path-list-test
    add-before-test
    add-after-test)
-  (open scsh
+  (open scheme-with-scsh
-	scheme
  	thread-fluids
 	list-lib
 	string-lib)
@@ -50,15 +47,13 @@
   
 (define-structure add-env-test
   (export)
-  (open scsh
+  (open scheme-with-scsh
-	scheme
 	test-base
         env-test)
   (files env-test-add))
 
 (define-structure system-parameter-tests (export)
-  (open scsh
+  (open scheme-with-scsh
-	scheme
 	test-base)
   (begin
     (add-test! 'uname 'system-parameter