equal
deleted
inserted
replaced
20 ^ result := super assert: p parse: whatever end: end |
20 ^ result := super assert: p parse: whatever end: end |
21 ! |
21 ! |
22 |
22 |
23 cleanClass |
23 cleanClass |
24 | parserClass | |
24 | parserClass | |
25 parserClass := (Smalltalk at: arguments name ifAbsent: [nil]). |
25 parserClass := (Smalltalk at: arguments parserName ifAbsent: [nil]). |
26 parserClass notNil ifTrue:[ |
26 parserClass notNil ifTrue:[ |
27 self flag: 'uncomment'. |
27 self flag: 'uncomment'. |
28 " parserClass removeFromSystem" |
28 " parserClass removeFromSystem" |
29 ]. |
29 ]. |
|
30 |
|
31 "Modified: / 24-07-2015 / 19:50:52 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
30 ! |
32 ! |
31 |
33 |
32 context |
34 context |
33 ^ context := PPCProfilingContext new |
35 ^ context := PPCProfilingContext new |
34 ! |
36 ! |