# HG changeset patch
# User Jan Vrany <jan.vrany@labware.com>
# Date 1608733612 0
# Node ID 3945989c6e00ff8416a7909f947a36bd3e024051
# Parent  4b3bbdb77e1fffd13210c8687bac45b2511e4c02
core: fix (port) AST access in `RGMethod`

diff -r 4b3bbdb77e1f -r 3945989c6e00 core/RGMethod.st
--- a/core/RGMethod.st	Wed Dec 23 14:22:59 2020 +0000
+++ b/core/RGMethod.st	Wed Dec 23 14:26:52 2020 +0000
@@ -24,6 +24,7 @@
 "
 ! !
 
+
 !RGMethod methodsFor:'accessing'!
 
 argumentNames		
@@ -34,8 +35,9 @@
 ast
     "Answer my AST with semantic analysis. See #parseTree."
     
-    ^ self propertyNamed: #ast ifAbsentPut: [ self parseTree doSemanticAnalysisIn: self methodClass ]
+    ^ self propertyNamed: #ast ifAbsentPut: [ self parseTree ]
 
+    "Modified: / 23-12-2020 / 08:30:34 / Jan Vrany <jan.vrany@labware.com>"
 !
 
 compiledMethod
@@ -67,7 +69,9 @@
 
     ^(RBParser 
         parseMethod: self sourceCode 
-        onError: [ :msg :pos | ^ nil ]) methodClass: self methodClass.
+        onError: [ :msg :pos | ^ nil ])
+
+    "Modified: / 22-12-2020 / 22:34:32 / Jan Vrany <jan.vrany@labware.com>"
 !
 
 selector
@@ -96,7 +100,9 @@
 
 sourceCodeForNoSource
 
-    ^ self selector asMethodPreamble, String cr, String tab, '"source code for the method model not set"'
+    ^ (Parser methodSpecificationForSelector: self selector), String cr, '    "source code for the method model not set"'
+
+    "Modified: / 22-12-2020 / 22:11:23 / Jan Vrany <jan.vrany@labware.com>"
 ! !
 
 !RGMethod methodsFor:'accessing - backend'!
@@ -449,3 +455,10 @@
     ^true
 ! !
 
+!RGMethod class methodsFor:'documentation'!
+
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
+! !
+