sequences: Add 1surround which is dup surround

[factor.git] / extra / crypto / passwd-md5 / passwd-md5.factor

diff --git a/extra/crypto/passwd-md5/passwd-md5.factor b/extra/crypto/passwd-md5/passwd-md5.factor
index 0f17e8459c2a807a56388ec4e439cd998c1e3496..d256311a0ac494249b78104ff977e6f543789c5b 100644 (file)
--- 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
-    salt password dup surround md5 checksum-bytes
+    salt password 1surround md5 checksum-bytes
     password length
     [ 16 / ceiling swap <repetition> concat ] keep
     head-slice append
@@ -42,7 +42,7 @@ PRIVATE>
     11 final nth 2 to64 3append ;
 
 : parse-shadow-password ( string -- magic salt password )
-    "$" split harvest first3 [ "$" dup surround ] 2dip ;
+    "$" split harvest first3 [ "$" 1surround ] 2dip ;
 
 : authenticate-password ( shadow password -- ? )
     '[ parse-shadow-password drop _ passwd-md5 ] keep = ;