--- a/Parser.st Tue Feb 25 02:40:09 2020 +0100
+++ b/Parser.st Tue Feb 25 03:22:56 2020 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
@@ -9219,9 +9221,10 @@
!
stringWithEmbeddedExpressions
- |expressions collectedString pos1 pos2 receiver node|
+ |expressions collectedString pos1 pos2 receiver node lNr|
pos1 := tokenPosition.
+ lNr := tokenLineNr.
expressions := OrderedCollection new.
collectedString := ''.
[tokenType == #StringFragment] whileTrue:[
@@ -9235,7 +9238,7 @@
self parseError:'"}" expected after embedded expression'.
].
expressions add:expr.
- collectedString := collectedString,'%',expressions size asString.
+ collectedString := collectedString,'%(',expressions size asString,')'.
self continueEscapedString.
].
pos2 := tokenPosition.
@@ -9257,6 +9260,7 @@
selector:#bindWithArguments:
arg:(self genMakeArrayWith:expressions).
node startPosition:pos1 endPosition:pos2.
+ node lineNumber:lNr.
^ node
"Created: / 22-05-2019 / 20:58:24 / Claus Gittinger"