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