peg: Qualify use of replace. Fix some spacing.

diff --git a/basis/peg/search/search.factor b/basis/peg/search/search.factor
index 3b12ef80a255920f547c6e6ccadbdf0cd1077cff..52df09c2a14a92495d6eb3ccb7cc8b1444a10e26 100644 (file)
--- a/basis/peg/search/search.factor
+++ b/basis/peg/search/search.factor
@@ -5,25 +5,24 @@ combinators peg memoize arrays continuations ;
 IN: peg.search
 
 : tree-write ( object -- )
-  {
-    { [ dup number?   ] [ write1 ] }
-    { [ dup string?   ] [ write ] }
-    { [ dup sequence? ] [ [ tree-write ] each ] }
-    { [ t             ] [ write ] }
-  } cond ;
+    {
+        { [ dup number? ] [ write1 ] }
+        { [ dup string? ] [ write ] }
+        { [ dup sequence? ] [ [ tree-write ] each ] }
+        { [ t ] [ write ] }
+    } cond ;
 
 MEMO: any-char-parser ( -- parser )
-  [ drop t ] satisfy ;
+    [ drop t ] satisfy ;
 
 : search ( string parser -- seq )
-  any-char-parser [ drop f ] action 2choice repeat0
-  [ parse sift ] [ 3drop { } ] recover ;
-
+    any-char-parser [ drop f ] action 2choice repeat0
+    [ parse sift ] [ 3drop { } ] recover ;
 
 : (replace) ( string parser -- seq )
-  any-char-parser 2choice repeat0 parse sift ;
+    any-char-parser 2choice repeat0 parse sift ;
 
 : replace ( string parser -- result )
- [  (replace) [ tree-write ] each ] with-string-writer ;
+    [ (replace) [ tree-write ] each ] with-string-writer ;