help-smalltalk
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [Help-smalltalk] File out error


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)


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




reply via email to

[Prev in Thread] Current Thread [Next in Thread]