]> gitweb.factorcode.org Git - factor.git/blobdiff - extra/crypto/rsa/rsa.factor
Fix comments to be ! not #!.
[factor.git] / extra / crypto / rsa / rsa.factor
index a712a1a1f355fc195005b4aebdf67ad6ece7a65a..0fc59da8aaffe665c921a65d39323a58e187f06b 100644 (file)
@@ -24,7 +24,7 @@ CONSTANT: public-key 65537
     2/ 2 swap unique-primes first2 ;
 
 : modulus-phi ( numbits -- n phi )
-    #! Loop until phi is not divisible by the public key.
+    ! Loop until phi is not divisible by the public key.
     dup rsa-primes [ * ] 2keep
     [ 1 - ] bi@ *
     dup public-key coprime? [