From dadff2f062dbb72e66eab24cc6e155b6f56fdff2 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sat, 26 Nov 2016 22:01:03 -0800
Subject: [PATCH] some cleanup.

---
 basis/match/match.factor                | 4 ++--
 basis/peg/search/search.factor          | 2 +-
 basis/tools/files/unix/unix.factor      | 2 +-
 basis/ui/backend/windows/windows.factor | 2 +-
 extra/freetype/freetype.factor          | 2 +-
 5 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/basis/match/match.factor b/basis/match/match.factor
index 489fa83a38..aa68543d14 100644
--- a/basis/match/match.factor
+++ b/basis/match/match.factor
@@ -39,7 +39,7 @@ PREDICATE: match-var < word "match-var" word-prop ;
             2dup [ class-of ] same? [
                 [ tuple-slots ] bi@ [ (match) ] 2all?
             ] [ 2drop f ] if ] }
-        { [ t ] [ 2drop f ] }
+        [ 2drop f ]
     } cond ;
 
 : match ( value1 value2 -- bindings )
@@ -84,7 +84,7 @@ M: tuple replace-patterns tuple>array replace-patterns >tuple ;
     (match-first) drop ;
 
 : (match-all) ( seq pattern-seq -- )
-    [ nip ] [ (match-first) swap ] 2bi
+    [ (match-first) ] keep
     [ , [ swap (match-all) ] [ drop ] if* ] [ 2drop ] if* ;
 
 : match-all ( seq pattern-seq -- bindings-seq )
diff --git a/basis/peg/search/search.factor b/basis/peg/search/search.factor
index 4ad4a9c906..668b72cc71 100644
--- a/basis/peg/search/search.factor
+++ b/basis/peg/search/search.factor
@@ -9,7 +9,7 @@ IN: peg.search
         { [ over number? ] [ stream-write1 ] }
         { [ over string? ] [ stream-write ] }
         { [ over sequence? ] [ [ stream-tree-write ] curry each ] }
-        { [ t ] [ stream-write ] }
+        [ stream-write ]
     } cond ;
 
 : tree-write ( object -- )
diff --git a/basis/tools/files/unix/unix.factor b/basis/tools/files/unix/unix.factor
index 2ff3ae8f8d..642ee164cc 100644
--- a/basis/tools/files/unix/unix.factor
+++ b/basis/tools/files/unix/unix.factor
@@ -42,7 +42,7 @@ IN: tools.files.unix
         { [ dup S_IFLNK = ] [ drop "@" ] }
         { [ dup S_IFWHT = ] [ drop "%" ] }
         { [ dup S_IFSOCK = ] [ drop "=" ] }
-        { [ t ] [ drop "" ] }
+        [ drop "" ]
     } cond ;
 
 M: unix (directory.) ( path -- lines )
diff --git a/basis/ui/backend/windows/windows.factor b/basis/ui/backend/windows/windows.factor
index 9bf7af30ed..23b237ab7e 100755
--- a/basis/ui/backend/windows/windows.factor
+++ b/basis/ui/backend/windows/windows.factor
@@ -415,7 +415,7 @@ CONSTANT: exclude-keys-wm-char
         { [ over SC_RESTORE = ] [ t set-window-active ] }
         { [ over SC_MAXIMIZE = ] [ t set-window-active ] }
         { [ dup alpha? ] [ 4drop 0 ] }
-        { [ t ] [ DefWindowProc ] }
+        [ DefWindowProc ]
     } cond ;
 
 : cleanup-window ( handle -- )
diff --git a/extra/freetype/freetype.factor b/extra/freetype/freetype.factor
index dc93e26ea9..c6d1509986 100644
--- a/extra/freetype/freetype.factor
+++ b/extra/freetype/freetype.factor
@@ -7,7 +7,7 @@ IN: freetype
 << "freetype" {
     { [ os macosx? ] [ "/usr/X11R6/lib/libfreetype.6.dylib" cdecl add-library ] }
     { [ os windows? ] [ "freetype6.dll" cdecl add-library ] }
-    { [ t ] [ drop ] }
+    [ drop ]
 } cond >>
 
 LIBRARY: freetype