Added guard clause for seting readstream position, when not changed. (#…

…615) - fixes #614
exercism · Mar 18, 2024 · ee92563 · ee92563
1 parent 54d85b7
commit ee92563
Showing 1 changed file with 13 additions and 0 deletions.
diff --git a/dev/src/ExercismTools/TonelParser.extension.st b/dev/src/ExercismTools/TonelParser.extension.st
@@ -5,3 +5,16 @@ TonelParser >> documentFrom: aString [
 	self stream: aString readStream.
 	^self document
 ]
+
+{ #category : #'*ExercismTools' }
+TonelParser >> try: aBlock onSuccess: successBlock onFailure: failureBlock [
+	| pos |
+
+	pos := stream position.
+	[ ^ successBlock value: aBlock value ]
+	on: TonelParseError
+	do: [ :e |
+		stream position > pos ifTrue: [stream position: pos].
+		^ failureBlock value ].
+
+]