sequences: Add 1surround which is dup surround

[factor.git] / extra / tools / grep / grep.factor

diff --git a/extra/tools/grep/grep.factor b/extra/tools/grep/grep.factor
index e600e0a4e111dae9720968a230e2a39fbed53303..6c82a4b74e00635453ca40a653341a54f57cce0e 100644 (file)
--- a/extra/tools/grep/grep.factor
+++ b/extra/tools/grep/grep.factor
@@ -21,7 +21,7 @@ IN: tools.grep
     command-line get [
         grep-usage
     ] [
-        unclip ".*" dup surround <regexp> swap [
+        unclip ".*" 1surround <regexp> swap [
             grep-lines
         ] [
             [ grep-file ] with each