]> gitweb.factorcode.org Git - factor.git/blobdiff - extra/picomath/picomath.factor
core, basis, extra: Remove DOS line endings from files.
[factor.git] / extra / picomath / picomath.factor
index ff614b58d283c2db9faca51dfa655d0efc8c0532..51e8433c14f9026fbc010a1229292b2d9b741e68 100644 (file)
@@ -367,7 +367,7 @@ DEFER: gamma
 :: log-gamma ( x -- value )
     x 0 <= [ "Invalid input" throw ] when
     x 12 < [ x gamma abs log ] [
-        1.0 x x * / :> z 
+        1.0 x x * / :> z
         7 c nth 7 iota reverse [ [ z * ] [ c nth ] bi* + ] each x / :> series
         x 0.5 - x log * x - halfLogTwoPi + series +
     ] if ;