Christoph Thiede uploaded a new version of Collections to project The Trunk:
http://source.squeak.org/trunk/Collections-ct.998.mcz

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

Name: Collections-ct.998
Author: ct
Time: 28 March 2022, 1:56:52.242267 pm
UUID: 74080f41-16ed-dc43-8f7c-1cd16bc91db7
Ancestors: Collections-ct.997

Adds literal arrays and scaled decimals to the smalltalk postcard. Removes obsolete line breaks from the comment.

=============== Diff against Collections-ct.997 ===============

Item was changed:
  ----- Method: Text class>>codeSample (in category 'filler text') -----
  codeSample
  
  	^ 'exampleWithNumber: x
+ 	"A method that illustrates every part of Smalltalk method syntax including primitives. It has unary, binary, and keyboard messages; declares arguments and temporaries; accesses a global variable (but not an instance variable); uses literals (array, nested array, character, symbol, string, integer, float, scaled decimal, and byte array); uses the pseudo variables nil, true, false, self, super, and thisContext; shows that within a literal array nil, true, and false are symbols not pseudo variables; and has sequence, assignment, return, cascade, and tuple (array) creation. It has both zero argument and one argument blocks, and has a block temporary."
- 	"A method that illustrates every part of Smalltalk method syntax
- 	including primitives. It has unary, binary, and keyboard messages,
- 	declares arguments and temporaries, accesses a global variable
- 	(but not an instance variable), uses literals (array, character, symbol,
- 	string, integer, float, byte array), uses the pseudo variables nil, true,
- 	false, self, super, and thisContext, shows that within a literal array
- 	nil, true and false are symbols not pseudo variables, and has sequence,
- 	assignment, return, cascade, and tuple (array) creation. It has both
- 	zero argument and one argument blocks, and has a block temporary."
  	<primitive: ''primitiveCopyBits'' module: #BitBltPlugin error: ec>
  	| y |
  	true & false not & (nil isNil) ifFalse: [self halt].
  	y := self size + super size.
+ 	#($a #a ''a'' "a" (1 1.0 1.0s2) nil true false), { #[65]. thisContext. nil. true. false }
- 	#($a #a ''a'' "a" 1 1.0 nil true false), { #[65]. thisContext. nil. true. false }
  		do: [ :each | | class |
  			class := each class.
  			Transcript
  				show: (class name);
  				show: '' ''].
  	^ x < y'!