Fixes: pharo-project#7756 new try

ClotildeToullec · Mar 3, 2021 · 1bd7d27 · 1bd7d27
1 parent e9109a8
commit 1bd7d27
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/Calypso-SystemQueries/ClySystemEnvironment.class.st b/src/Calypso-SystemQueries/ClySystemEnvironment.class.st
@@ -120,6 +120,8 @@ ClySystemEnvironment >> compileANewClassFrom: aString notifying: aController sta
 
 	| oldClass class newClassName defTokens keywdIx classCompiler |
 	"for now make it work!"
+	('*<<*' match: aString)
+		ifTrue: [ ClassDefinitionPrinter showFluidClassDefinition: true ].
 	ClassDefinitionPrinter showFluidClassDefinition
 		ifTrue: [ ^ self defineNewClassFrom: aString notifying: aController  startingFrom: aClass ].
 	self flag: #todo. "What horrible horrible logic."