added pragma liberal on/off

t/feed-5001.err

@@ -138,19 +138,15 @@ printf if; ##ERROR: syntax error - 'if' prohibited in this context
 
 ---
 
-#**a     ##ERROR: syntax error - invalid binary selector character 'a' after #**
+abc- := 20 ##ERROR: syntax error - illegal identifier 'abc-'
 
 ---
 
-abc- := 20 ##ERROR: syntax error - '-' prohibited as last character of identifier or identifier segment
+self.g- := 20 ##ERROR: syntax error - illegal identifier 'g-'
 
 ---
 
-self.g- := 20 ##ERROR: syntax error - wrong multi-segment identifier - self.g-
-
----
-
-self.-g := 20 ##ERROR: syntax error - wrong multi-segment identifier - self.-g
+self.-g := 20 ##ERROR: syntax error - illegal identifier '-g'
 
 ---
 
@@ -167,11 +163,11 @@ abc.? := 20 ##ERROR: syntax error - wrong multi-segment identifier - abc.?
 
 ---
 
-- := 20 ##ERROR: syntax error - bad lvalue - invalid element - -
+- := 20 ##ERROR: syntax error - bad lvalue - invalid identifier - -
 
 ---
 
-+++ := 20 ##ERROR: syntax error - bad lvalue - invalid element - +++
++++ := 20 ##ERROR: syntax error - bad lvalue - invalid identifier - +++
 
 ---
 

t/var-5001.err

@@ -58,12 +58,12 @@ class A ( + ) { ##ERROR: syntax error - not variable name '+'
 ---
 
 fun xxx(x :: p q) { p := (x + 1); q := (x + 2) }
-[a,[b]] := (xxx 20) ##ERROR: syntax error - bad lvalue - invalid element in tuple
+[a,[b]] := (xxx 20) ##ERROR: syntax error - bad lvalue - invalid identifier in tuple
 printf "%d %d\n" a b
 
 ---
 
-20 := 90 ##ERROR: syntax error - bad lvalue - invalid element - 20
+20 := 90 ##ERROR: syntax error - bad lvalue - invalid identifier - 20
 
 ---