From 37ad0a4ed2af9b44db2a0377022449ef896b5a16 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Tue, 1 Nov 2005 00:54:03 +0000
Subject: [PATCH] fix pdiff

---
 contrib/math/TODO.txt           | 2 +-
 contrib/math/polynomials.factor | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/contrib/math/TODO.txt b/contrib/math/TODO.txt
index 1bc32992f9..909e7ebccc 100644
--- 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 15090d1682..92d59ff767 100644
--- 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 ;