fix rsa tests

2009-05-10 18:20:19 -05:00 · 2009-05-10 18:20:19 -05:00 · c92afaf385
parent 65faa3fda3
commit c92afaf385
1 changed files with 1 additions and 1 deletions
--- a/extra/crypto/rsa/rsa.factor
+++ b/extra/crypto/rsa/rsa.factor
@ -21,7 +21,7 @@ C: <rsa> rsa
 CONSTANT: public-key 65537

 : rsa-primes ( numbits -- p q )
-    2/ 2 unique-primes first2 ;
+    2/ 2 swap unique-primes first2 ;

 : modulus-phi ( numbits -- n phi ) 
    #! Loop until phi is not divisible by the public key.