ShortFloat.st
changeset 4455 2d31d0d986be
parent 4305 e71100d13b67
child 4591 64d6624dae5e
--- a/ShortFloat.st	Mon Jul 26 11:07:53 1999 +0200
+++ b/ShortFloat.st	Mon Jul 26 11:11:55 1999 +0200
@@ -359,32 +359,32 @@
     double dResult, dVal;
 
     if (__isSmallInteger(aNumber)) {
-	if (aNumber != __MKSMALLINT(0)) {
-	    result = __shortFloatVal(self) / (float)(__intVal(aNumber));
+        if (aNumber != __MKSMALLINT(0)) {
+            result = __shortFloatVal(self) / (float)(__intVal(aNumber));
 retResult:
-	    __qMKSFLOAT(newFloat, result);
-	    RETURN ( newFloat );
-	}
+            __qMKSFLOAT(newFloat, result);
+            RETURN ( newFloat );
+        }
     } else if (__isShortFloat(aNumber)) {
-	val = __shortFloatVal(aNumber);
-	if (val != 0.0) {
-	    result = __shortFloatVal(self) / val;
-	    goto retResult;
-	}
+        val = __shortFloatVal(aNumber);
+        if (val != 0.0) {
+            result = __shortFloatVal(self) / val;
+            goto retResult;
+        }
     } else if (__isFloatLike(aNumber)) {
-	dVal = __floatVal(aNumber);
-	if (dVal != 0.0) {
-	    dResult = (double) __shortFloatVal(self) / dVal;
-	    __qMKFLOAT(newFloat, dResult);
-	    RETURN ( newFloat );
-	}
+        dVal = __floatVal(aNumber);
+        if (dVal != 0.0) {
+            dResult = (double) __shortFloatVal(self) / dVal;
+            __qMKFLOAT(newFloat, dResult);
+            RETURN ( newFloat );
+        }
     }
 %}.
     ((aNumber == 0) or:[aNumber = 0.0]) ifTrue:[
-	"
-	 No, you shalt not divide by zero
-	"
-	^ DivisionByZeroSignal raise.
+        "
+         No, you shalt not divide by zero
+        "
+        ^ DivisionByZeroSignal raiseRequest.
     ].
     ^ aNumber quotientFromShortFloat:self
 
@@ -960,5 +960,5 @@
 !ShortFloat class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ShortFloat.st,v 1.47 1999-06-23 12:41:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ShortFloat.st,v 1.48 1999-07-26 09:11:18 stefan Exp $'
 ! !