equal
deleted
inserted
replaced
547 hasZeroPriorityOnly |
547 hasZeroPriorityOnly |
548 ^ self stateInfos allSatisfy: [ :si | si hasPriority not or: [ si priority == 0 ] ]. |
548 ^ self stateInfos allSatisfy: [ :si | si hasPriority not or: [ si priority == 0 ] ]. |
549 ! |
549 ! |
550 |
550 |
551 isFailure |
551 isFailure |
552 self error: 'Obsolete?'. |
552 self flag: 'JK, please check it and fix it'. |
553 " |
553 "`retval` is undefined, nowehere initialized so the |
554 ^ self isFinal and: [ retval class == PEGFsaFailure ] |
554 comparison is alway false. Therefore, returning |
555 " |
555 false unconditionally from here should suffice." |
|
556 ^ self isFinal and: [ "retval class == PEGFsaFailure"false ]. |
|
557 |
556 |
558 |
557 "Modified: / 17-08-2015 / 12:01:54 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
559 "Modified: / 17-08-2015 / 12:01:54 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
558 ! |
560 ! |
559 |
561 |
560 isFinal |
562 isFinal |