Raymond Toy pushed to branch master at cmucl / cmucl

Commits:

1 changed file:

Changes:

  • src/lisp/e_asin.c
    ... ... @@ -94,12 +94,13 @@ qS4 = 7.70381505559019352791e-02; /* 0x3FB3B8C5, 0xB12E9282 */
    94 94
                     }
    
    95 95
     
    
    96 96
                     return x;
    
    97
    -	    } else 
    
    97
    +	    } else {
    
    98 98
     		t = x*x;
    
    99 99
     		p = t*(pS0+t*(pS1+t*(pS2+t*(pS3+t*(pS4+t*pS5)))));
    
    100 100
     		q = one+t*(qS1+t*(qS2+t*(qS3+t*qS4)));
    
    101 101
     		w = p/q;
    
    102 102
     		return x+x*w;
    
    103
    +            }
    
    103 104
     	}
    
    104 105
     	/* 1> |x|>= 0.5 */
    
    105 106
     	w = one-fabs(x);