equal
deleted
inserted
replaced
433 aString size ~~ 0 ifTrue:[ |
433 aString size ~~ 0 ifTrue:[ |
434 passChunk ifTrue:[ |
434 passChunk ifTrue:[ |
435 someone notNil ifTrue:[someone source:aString] |
435 someone notNil ifTrue:[someone source:aString] |
436 ]. |
436 ]. |
437 someone perform:#reader: with:(SourceFileLoader::SourceFileReader new) ifNotUnderstood:[]. |
437 someone perform:#reader: with:(SourceFileLoader::SourceFileReader new) ifNotUnderstood:[]. |
438 compiler := Smalltalk::Compiler new. |
438 compiler := (Smalltalk at:#Compiler) new. |
439 compiler allowUndeclaredVariables:false. |
439 compiler allowUndeclaredVariables:false. |
440 |
440 |
441 sawExcla ifFalse:[ |
441 sawExcla ifFalse:[ |
442 "/ class definition chunks, etc., which are simply evaluated |
442 "/ class definition chunks, etc., which are simply evaluated |
443 rslt := compiler evaluate:aString receiver:someone notifying:someone compile:false. |
443 rslt := compiler evaluate:aString receiver:someone notifying:someone compile:false. |
444 ] ifTrue:[ |
444 ] ifTrue:[ |
445 "/ methodsFor chunks, etc., which generate a reader |
445 "/ methodsFor chunks, etc., which generate a reader |
446 Smalltalk::Compiler emptySourceNotificationSignal handle:[:ex | |
446 (Smalltalk at:#Compiler) emptySourceNotificationSignal handle:[:ex | |
447 ^ nil |
447 ^ nil |
448 ] do:[ |
448 ] do:[ |
449 rslt := compiler |
449 rslt := compiler |
450 evaluate:aString |
450 evaluate:aString |
451 notifying:someone |
451 notifying:someone |