From 0ac467456bf2c48264c16b92c3c211c5483aaef3 Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Mon, 23 Aug 2004 10:48:51 +0000 Subject: [PATCH] * lib.scm (exception:used-before-define): New. * tests/syntax.test ("letrec"): Use it. --- test-suite/lib.scm | 3 +++ test-suite/tests/syntax.test | 2 +- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/test-suite/lib.scm b/test-suite/lib.scm index ae4ff1628..46083288c 100644 --- 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 9b3432af1..ae02ee842 100644 --- 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))))