Fix a potential R7RS issue.

I was using the load procedure to load a program, but by a strict
reading of R7RS, load can only handle expressions and definitions, not
imports. So instead I'm defining each test as a library, and using the
environment procedure to load them at runtime.

1 files changed, 14 insertions, 14 deletions

diff --git a/csc/assert-test.csc b/csc/assert-test.csc
index 4341ac7..4e8d2d3 100644
--- a/csc/assert-test.csc
+++ b/csc/assert-test.csc
@@ -1,14 +1,14 @@
-(import (scheme base)
-        (only (csc testing)
-          assert-raises
-          test)
-        (csc assert))
-
-
-(test assert-raises
-  (assert-raises error-object?
-    (assert #f)))
-
-
-(test assert-ok
-  (assert #t))
+(define-library (csc assert-test)
+  (import (scheme base)
+          (only (csc testing)
+            assert-raises
+            test)
+          (csc assert))
+  (begin
+    (test assert-raises
+      (assert-raises error-object?
+        (assert #f)))
+    
+    
+    (test assert-ok
+      (assert #t))))