From: erg <erg@trifocus.net>
Date: Thu, 19 Oct 2006 20:38:00 +0000 (+0000)
Subject: fix ptrim for singleton arrays
X-Git-Tag: 0.85~2
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=61143f7434930bac853d4abd1ca760a72af07d1a

fix ptrim for singleton arrays
---

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+ ;