--- 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