sequences: Add 1surround which is dup surround

[factor.git] / extra / images / testing / testing.factor

diff --git a/extra/images/testing/testing.factor b/extra/images/testing/testing.factor
index 94a68a96e087075de4df8b15675c5f296b80cce8..574533aa7af2ad6fc488297fed05c1af4f879d32 100644 (file)
--- a/extra/images/testing/testing.factor
+++ b/extra/images/testing/testing.factor
@@ -27,7 +27,7 @@ PRIVATE>
     [ image. ] with-matching-files ;
 
 : ls ( dirpath extension -- )
-    [ "\"" dup surround print ] with-matching-files ;
+    [ "\"" 1surround print ] with-matching-files ;
 
 : save-as-reference-image ( path -- )
     [ load-image ] [ fig-name ] bi