ParserFlags.st
changeset 4238 426bf2a5a3aa
parent 4185 e178b64ce95d
child 4239 18d2206e2674
--- a/ParserFlags.st	Tue Apr 24 18:33:38 2018 +0200
+++ b/ParserFlags.st	Tue Apr 24 21:30:43 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
  COPYRIGHT (c) 2005 by eXept Software AG
@@ -103,7 +105,8 @@
 		WarnPossibleIncompatibilities WarnST80Directives WarnSTXSpecials
 		WarnUndeclared WarnUnderscoreInIdentifier WarnUnusedVars Warnings
 		AutoDefineVariables AllowSignedByteArrayElements
-		AllowSymbolsStartingWithDigit AllowJavaScriptConst'
+		AllowSymbolsStartingWithDigit AllowJavaScriptConst
+		AllowJavaScriptLet'
 	poolDictionaries:''
 	category:'System-Compiler'
 !
@@ -883,6 +886,14 @@
     "Created: / 08-08-2017 / 23:49:07 / cg"
 !
 
+allowJavaScriptLet
+    "return true, if let is allowed and treated as a keyword (in JavaScript)"
+
+    ^ AllowJavaScriptLet
+
+    "Created: / 08-08-2017 / 23:48:48 / cg"
+!
+
 allowLiteralNameSpaceSymbols
     "return true, if literal nameSpace symbols are allowed (#foo::bar) are allowed"
 
@@ -938,7 +949,7 @@
 !
 
 allowParagraphInIdentifier
-    "return true, if §-characters are allowed in identifiers (treated as letter)"
+    "return true, if §-characters are allowed in identifiers (treated as letter)"
 
     ^ AllowParagraphInIdentifier
 
@@ -946,7 +957,7 @@
 !
 
 allowParagraphInIdentifier:aBoolean
-    "this allows turning on/off §-characters in identifiers."
+    "this allows turning on/off §-characters in identifiers."
 
     AllowParagraphInIdentifier := aBoolean.
 
@@ -1511,7 +1522,7 @@
 !
 
 warnParagraphInIdentifier
-    "return true, if §-characters in identifiers are to be warned about"
+    "return true, if §-characters in identifiers are to be warned about"
 
     ^ Warnings and:[WarnParagraphInIdentifier]
 
@@ -1519,7 +1530,7 @@
 !
 
 warnParagraphInIdentifier:aBoolean
-    "this allows turning on/off warnings about §-characters in identifiers.
+    "this allows turning on/off warnings about §-characters in identifiers.
      You may find those warnings useful, to make certain that your code
      is portable to other Smalltalk versions, which do not allow this"
 
@@ -1722,6 +1733,7 @@
     AllowSymbolsStartingWithDigit := false.
 
     AllowJavaScriptConst := true.              
+    AllowJavaScriptLet := false.              
     
     ArraysAreImmutable := false.                "/ still care for ST-80 compatibility
     StringsAreImmutable := false.               "/ still care for ST-80 compatibility
@@ -2402,6 +2414,12 @@
     "Created: / 08-08-2017 / 23:50:23 / cg"
 !
 
+allowJavaScriptLet
+    ^ self class allowJavaScriptLet
+
+    "Created: / 08-08-2017 / 23:50:12 / cg"
+!
+
 allowLazyValueExtension
     ^ allowLazyValueExtension
 !