--- a/IRInstruction.st Wed Nov 05 18:58:44 2008 +0000
+++ b/IRInstruction.st Mon Dec 01 19:01:08 2008 +0000
@@ -105,6 +105,26 @@
selector: selector
!
+send: selector numArgs: numArgs
+
+ ^ IRSend new
+ selector: selector;
+ numArgs: numArgs
+
+ "Created: / 01-12-2008 / 19:56:55 / Jan Vrany <vranyj1@fel.cvut.cz>"
+!
+
+send: selector numArgs: numArgs toSuperOf: behavior
+
+ behavior ifNil: [self error: 'super of nil does not exist'].
+ ^ IRSend new
+ selector: selector;
+ numArgs: numArgs;
+ superOf: behavior
+
+ "Created: / 01-12-2008 / 19:57:06 / Jan Vrany <vranyj1@fel.cvut.cz>"
+!
+
send: selector toSuperOf: behavior
behavior ifNil: [self error: 'super of nil does not exist'].