Adds an extension method very high up that ensures that methods that are not bpinstrumented are also not layered anymore

Author: codeZeilen

packages/Babylonian-Compiler.package/ClassDescription.extension/instance/noteCompilationOf.meta..st

@@ -0,0 +1,12 @@
+*Babylonian-Compiler
+noteCompilationOf: aSelector meta: isMeta
+	
+	| theClass method methodHasInstalledInstrumentation sourceIsNotInstrumented |
+	theClass := isMeta ifTrue: [self class] ifFalse: [self].
+	method := self>>aSelector.
+
+	sourceIsNotInstrumented := (BPCompiler new methodSourceRequiresBPLayers: method getSource) not.
+	methodHasInstalledInstrumentation := method isContextSMethod and: [method isLayered and: [method allInvolvedLayers = #(bpInstrumented)]].
+	
+	(sourceIsNotInstrumented and: [methodHasInstalledInstrumentation]) ifTrue: [
+		method removePartialMethod: (method partialMethodFor: #bpInstrumented)]

packages/Babylonian-Compiler.package/ClassDescription.extension/methodProperties.json

@@ -0,0 +1,5 @@
+{
+	"class" : {
+		 },
+	"instance" : {
+		"noteCompilationOf:meta:" : "pre 10/8/2020 09:47" } }

packages/Babylonian-Compiler.package/ClassDescription.extension/properties.json

@@ -0,0 +1,2 @@
+{
+	"name" : "ClassDescription" }