--- a/LargeFloat.st	Wed Aug 13 15:11:00 2003 +0200
+++ b/LargeFloat.st	Wed Aug 13 15:11:26 2003 +0200
@@ -333,8 +333,6 @@
 asTrueFraction
     "Answer a fraction or integer that EXACTLY represents self."
 
-    |result|
-
     exponent = 0 ifTrue: [ ^ mantissa].
 
     mantissa == 0 ifTrue:[
@@ -349,14 +347,11 @@
     ].
 
     exponent > 0 ifTrue: [
-        result := mantissa bitShift:exponent 
-    ] ifFalse: [
-        result := Fraction
-                numerator: mantissa
-                denominator: (1 bitShift:exponent negated) 
+        ^ mantissa bitShift:exponent 
     ].
-
-    ^ result 
+    ^ Fraction
+        numerator: mantissa
+        denominator: (1 bitShift:exponent negated) 
 
     "
      0.3 asFloat asTrueFraction   
@@ -717,7 +712,7 @@
 !LargeFloat class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/LargeFloat.st,v 1.5 2003-08-13 11:53:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/LargeFloat.st,v 1.6 2003-08-13 13:11:26 cg Exp $'
 ! !
 
 LargeFloat initialize!