equal
deleted
inserted
replaced
98 |
98 |
99 self initializePassesIfNotAlready. |
99 self initializePassesIfNotAlready. |
100 [ |
100 [ |
101 index := passes indexOf: pass. |
101 index := passes indexOf: pass. |
102 index ~~ 0 |
102 index ~~ 0 |
103 ] whileTrue:[ |
103 ] whileTrue:[ |
104 passes removeAtIndex: index |
104 "Fuck it!! |
|
105 Pharo does not have #removeAtIndex: which is actually |
|
106 and ANSI protocol. But Pharoers do not like ANSI and don't |
|
107 give a shit about compatibility. Hence the following piece |
|
108 of crap." |
|
109 (passes respondsTo: #removeAtIndex:) ifTrue:[ |
|
110 passes removeAtIndex: index. |
|
111 ] ifFalse:[ |
|
112 "Try Pharo's non-standard removeAt:" |
|
113 (passes respondsTo: #removeAt:) ifTrue:[ |
|
114 passes removeAt: index |
|
115 ] ifFalse:[ |
|
116 self error: 'Don''t know how to remove object at index...' |
|
117 ]. |
|
118 ]. |
105 ]. |
119 ]. |
106 |
120 |
107 "Created: / 04-09-2015 / 11:24:45 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
121 "Created: / 04-09-2015 / 11:24:45 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
108 "Modified: / 04-09-2015 / 16:02:17 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
122 "Modified: / 08-09-2015 / 02:36:09 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
109 ! ! |
123 ! ! |
110 |
124 |
111 !PPCCompiler methodsFor:'compiling'! |
125 !PPCCompiler methodsFor:'compiling'! |
112 |
126 |
113 compile: aPPParser |
127 compile: aPPParser |