tweaked lisp/awklisp to run properly under qseawk

2019-08-27 16:25:28 +00:00
parent da20a99a10
commit 165ecc7643
1 changed files with 4 additions and 2 deletions
--- 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) == ";")