#REFACTORING by cg
authorClaus Gittinger <cg@exept.de>
Fri, 21 Feb 2020 15:16:30 +0100
changeset 4636 dc08f5bcc04d
parent 4635 d8c0804e23e3
child 4637 1f1869c7b7ad
#REFACTORING by cg class: ParserFlags changed: #allowExtendedBinarySelectors #allowFixedPointLiterals class: ParserFlags class changed: #allowExtendedBinarySelectors #allowFixedPointLiterals
ParserFlags.st
--- a/ParserFlags.st	Fri Feb 14 09:07:14 2020 +0100
+++ b/ParserFlags.st	Fri Feb 21 15:16:30 2020 +0100
@@ -999,7 +999,7 @@
 allowExtendedBinarySelectors
     "experimental extended selectors extensions"
 
-    ^ AllowExtendedBinarySelectors
+    ^ AllowExtendedBinarySelectors ? false
 
     "
      ParserFlags allowExtendedBinarySelectors
@@ -1042,10 +1042,10 @@
 !
 
 allowFixedPointLiterals
-    "return true, if nnnsn (FixedPoint) literals are allowed.
+    "return true, if nnnsn (FixedPoint / ScaledDecimal) literals are allowed.
      The default is true."
 
-    ^ AllowFixedPointLiterals
+    ^ AllowFixedPointLiterals ? true
 
     "Modified (comment): / 23-05-2019 / 09:00:40 / Claus Gittinger"
 !
@@ -2891,7 +2891,7 @@
 !
 
 allowExtendedBinarySelectors
-    ^ allowExtendedBinarySelectors
+    ^ allowExtendedBinarySelectors ? false
 !
 
 allowExtendedBinarySelectors:aBoolean
@@ -2923,7 +2923,10 @@
 !
 
 allowFixedPointLiterals
-    ^ allowFixedPointLiterals
+    "return true, if nnnsn (FixedPoint / ScaledDecimal) literals are allowed.
+     The default is true."
+
+    ^ allowFixedPointLiterals ? true
 !
 
 allowFixedPointLiterals:aBoolean