use dup surround instead of 3append

2009-10-29 14:06:59 -05:00 · 2009-10-29 14:06:59 -05:00 · 53d760c4dd
parent 939e2a3e6d
commit 53d760c4dd
1 changed files with 1 additions and 1 deletions
--- a/extra/crypto/passwd-md5/passwd-md5.factor
+++ b/extra/crypto/passwd-md5/passwd-md5.factor
@ -18,7 +18,7 @@ PRIVATE>

 :: passwd-md5 ( magic salt password -- bytes )
    password magic salt 3append
-    password salt password 3append md5 checksum-bytes
+    salt password dup surround md5 checksum-bytes
    password length
    [ 16 / ceiling swap <repetition> concat ] keep
    head-slice append