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/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