--- a/compiler/PEGFsaState.st Mon Aug 17 12:13:16 2015 +0100
+++ b/compiler/PEGFsaState.st Mon Aug 24 15:34:14 2015 +0100
@@ -60,20 +60,6 @@
^ self isFinal and: [ self info isFsaFailure ]
!
-multivalue
- <resource: #obsolete>
- ^ self isMultivalue
-
- "Modified: / 17-08-2015 / 12:03:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-multivalue: anObject
- self flag: 'JK: Obsolete?'.
- "multivalue := anObject"
-
- "Modified: / 17-08-2015 / 12:03:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
name
^ name
!
@@ -126,6 +112,11 @@
^ infos values
!
+transition
+ self assert: transitions size == 1.
+ ^ transitions anyOne
+!
+
transitions
^ transitions
! !
@@ -558,12 +549,9 @@
!
isFailure
- self error: 'Obsolete?'.
- "
- ^ self isFinal and: [ retval class == PEGFsaFailure ]
- "
+ ^ self isFinal" and: [ retval class == PEGFsaFailure ]"
- "Modified: / 17-08-2015 / 12:01:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 24-08-2015 / 15:31:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
isFinal
@@ -611,7 +599,6 @@
state isFinal ifFalse: [ ^ newState retval: self retval ].
(self priority = state priority) ifTrue: [
- newState multivalue: true.
^ newState retval: { self retval . state retval }.
].