diff --git a/grammar/SIPQuotedStringParser.st b/grammar/SIPQuotedStringParser.st index b56bfc9..9b4a8ab 100644 --- a/grammar/SIPQuotedStringParser.st +++ b/grammar/SIPQuotedStringParser.st @@ -65,19 +65,15 @@ PP.PPParser subclass: SIPQuotedStringParser [ ifTrue: [ aStream skip: 1. parsed := true. - finish := true] + ^text contents] ifFalse: [ c = $\ ifTrue: [inQuote := true]. text nextPut: c. aStream skip: 1. finish := aStream atEnd]]]. - ^parsed - ifFalse: [ - aStream pointer: aStartPointer. - PPFailure message: 'Expected closing quote' at: aStream position] - ifTrue: [ - text contents]. + aStream pointer: aStartPointer. + ^PPFailure message: 'Expected closing quote' at: aStream position ] parseOn: aStream [