equal
deleted
inserted
replaced
290 (Float implements:mthd selector) ifTrue:[ |
290 (Float implements:mthd selector) ifTrue:[ |
291 skip := true. |
291 skip := true. |
292 ] ifFalse:[ |
292 ] ifFalse:[ |
293 "/ self halt:'save for Float instead of LPReal'. |
293 "/ self halt:'save for Float instead of LPReal'. |
294 targetClass := Float. |
294 targetClass := Float. |
|
295 Transcript showCR:'- moved extension method to Float'. |
295 ]. |
296 ]. |
296 ]. |
297 ]. |
297 skip ifFalse:[ |
298 skip ifFalse:[ |
298 aStream nextPutChunkSeparator. |
299 aStream nextPutChunkSeparator. |
299 aStream nextPutAll:(self rewrittenClassNameOf:targetClass theNonMetaclass). |
300 aStream nextPutAll:(self rewrittenClassNameOf:targetClass theNonMetaclass). |
337 ! ! |
338 ! ! |
338 |
339 |
339 !VSEChunkFileSourceWriter class methodsFor:'documentation'! |
340 !VSEChunkFileSourceWriter class methodsFor:'documentation'! |
340 |
341 |
341 version |
342 version |
342 ^ '$Header: /cvs/stx/stx/libbasic3/VSEChunkFileSourceWriter.st,v 1.13 2015-02-05 16:19:59 cg Exp $' |
343 ^ '$Header: /cvs/stx/stx/libbasic3/VSEChunkFileSourceWriter.st,v 1.14 2015-02-06 10:07:36 cg Exp $' |
343 ! |
344 ! |
344 |
345 |
345 version_CVS |
346 version_CVS |
346 ^ '$Header: /cvs/stx/stx/libbasic3/VSEChunkFileSourceWriter.st,v 1.13 2015-02-05 16:19:59 cg Exp $' |
347 ^ '$Header: /cvs/stx/stx/libbasic3/VSEChunkFileSourceWriter.st,v 1.14 2015-02-06 10:07:36 cg Exp $' |
347 ! ! |
348 ! ! |
348 |
349 |