--- ray/src/common/color.c	1989/03/15 13:48:37	1.2
+++ ray/src/common/color.c	1989/05/11 21:22:38	1.3
@@ -319,33 +319,3 @@ register COLR  clr;
 		col[BLU] = (clr[BLU] + 0.5)*f;
 	}
 }
-
-
-#ifdef  FREXP
-double
-frexp(x, ip)		/* call it paranoia, I've seen the lib version */
-register double  x;
-int  *ip;
-{
-	int  neg;
-	register int  i;
-
-	if (neg = (x < 0.0))
-		x = -x;
-	else if (x == 0.0) {
-		*ip = 0;
-		return(0.0);
-	}
-	if (x < 0.5)
-		for (i = 0; x < 0.5; i--)
-			x *= 2.0;
-	else
-		for (i = 0; x >= 1.0; i++)
-			x /= 2.0;
-	*ip = i;
-	if (neg)
-		return(-x);
-	else
-		return(x);
-}
-#endif