# HG changeset patch
# User sr
# Date 1315992343 -7200
# Node ID 16c890248840ab660fa21ccffc1bafcba330dbda
# Parent  2dffef08a4ac92111e462c822e6dd065f1b705f0
added: #invalidCodeObjectWith:
oops

diff -r 2dffef08a4ac -r 16c890248840 Method.st
--- a/Method.st	Tue Sep 13 13:56:22 2011 +0200
+++ b/Method.st	Wed Sep 14 11:25:43 2011 +0200
@@ -351,9 +351,9 @@
 
     "Created: / 04-11-1996 / 21:58:58 / cg"
     "Modified: / 08-09-2011 / 05:35:33 / cg"
+    "Modified: / 14-09-2011 / 11:23:09 / sr"
 ! !
 
-
 !Method methodsFor:'Compatibility-Squeak'!
 
 pragmaAt:aKey
@@ -1429,6 +1429,25 @@
     "Modified: 4.11.1996 / 22:45:06 / cg"
 !
 
+invalidCodeObjectWith:arg
+    "{ Pragma: +optSpace }"
+
+    "When recompiling classes after a definition-change, all
+     uncompilable methods (with 2 args) will be bound to this method here,
+     so that evaluating such an uncompilable method will trigger an error."
+
+%{
+    /*
+     * for reasons too far from being explained here,
+     * this MUST be a compiled method
+     */
+%}.
+    ^ InvalidCodeError
+        raiseErrorString:'invalid method - not executable'.
+
+    "Created: / 14-09-2011 / 11:23:49 / sr"
+!
+
 invalidCodeObjectWith:arg with:arg2
     "{ Pragma: +optSpace }"
 
@@ -3555,11 +3574,11 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.376 2011-09-12 08:23:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.377 2011-09-14 09:25:43 sr Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.376 2011-09-12 08:23:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.377 2011-09-14 09:25:43 sr Exp $'
 !
 
 version_SVN