remote compiler fix to be compatible with Pharo 8

pharo-ide · Apr 8, 2020 · 2200377 · 2200377
1 parent 6baebbf
commit 2200377
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/Seamless-GTSupport/SeamlessRemoteClassCompiler.class.st b/Seamless-GTSupport/SeamlessRemoteClassCompiler.class.st
@@ -1,7 +1,7 @@
 Class {
 	#name : #SeamlessRemoteClassCompiler,
 	#superclass : #OpalCompiler,
-	#category : 'Seamless-GTSupport'
+	#category : #'Seamless-GTSupport'
 }
 
 { #category : #evaluation }
@@ -21,6 +21,10 @@ SeamlessRemoteClassCompiler >> evaluate [
 		ifFalse: [ self class: (context 
 				ifNil: [ receiver remoteClass ]
 				ifNotNil: [ context method methodClass ])].
+	(compilationContext respondsTo: #productionEnvironment:) ifTrue: [ 
+		"Compatibility with Pharo 8"
+		compilationContext productionEnvironment: self class environment].
+
 	self noPattern: true.
 	selectedSource := ((self compilationContext requestor respondsTo: #selection)
 		and: [ 
@@ -29,7 +33,7 @@ SeamlessRemoteClassCompiler >> evaluate [
 		ifTrue: [ itsSelectionString ]
 		ifFalse: [ source ].
 	self source: selectedSource.
-	doItMethod := self translate generateWithSource.
+	doItMethod := self translate methodNode generateWithSource.
 
 	value := receiver withArgs: (context ifNil: [ #() ] ifNotNil: [ {context} ]) executeMethod:  doItMethod.
 	self compilationContext logged