Fixes #2966

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

diff --git a/extra/rot13/rot13.factor b/extra/rot13/rot13.factor
index 9849f4e645c20579a3e824d148ac4acca5399246..443d9d59d80c4ed845c2fdd377a2501b447defce 100644 (file)
--- a/extra/rot13/rot13.factor
+++ b/extra/rot13/rot13.factor
@@ -1,15 +1,15 @@
 ! Copyright (C) 2006 Daniel Ehrenberg
-! See http://factorcode.org/license.txt for BSD license.
-USING: kernel math sequences strings io combinators ;
+! 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 )
     {
         { [ dup letter? ] [ CHAR: a rotate ] }
         { [ dup LETTER? ] [ CHAR: A rotate ] }
-        { [ t ] [ ] }
+        [ ]
     } cond ;
 
 : rot13 ( string -- string ) [ rot-letter ] map ;