assocs.extras: Move some often-used words to core

[factor.git] / extra / crypto / rsa / rsa.factor

diff --git a/extra/crypto/rsa/rsa.factor b/extra/crypto/rsa/rsa.factor
index b21fad68a15af277b23dff24608e87a7b74d1a96..ab77c730dceed65831044bc1b6106a94cd17819d 100644 (file)
--- a/extra/crypto/rsa/rsa.factor
+++ b/extra/crypto/rsa/rsa.factor
@@ -27,11 +27,7 @@ CONSTANT: public-key 65537
     ! Loop until phi is not divisible by the public key.
     dup rsa-primes [ * ] 2keep
     [ 1 - ] bi@ *
-    dup public-key coprime? [
-        rot drop
-    ] [
-        2drop modulus-phi
-    ] if ;
+    dup public-key coprime? [ nipd ] [ 2drop modulus-phi ] if ;
 
 PRIVATE>