equal
deleted
inserted
replaced
479 |
479 |
480 | parseTree selector newMethod | |
480 | parseTree selector newMethod | |
481 |
481 |
482 parseTree := (RBParser |
482 parseTree := (RBParser |
483 parseMethod: aString |
483 parseMethod: aString |
484 onError: [ :msg :pos | ^ nil ]) methodClass: self. |
484 onError: [ :msg :pos | ^ nil ])" methodClass: self". |
485 |
485 |
486 selector := parseTree selector. |
486 selector := parseTree selector. |
487 newMethod := self ensureLocalMethodNamed: selector. |
487 newMethod := self ensureLocalMethodNamed: selector. |
488 newMethod sourceCode: aString. |
488 newMethod sourceCode: aString. |
489 aCategory notNil ifTrue: [ |
489 aCategory notNil ifTrue: [ |
490 newMethod tagWith: aCategory ]. |
490 newMethod tagWith: aCategory ]. |
491 |
491 |
492 ^ selector. |
492 ^ selector. |
493 |
493 |
494 "Created: / 04-02-2021 / 10:06:43 / Jan Vrany <jan.vrany@labware.com>" |
494 "Created: / 04-02-2021 / 10:06:43 / Jan Vrany <jan.vrany@labware.com>" |
|
495 "Modified: / 15-03-2021 / 15:16:04 / Jan Vrany <jan.vrany@labware.com>" |
495 ! |
496 ! |
496 |
497 |
497 compile: aString notifying: anObject |
498 compile: aString notifying: anObject |
498 ^ self compile: aString classified: self asYetUnclassifiedProtocolName notifying: anObject |
499 ^ self compile: aString classified: self asYetUnclassifiedProtocolName notifying: anObject |
499 |
500 |