equal
deleted
inserted
replaced
44 b := $b asParser ==> [ :char | bs := bs + 1 ]. |
44 b := $b asParser ==> [ :char | bs := bs + 1 ]. |
45 s := (a / b) star >=> [ :stream :cc | |
45 s := (a / b) star >=> [ :stream :cc | |
46 as := bs := 0. |
46 as := bs := 0. |
47 cc value. |
47 cc value. |
48 (as even and: [ bs even ]) |
48 (as even and: [ bs even ]) |
49 ifFalse: [ PPFailure message: 'Even number of a and b expected' at: 0 ] ]. |
49 ifFalse: [ PPFailure message: 'Even number of a and b expected' context: stream at: 0 ] ]. |
50 |
50 |
51 self assert: s fail: 'a' end: 1. |
51 self assert: s fail: 'a' end: 1. |
52 self assert: s fail: 'b' end: 1. |
52 self assert: s fail: 'b' end: 1. |
53 self assert: s fail: 'ab' end: 2. |
53 self assert: s fail: 'ab' end: 2. |
54 self assert: s fail: 'ba' end: 2. |
54 self assert: s fail: 'ba' end: 2. |