From 165ecc7643e09090b8ee2937bd5c920949a563de Mon Sep 17 00:00:00 2001 From: hyung-hwan Date: Tue, 27 Aug 2019 16:25:28 +0000 Subject: [PATCH] tweaked lisp/awklisp to run properly under qseawk --- qse/regress/awk/lisp/awklisp | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/qse/regress/awk/lisp/awklisp b/qse/regress/awk/lisp/awklisp index c4b9d6c0..d3751199 100644 --- a/qse/regress/awk/lisp/awklisp +++ b/qse/regress/awk/lisp/awklisp @@ -467,8 +467,10 @@ function advance() } } if (match(line, "^[()'.]") || - match(line, "^[_A-Za-z0-9=!@$%&*<>?+\\-*/:]+") || - match(line, "^[ \\t]+")) { + ##match(line, "^[_A-Za-z0-9=!@$%&*<>?+\\-*/:]+") || + match(line, "^[-_A-Za-z0-9=!@$%&*<>?+\\*/:]+") || + ##match(line, "^[ \\t]+")) { + match(line, "^[ \t]+")) { token = substr(line, RSTART, RLENGTH) line = substr(line, RLENGTH+1) } else if (line == "" || substr(line, 1, 1) == ";")