VSEChunkFileSourceWriter.st
changeset 3763 0b71a3d86355
parent 3761 5a9e7a444864
child 3764 72c0b5c10608
equal deleted inserted replaced
3762:3031b7d59dce 3763:0b71a3d86355
   288                         "/ hack for LPReal -> move to Float, unles defined there.
   288                         "/ hack for LPReal -> move to Float, unles defined there.
   289                         targetClass == LimitedPrecisionReal ifTrue:[
   289                         targetClass == LimitedPrecisionReal ifTrue:[
   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                             ].
   295                             ].
   296                         ].
   296                         ].
   297                         skip ifFalse:[
   297                         skip ifFalse:[
   298                             aStream nextPutChunkSeparator.
   298                             aStream nextPutChunkSeparator.
   337 ! !
   337 ! !
   338 
   338 
   339 !VSEChunkFileSourceWriter class methodsFor:'documentation'!
   339 !VSEChunkFileSourceWriter class methodsFor:'documentation'!
   340 
   340 
   341 version
   341 version
   342     ^ '$Header: /cvs/stx/stx/libbasic3/VSEChunkFileSourceWriter.st,v 1.12 2015-02-05 14:10:01 cg Exp $'
   342     ^ '$Header: /cvs/stx/stx/libbasic3/VSEChunkFileSourceWriter.st,v 1.13 2015-02-05 16:19:59 cg Exp $'
   343 !
   343 !
   344 
   344 
   345 version_CVS
   345 version_CVS
   346     ^ '$Header: /cvs/stx/stx/libbasic3/VSEChunkFileSourceWriter.st,v 1.12 2015-02-05 14:10:01 cg Exp $'
   346     ^ '$Header: /cvs/stx/stx/libbasic3/VSEChunkFileSourceWriter.st,v 1.13 2015-02-05 16:19:59 cg Exp $'
   347 ! !
   347 ! !
   348 
   348