Looking at String>>storeOn: i'm a bit puzzled about the ''' copy':
storeOn: aStream
"Store Smalltalk code compiling to the receiver on aStream"
aStream nextPut: $'.
self do:
⋅ [ :char | char == $' ifTrue: [ aStream nextPut: char ].
⋅ ⋅ aStream nextPut: char ].
self isReadOnly ifFalse: [ aStream nextPutAll: ''' copy' ]
!
There seems to be missing a "ifTrue: [ aStream nextPut: $' ]" or something like
that.
Right. BTW, the idea of 'copy' is to remove the read-only flag that is
set on string literals.
Thanks,
Paolo
_______________________________________________
help-smalltalk mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/help-smalltalk
