|
From: | Paolo Bonzini |
Subject: | Re: [Help-smalltalk] File out error |
Date: | Tue, 24 Oct 2006 17:45:53 +0900 |
User-agent: | Thunderbird 1.5.0.7 (Macintosh/20060909) |
Right. BTW, the idea of 'copy' is to remove the read-only flag that is set on string literals.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.
Thanks, Paolo
[Prev in Thread] | Current Thread | [Next in Thread] |