equal
deleted
inserted
replaced
65 compiler add: '(context peek = ', (Character value: index) storeString, ')' |
65 compiler add: '(context peek = ', (Character value: index) storeString, ')' |
66 ] ifFalse: [ |
66 ] ifFalse: [ |
67 id := compiler idFor: (Character value: index) prefixed: #character. |
67 id := compiler idFor: (Character value: index) prefixed: #character. |
68 compiler addConstant: (Character value: index) as: id. |
68 compiler addConstant: (Character value: index) as: id. |
69 compiler add: '(context peek = ', id, ')'. |
69 compiler add: '(context peek = ', id, ')'. |
70 ] |
70 ] |
71 ] ]. |
71 ] ]. |
72 ! |
72 ! |
73 |
73 |
74 compileGuard: compiler id: symbol |
74 compileGuard: compiler id: symbol |
75 self id: symbol. |
75 self id: symbol. |
83 testAny |
83 testAny |
84 ^ classification allSatisfy: [ :e | e ]. |
84 ^ classification allSatisfy: [ :e | e ]. |
85 ! |
85 ! |
86 |
86 |
87 testMessage: selector |
87 testMessage: selector |
88 classification keysAndValuesDo: [:index :element | |
88 classification keysAndValuesDo: [:index :element | |
89 (element = ((Character value: index) perform: selector)) ifFalse: [ |
89 (element = ((Character value: index) perform: selector)) ifFalse: [ |
90 ^ false |
90 ^ false |
91 ] |
91 ] |
92 ]. |
92 ]. |
93 ^ true |
93 ^ true |
94 ! |
94 ! |
95 |
95 |
96 testSingleCharacter |
96 testSingleCharacter |
97 ^ (classification select: [ :e | e ]) size = 1 |
97 ^ (classification select: [ :e | e ]) size = 1 |
98 ! ! |
98 ! ! |