# HG changeset patch
# User Jan Vrany <jan.vrany@fit.cvut.cz>
# Date 1414361321 0
# Node ID c6c712fc15b7511c84b5392aa5dd5f081757ea57
# Parent  ba6a64ffe00d1fe25d63d191fe649f019b59a4e0
Portability fix in PPCompiler>>cleanGeneratedMethods:

Use more portable coding.

diff -r ba6a64ffe00d -r c6c712fc15b7 compiler/PPCCompiler.st
--- a/compiler/PPCCompiler.st	Sun Oct 26 22:05:59 2014 +0000
+++ b/compiler/PPCCompiler.st	Sun Oct 26 22:08:41 2014 +0000
@@ -80,8 +80,13 @@
 !
 
 cleanGeneratedMethods: class
-	(class allSelectorsInProtocol: #generated) do: [ :selector | 
-		class removeSelectorSilently: selector ].
+        class methodsDo: [ :mthd |
+            mthd category = #generated ifTrue:[  
+                class removeSelector: mthd selector.
+            ]
+        ]
+
+    "Modified: / 26-10-2014 / 22:07:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 cleanInstVars: class