'From etoys4.0 of 9 October 2008 [latest update: #2206] on 18 March 2009 at 10:39:11 pm'! "Change Set: keepTempNames-yo Date: 18 March 2009 Author: Yoshiki Ohshima Keep temp names for tetually coded scripts."! !ClassDescription methodsFor: 'compiling' stamp: 'yo 3/18/2009 22:26'! compile: text classified: category withStamp: changeStamp notifying: requestor logSource: logSource for: anInstance | methodAndNode | methodAndNode _ self basicCompile: text asString notifying: requestor trailer: self defaultMethodTrailer ifFail: [^nil] for: anInstance. methodAndNode method: (methodAndNode method copyWithTempNames: (methodAndNode node tempNames)). logSource ifTrue: [ self logMethodSource: text forMethodWithNode: methodAndNode inCategory: category withStamp: changeStamp notifying: requestor. ]. self addAndClassifySelector: methodAndNode selector withMethod: methodAndNode method inProtocol: category notifying: requestor. self theNonMetaClass noteCompilationOf: methodAndNode selector meta: self isMeta. ^ methodAndNode selector! !