X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=extra%2Fcrypto%2Fbarrett%2Fbarrett.factor;h=10f99058b5e51140026e97b3b037f55824425ddd;hp=9d5c65aa94da179f01580122d64af8dadcccc793;hb=3f3d57032bf29190e9bee12d168a4bce6d74653c;hpb=cd1bb8f4c8afba318249c7b756a45aa1c46ea51e

diff --git a/extra/crypto/barrett/barrett.factor b/extra/crypto/barrett/barrett.factor
index 9d5c65aa94..10f99058b5 100644
--- a/extra/crypto/barrett/barrett.factor
+++ b/extra/crypto/barrett/barrett.factor
@@ -6,5 +6,5 @@ IN: crypto.barrett
 : barrett-mu ( n size -- mu )
     #! Calculates Barrett's reduction parameter mu
     #! size = word size in bits (8, 16, 32, 64, ...)
-    [ [ log2 1+ ] [ / 2 * ] bi* ]
+    [ [ log2 1 + ] [ / 2 * ] bi* ]
     [ 2^ rot ^ swap /i ] 2bi ;