nip most uses of tuck from extra

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

diff --git a/extra/rot13/rot13.factor b/extra/rot13/rot13.factor
index 6663381522aeb2fbcde56cd4f2b526184c1cd0f7..c8f08bcf30a1cfbcba5804c21a1f2895ac640e24 100644 (file)
--- a/extra/rot13/rot13.factor
+++ b/extra/rot13/rot13.factor
@@ -3,7 +3,7 @@
 USING: kernel math sequences strings 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 )
     {