And another clone in (pgcd)

diff --git a/contrib/crypto/polynomial.factor b/contrib/crypto/polynomial.factor
index 864f12abb4ec14c78d08af307bba69c7230f5fc0..5d92e137fca09faa5f5d97daa67125c491119f99 100644 (file)
--- 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)