add a #compiler method to UndefinedObject. We use nil when compiling …

…and parsing expressions, if we have this method, we can easily use the compiler that the class defines for syntax highlight and code completion (without needing to add an if to check for nil)

src/NECompletion/CompletionContext.class.st

@@ -136,12 +136,12 @@ CompletionContext >> node [
 
 { #category : #parsing }
 CompletionContext >> parseSource [
-	ast := Smalltalk compiler
+	ast := class compiler
 		source: source;
 		noPattern: isWorkspace;
-		options:  #(+ optionParseErrors + optionSkipSemanticWarnings);
+		options: #(+ optionParseErrors + optionSkipSemanticWarnings);
 		parse.
-	ast doSemanticAnalysisIn: class.
+	ast doSemanticAnalysis.
 	TypingVisitor new visitNode: ast
 ]
 

src/OpalCompiler-Core/UndefinedObject.extension.st

@@ -4,3 +4,9 @@ Extension { #name : #UndefinedObject }
 UndefinedObject >> allTempNames [
 	^#()
 ]
+
+{ #category : #'*OpalCompiler-Core' }
+UndefinedObject >> compiler [
+	"nil is used as a class for when compiling expressions (for exampke DoIts)"
+	^Smalltalk compiler
+]

src/Shout/SHRBTextStyler.class.st

@@ -971,13 +971,13 @@ SHRBTextStyler >> pixelHeight [
 { #category : #private }
 SHRBTextStyler >> privateStyle: aText [
 	| ast |
-	ast := Smalltalk compiler
+	ast := classOrMetaClass compiler
 		source: aText;
 		noPattern: self isForWorkspace ;
 		options:  #(+ optionParseErrors + optionSkipSemanticWarnings);
 		requestor: workspace;
 		parse.				
-	ast doSemanticAnalysisIn: classOrMetaClass.
+	ast doSemanticAnalysis.
 	^ self style: aText ast: ast
 ]