* lib.scm (exception:used-before-define): New.

* tests/syntax.test ("letrec"): Use it.

diff --git a/test-suite/lib.scm b/test-suite/lib.scm
index ae4ff16..4608328 100644 (file)
--- a/test-suite/lib.scm
+++ b/test-suite/lib.scm
@@ -25,6 +25,7 @@
  exception:bad-variable
  exception:missing-expression
  exception:out-of-range exception:unbound-var
+ exception:used-before-defined
  exception:wrong-num-args exception:wrong-type-arg
  exception:numerical-overflow
 
@@ -243,6 +244,8 @@
   (cons 'out-of-range "^Argument .*out of range"))
 (define exception:unbound-var
   (cons 'unbound-variable "^Unbound variable"))
+(define exception:used-before-defined
+  (cons 'unbound-variable "^Variable used before given a value"))
 (define exception:wrong-num-args
   (cons 'wrong-number-of-args "^Wrong number of arguments"))
 (define exception:wrong-type-arg

diff --git a/test-suite/tests/syntax.test b/test-suite/tests/syntax.test
index 9b3432a..ae02ee8 100644 (file)
--- a/test-suite/tests/syntax.test
+++ b/test-suite/tests/syntax.test
@@ -430,7 +430,7 @@
   (with-test-prefix "bindings"
 
     (pass-if-exception "initial bindings are undefined"
-      exception:unbound-var
+      exception:used-before-defined
       (let ((x 1))
        (letrec ((x 1) (y x)) y))))