From a77f8c7bf143277c25a92bf2548ebf9f22cf2b41 Mon Sep 17 00:00:00 2001
From: Doug Coleman <erg@trifocus.net>
Date: Sun, 16 Oct 2005 22:00:56 +0000
Subject: [PATCH] And another clone in (pgcd)

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

diff --git a/contrib/crypto/polynomial.factor b/contrib/crypto/polynomial.factor
index 864f12abb4..5d92e137fc 100644
--- a/contrib/crypto/polynomial.factor
+++ b/contrib/crypto/polynomial.factor
@@ -96,7 +96,7 @@ IN: math
     p/mod-setup [ [ (p/mod) ] times ] { } make reverse nip swap 2ptrim pextend ;
 
 : (pgcd) ( b a y x -- a d )
-    dup { 0 } p= [
+    dup { 0 } clone p= [
         drop nip
     ] [
         tuck p/mod >r pick p* swap >r swapd p- r> r> (pgcd)