Fixes #2966

[factor.git] / extra / rot13 / rot13.factor

diff --git a/extra/rot13/rot13.factor b/extra/rot13/rot13.factor
index 6663381522aeb2fbcde56cd4f2b526184c1cd0f7..443d9d59d80c4ed845c2fdd377a2501b447defce 100644 (file)
--- a/extra/rot13/rot13.factor
+++ b/extra/rot13/rot13.factor
@@ -1,9 +1,9 @@
 ! Copyright (C) 2006 Daniel Ehrenberg
-! See http://factorcode.org/license.txt for BSD license.
-USING: kernel math sequences strings io combinators ascii ;
+! See https://factorcode.org/license.txt for BSD license.
+USING: kernel math sequences io combinators ascii ;
 IN: rot13
 
-: rotate ( ch base -- ch ) tuck - 13 + 26 mod + ;
+: rotate ( ch base -- ch ) [ - 13 + 26 mod ] [ + ] bi ;
 
 : rot-letter ( ch -- ch )
     {