core: map-integers -> map-integers-as

[factor.git] / extra / math / analysis / analysis.factor

diff --git a/extra/math/analysis/analysis.factor b/extra/math/analysis/analysis.factor
index ca3d27ff6661e901962dab4b42f90a2fdac5d224..41752ae8f25441d833d0ffd04fe0feb95ac2d298 100644 (file)
--- a/extra/math/analysis/analysis.factor
+++ b/extra/math/analysis/analysis.factor
@@ -18,7 +18,7 @@ CONSTANT: gamma-p6
     }
 
 : gamma-z ( x n -- seq )
-    [ + recip ] with { } map-integers 1.0 0 pick set-nth ;
+    [ + recip ] with map-integers 1.0 0 pick set-nth ;
 
 : (gamma-lanczos6) ( x -- log[gamma[x+1]] )
     ! log(gamma(x+1)