sequences: Add 1surround which is dup surround

[factor.git] / extra / rosetta-code / sierpinski-triangle / sierpinski-triangle.factor

diff --git a/extra/rosetta-code/sierpinski-triangle/sierpinski-triangle.factor b/extra/rosetta-code/sierpinski-triangle/sierpinski-triangle.factor
index c2ba8f48720b0be5c56b3589bdd162dfbaa17da8..d37204298814d9db4e9b1cd9b6267bb4dfa8bb1a 100644 (file)
--- a/extra/rosetta-code/sierpinski-triangle/sierpinski-triangle.factor
+++ b/extra/rosetta-code/sierpinski-triangle/sierpinski-triangle.factor
@@ -27,7 +27,7 @@ IN: rosetta-code.sierpinski-triangle
 !        * * * * * * * * * * * * * * * *
 
 : iterate-triangle ( triange spaces -- triangle' )
-    [ [ dup surround ] curry map ]
+    [ [ 1surround ] curry map ]
     [ drop [ dup " " glue ] map ] 2bi append ;
 
 : (sierpinski) ( triangle spaces n -- triangle' )