From 1bd7d27dd2013080592887b3c7107160ff491b4a Mon Sep 17 00:00:00 2001 From: Ducasse Date: Wed, 3 Mar 2021 20:11:50 +0100 Subject: [PATCH] Fixes: #7756 new try --- src/Calypso-SystemQueries/ClySystemEnvironment.class.st | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/Calypso-SystemQueries/ClySystemEnvironment.class.st b/src/Calypso-SystemQueries/ClySystemEnvironment.class.st index 188124efcdf..a4d50f6f242 100644 --- 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."