[squeak-dev] The Trunk: Compiler-mt.359.mcz

commits at source.squeak.org commits at source.squeak.org
Fri Nov 10 14:29:46 UTC 2017


Marcel Taeumel uploaded a new version of Compiler to project The Trunk:
http://source.squeak.org/trunk/Compiler-mt.359.mcz

==================== Summary ====================

Name: Compiler-mt.359
Author: mt
Time: 10 November 2017, 3:29:46.851435 pm
UUID: 322cf1dd-62e8-aa47-8cb2-3dc89c780138
Ancestors: Compiler-mt.358

Fix spacing. Still needs a better implementation, I guess.

=============== Diff against Compiler-mt.358 ===============

Item was changed:
  ----- Method: Compiler>>formatNoPattern:environment: (in category 'public access') -----
  formatNoPattern: textOrStream environment: env
  	"Pretty-print a code snippet. Removes leading 'DoIt' and the '^' in the last statement. To be used in workspace-like tools."
  	
  	| aNode |
  	self setCue: (CompilationCue
  		source: textOrStream
  		environment: env).
  		
  	aNode := self formatNoPattern: true ifFail: [^ nil].
  
  	^ (aNode decompileString lines allButFirst "DoIt" collect: [:ea |
+ 		ea allButFirst "tab" in: [:result | (result beginsWith: '^ ') ifTrue: [result allButFirst: 2] ifFalse: [result]]])
- 		ea allButFirst "tab" in: [:result | (result beginsWith: '^') ifTrue: [result allButFirst] ifFalse: [result]]])
  			joinSeparatedBy: String cr!



More information about the Squeak-dev mailing list