compiler/PEGFsaState.st
changeset 525 751532c8f3db
parent 518 a6d8b93441b0
parent 524 f6f68d32de73
child 526 cc0ce8edda63
--- a/compiler/PEGFsaState.st	Tue Aug 18 22:46:10 2015 +0100
+++ b/compiler/PEGFsaState.st	Mon Aug 24 15:56:20 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,9 +549,12 @@
 !
 
 isFailure
-    ^ self isFinal
+    self error: 'Obsolete?'.
+    "
+    ^ self isFinal and: [ retval class == PEGFsaFailure ]
+    "
 
-    "Modified: / 17-08-2015 / 13:45:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 17-08-2015 / 12:01:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 isFinal
@@ -608,7 +602,6 @@
     state isFinal ifFalse: [ ^ newState retval: self retval ].
 
     (self priority = state priority) ifTrue: [ 
-        newState multivalue: true.
         ^ newState retval: { self retval . state retval }.
     ].