@ -40,8 +40,9 @@
(or
(and (exact-positive-integer? clsv)
(vector-member clsv line-vec))
(error (format "error in line ~a: line ~a not found"
(error
line-num clsv))))])
(format "error in line ~a: line ~a not found"
(line-func)
(add1 line-idx)))))