And another clone in (pgcd)

2005-10-16 22:00:56 +00:00 · 2005-10-16 22:00:56 +00:00 · a77f8c7bf1
parent 2e715a33c2
commit a77f8c7bf1
1 changed files with 1 additions and 1 deletions
--- 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)