fix ptrim for singleton arrays

diff --git a/contrib/math/polynomials.factor b/contrib/math/polynomials.factor
index eeb018d925dde626d2bd58fc57f9828ec9dccf68..f13e7b4c76e2307f785d2c57e631ad359d3a1290 100644 (file)
--- a/contrib/math/polynomials.factor
+++ b/contrib/math/polynomials.factor
@@ -16,7 +16,7 @@ USING: arrays kernel sequences vectors math math-internals namespaces arrays
 IN: math-contrib
 : p= ( p p -- ? ) pextend = ;
 
-: ptrim ( p -- p ) [ zero? ] rtrim* ;
+: ptrim ( p -- p ) dup length 1 = [ [ zero? ] rtrim* ] unless ;
 
 : 2ptrim ( p p -- p p ) [ ptrim ] 2apply ;
 : p+ ( p p -- p ) pextend v+ ;