renumbers error testers basing on 5000.

fixed a compiler bug not checking the lower bound of block depth in find_variable_backward_with_word()

t/Makefile.am

@@ -1,6 +1,7 @@
 AUTOMAKE_OPTIONS = nostdinc
 
 check_SCRIPTS = \
+	feed-01.hcl \
 	fun-01.hcl \
 	insta-01.hcl \
 	insta-02.hcl \
@@ -10,19 +11,19 @@ check_SCRIPTS = \
 	var-02.hcl
 
 check_ERRORS = \
-	call-01.err \
-	class-01.err \
-	do-01.err \
-	do-02.err \
-	feed-01.err \
-	feed-02.err \
-	feed-03.err \
-	feed-04.err \
-	mlist-01.err \
-	var-01.err \
-	var-02.err \
-	var-03.err \
-	var-04.err
+	call-5001.err \
+	class-5001.err \
+	do-5001.err \
+	do-5002.err \
+	feed-5001.err \
+	feed-5002.err \
+	feed-5003.err \
+	feed-5004.err \
+	mlist-5001.err \
+	var-5001.err \
+	var-5002.err \
+	var-5003.err \
+	var-5004.err
 
 ##noinst_SCRIPTS = $(check_SCRIPTS)
 EXTRA_DIST = $(check_SCRIPTS) $(check_ERRORS)

t/Makefile.in

@@ -472,6 +472,7 @@ top_builddir = @top_builddir@
 top_srcdir = @top_srcdir@
 AUTOMAKE_OPTIONS = nostdinc
 check_SCRIPTS = \
+	feed-01.hcl \
 	fun-01.hcl \
 	insta-01.hcl \
 	insta-02.hcl \
@@ -481,19 +482,19 @@ check_SCRIPTS = \
 	var-02.hcl
 
 check_ERRORS = \
-	call-01.err \
-	class-01.err \
-	do-01.err \
-	do-02.err \
-	feed-01.err \
-	feed-02.err \
-	feed-03.err \
-	feed-04.err \
-	mlist-01.err \
-	var-01.err \
-	var-02.err \
-	var-03.err \
-	var-04.err
+	call-5001.err \
+	class-5001.err \
+	do-5001.err \
+	do-5002.err \
+	feed-5001.err \
+	feed-5002.err \
+	feed-5003.err \
+	feed-5004.err \
+	mlist-5001.err \
+	var-5001.err \
+	var-5002.err \
+	var-5003.err \
+	var-5004.err
 
 EXTRA_DIST = $(check_SCRIPTS) $(check_ERRORS)
 TEST_EXTENSIONS = .hcl .err

t/feed-01.hcl

@@ -0,0 +1,54 @@
+## this file is to test the reader/feeder againsst weirdly formatted input text.
+
+{  ## START
+
+| J |
+
+defun xxx (x y z
+	::: r ) {
+
+	| k 
+	b
+	s |
+
+	k := (+ x y z)
+	b := (* k k)
+	s := (* b b)
+
+	printf "%d %d %d\n" k b s
+
+	r := s
+	J := r
+}
+
+
+[
+j
+] \
+	:= (xxx 
+	10 
+	20 
+	30)
+
+if (eqv? j 12960000) \
+{
+	printf "OK: j is 12960000\n"
+} else {
+	printf "BAD: j is not 12960000\n"
+}
+
+xxx \
+	1 \
+	2 \
+	3
+
+if (eqv? J 1296) {
+	printf "OK: J is 1296\n"
+} else {
+	printf "BAD: J is not 1296\n"
+}
+
+
+
+
+}  ## END

t/var-02.hcl

@@ -14,11 +14,11 @@ if (eqv? j 20) {
 	q := (x 30);
 };
 
-if (/= a 900) { print "ERROR: a is not 900\n" }
+if (/= a 900) { print "ERROR: a is not 900\n" } \
 else { printf "OK: %d\n" a };
 
-if (/= b 60) { print "ERROR: b is not 60\n" }
+if (/= b 60) { print "ERROR: b is not 60\n" } \
 else { printf "OK: %d\n" b };
 
-if (/= c 840) { print "ERROR: c is not 840\n" }
+if (/= c 840) { print "ERROR: c is not 840\n" } \
 else { printf "OK: %d\n" c };