ByteCodeCompiler.st
changeset 2428 3e8b7caa22cb
parent 2338 ee3c4b35ad49
child 2462 02ed895be692
--- a/ByteCodeCompiler.st	Thu Oct 14 11:58:06 2010 +0200
+++ b/ByteCodeCompiler.st	Fri Oct 15 10:39:50 2010 +0200
@@ -649,6 +649,20 @@
         ifFail:exceptionBlock
 !
 
+compile:textOrStream in:aClass notifying:requestor install:install ifFail:exceptionBlock
+    "name alias for ST-80 compatibility.
+     Returns the new method, or the value from exceptionBlock."
+
+    ^ self new 
+        compile:textOrStream 
+        in:aClass 
+        notifying:requestor
+        install:install
+        ifFail:exceptionBlock
+
+    "Created: / 15-10-2010 / 10:39:27 / cg"
+!
+
 stcCompileMethod:aMethod
     ParserFlags
 	withSTCCompilation:#always
@@ -1011,6 +1025,23 @@
 	   silent:false
 	   foldConstants:true
 	   ifFail:exceptionBlock.
+!
+
+compile:textOrStream in:aClass notifying:requestor install:install ifFail:exceptionBlock
+    "name alias for ST-80 compatibility"
+
+    ^ self
+           compile:textOrStream
+           forClass:aClass
+           inCategory:'others'
+           notifying:requestor
+           install:install
+           skipIfSame:false
+           silent:false
+           foldConstants:true
+           ifFail:exceptionBlock.
+
+    "Created: / 15-10-2010 / 10:39:42 / cg"
 ! !
 
 !ByteCodeCompiler methodsFor:'accessing'!
@@ -3434,11 +3465,11 @@
 !ByteCodeCompiler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.254 2010-03-10 21:13:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.255 2010-10-15 08:39:50 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.254 2010-03-10 21:13:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.255 2010-10-15 08:39:50 cg Exp $'
 ! !
 
 ByteCodeCompiler initialize!