From 61143f7434930bac853d4abd1ca760a72af07d1a Mon Sep 17 00:00:00 2001
From: erg <erg@trifocus.net>
Date: Thu, 19 Oct 2006 20:38:00 +0000
Subject: [PATCH] fix ptrim for singleton arrays

---
 contrib/math/polynomials.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/contrib/math/polynomials.factor b/contrib/math/polynomials.factor
index eeb018d925..f13e7b4c76 100644
--- 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+ ;
-- 
2.34.1