From 37b9a350cc47f514d46d77833f243af1faf6e6cd Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sat, 6 Dec 2008 18:42:41 -0600
Subject: [PATCH] swap ... 3append -> surround in core

---
 core/classes/intersection/intersection.factor | 2 +-
 core/parser/parser.factor                     | 6 +++---
 core/slots/slots.factor                       | 2 +-
 core/words/words.factor                       | 2 +-
 4 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/core/classes/intersection/intersection.factor b/core/classes/intersection/intersection.factor
index fffb172204..43018f6358 100644
--- a/core/classes/intersection/intersection.factor
+++ b/core/classes/intersection/intersection.factor
@@ -12,7 +12,7 @@ PREDICATE: intersection-class < class
         [ drop t ]
     ] [
         unclip "predicate" word-prop swap [
-            "predicate" word-prop [ dup ] swap [ not ] 3append
+            "predicate" word-prop [ dup ] [ not ] surround
             [ drop f ]
         ] { } map>assoc alist>quot
     ] if-empty ;
diff --git a/core/parser/parser.factor b/core/parser/parser.factor
index 3f3af935b6..4586cfe34e 100644
--- a/core/parser/parser.factor
+++ b/core/parser/parser.factor
@@ -71,7 +71,7 @@ TUPLE: no-current-vocab ;
 
 : word-restarts ( name possibilities -- restarts )
     natural-sort
-    [ [ "Use the " swap vocabulary>> " vocabulary" 3append ] keep ] { } map>assoc
+    [ [ vocabulary>> "Use the " " vocabulary" surround ] keep ] { } map>assoc
     swap "Defer word in current vocabulary" swap 2array
     suffix ;
 
@@ -89,7 +89,7 @@ SYMBOL: auto-use?
         dup vocabulary>>
         [ (use+) ]
         [ amended-use get dup [ push ] [ 2drop ] if ]
-        [ "Added ``" swap "'' vocabulary to search path" 3append note. ]
+        [ "Added ``" "'' vocabulary to search path" surround note. ]
         tri
     ] [ create-in ] if ;
 
@@ -292,7 +292,7 @@ print-use-hook global [ [ ] or ] change-at
     ] with-compilation-unit ;
 
 : parse-file-restarts ( file -- restarts )
-    "Load " swap " again" 3append t 2array 1array ;
+    "Load " " again" surround t 2array 1array ;
 
 : parse-file ( file -- quot )
     [
diff --git a/core/slots/slots.factor b/core/slots/slots.factor
index 35aa49d053..187db02c5c 100644
--- a/core/slots/slots.factor
+++ b/core/slots/slots.factor
@@ -50,7 +50,7 @@ PREDICATE: writer < word "writer" word-prop ;
     define-typecheck ;
 
 : writer-word ( name -- word )
-    "(>>" swap ")" 3append (( value object -- )) create-accessor
+    "(>>" ")" surround (( value object -- )) create-accessor
     dup t "writer" set-word-prop ;
 
 ERROR: bad-slot-value value class ;
diff --git a/core/words/words.factor b/core/words/words.factor
index b36f8be677..8c144b03a2 100644
--- a/core/words/words.factor
+++ b/core/words/words.factor
@@ -239,7 +239,7 @@ ERROR: bad-create name vocab ;
     dup [ 2nip ] [ drop <word> dup reveal ] if ;
 
 : constructor-word ( name vocab -- word )
-    [ "<" swap ">" 3append ] dip create ;
+    [ "<" ">" surround ] dip create ;
 
 PREDICATE: parsing-word < word "parsing" word-prop ;