--- a/core/RGBehavior.st Thu Feb 04 10:12:27 2021 +0000
+++ b/core/RGBehavior.st Mon Mar 15 15:52:48 2021 +0000
@@ -476,7 +476,7 @@
parseTree := (RBParser
parseMethod: aString
- onError: [ :msg :pos | ^ nil ]) methodClass: self.
+ onError: [ :msg :pos | ^ nil ])" methodClass: self".
selector := parseTree selector.
newMethod := self ensureLocalMethodNamed: selector.
@@ -487,6 +487,7 @@
^ selector.
"Created: / 04-02-2021 / 10:06:43 / Jan Vrany <jan.vrany@labware.com>"
+ "Modified: / 15-03-2021 / 15:16:04 / Jan Vrany <jan.vrany@labware.com>"
!
compile: aString notifying: anObject