fix pdiff

diff --git a/contrib/math/TODO.txt b/contrib/math/TODO.txt
index 1bc32992f9d291e12dd0cea59b789aaf52dc74da..909e7ebccca31a0ac952096ddf07441660b76670 100644 (file)
--- a/contrib/math/TODO.txt
+++ b/contrib/math/TODO.txt
@@ -3,7 +3,7 @@ Nice to have:
 - Permutations -- composition and inverse (trivial; use sort and map-with)
 - Analysis:
   - error function, cosine integral, sine integral, fresnel functions
-  - exponential integral, logarithm integral, zeta function
+  - logarithm integral, zeta function
   - airy wave function
   - hypergeometric functions
   - elliptic functions

diff --git a/contrib/math/polynomials.factor b/contrib/math/polynomials.factor
index 15090d1682fbc96a7ecb4b726a471d5cf6674335..92d59ff767c958f60b5fb1c0382aa4c3998d51c6 100644 (file)
--- a/contrib/math/polynomials.factor
+++ b/contrib/math/polynomials.factor
@@ -98,4 +98,4 @@ IN: math-contrib
 
 : pdiff ( p -- p' )
     #! Polynomial derivative.
-    [ length reverse-slice ] keep [ 1+ * ] 2map 1 swap head* ;
+    dup empty? [ [ length ] keep v* 1 swap tail ] unless ;