# HG changeset patch # User Stefan Vogel # Date 1525909119 -7200 # Node ID e8a1e761cdcd16df321860d311ff52d2145c8490 # Parent 84bb9781eee13cbb372823c9fcfdb67d36e955ff fix stc compiler error diff -r 84bb9781eee1 -r e8a1e761cdcd TimeDuration.st --- a/TimeDuration.st Thu May 10 01:26:39 2018 +0200 +++ b/TimeDuration.st Thu May 10 01:38:39 2018 +0200 @@ -251,7 +251,7 @@ ^ [ |seconds millis picos restMillis - t str val fraction uIdx unit unitChar1 negative defaultUnitOrNil| + t1 str val fraction uIdx unit unitChar1 negative defaultUnitOrNil| defaultUnitOrNil := defaultUnitOrNilArg. str := aStringOrStream readStream. @@ -382,9 +382,9 @@ picos := picos + (restMillis * 1000 * 1000 * 1000) truncated. millis := millis + (picos // (1000*1000*1000)). picos := picos \\ (1000*1000*1000). - t := self fromMilliseconds:millis asInteger. - t additionalPicoseconds:picos. - t + t1 := self fromMilliseconds:millis asInteger. + t1 additionalPicoseconds:picos. + t1 ] on:Error do:[:ex | |t|