--- a/ParserFlags.st	Fri Feb 17 13:32:08 2006 +0100
+++ b/ParserFlags.st	Fri Feb 17 15:40:02 2006 +0100
@@ -359,6 +359,18 @@
     "
 !
 
+allowFixedPointLiterals
+    "return true, if nnnsn (FixedPoint) literals are allowed"
+
+    ^ AllowFixedPointLiterals
+!
+
+allowFixedPointLiterals:aBoolean
+    "enable/disable, if nnnsn (FixedPoint) literals are allowed"
+
+    AllowFixedPointLiterals := aBoolean
+!
+
 allowFunctionCallSyntaxForBlockEvaluation
     "experimental"
 
@@ -1296,7 +1308,7 @@
 !ParserFlags class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ParserFlags.st,v 1.9 2006-02-08 16:16:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ParserFlags.st,v 1.10 2006-02-17 14:40:02 cg Exp $'
 ! !
 
 ParserFlags initialize!