From 142bf3f342698e06a08b3c393d90e36753ce945a Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Thu, 15 May 2008 16:57:41 -0500
Subject: [PATCH 1/4] builder.util: new version of datestamp

---
 extra/builder/util/util.factor | 15 ++++++++++-----
 1 file changed, 10 insertions(+), 5 deletions(-)

diff --git a/extra/builder/util/util.factor b/extra/builder/util/util.factor
index f9ab6c1d1d..db3b476365 100644
--- a/extra/builder/util/util.factor
+++ b/extra/builder/util/util.factor
@@ -41,12 +41,17 @@ DEFER: to-strings
 
 : host-name* ( -- name ) host-name "." split first ;
 
+! : datestamp ( -- string )
+!   now `{ ,[ dup timestamp-year   ]
+!          ,[ dup timestamp-month  ]
+!          ,[ dup timestamp-day    ]
+!          ,[ dup timestamp-hour   ]
+!          ,[     timestamp-minute ] }
+!   [ pad-00 ] map "-" join ;
+
 : datestamp ( -- string )
-  now `{ ,[ dup timestamp-year   ]
-         ,[ dup timestamp-month  ]
-         ,[ dup timestamp-day    ]
-         ,[ dup timestamp-hour   ]
-         ,[     timestamp-minute ] }
+  now
+    { year>> month>> day>> hour>> minute>> } <arr>
   [ pad-00 ] map "-" join ;
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

From b29e1d4d7a3fc5764bd118506593ebcc35982c8f Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Thu, 15 May 2008 17:02:57 -0500
Subject: [PATCH 2/4] builder: Remove old benchmark deltas code

---
 extra/builder/benchmark/benchmark.factor | 43 ------------------------
 1 file changed, 43 deletions(-)
 delete mode 100644 extra/builder/benchmark/benchmark.factor

diff --git a/extra/builder/benchmark/benchmark.factor b/extra/builder/benchmark/benchmark.factor
deleted file mode 100644
index afe277d30b..0000000000
--- a/extra/builder/benchmark/benchmark.factor
+++ /dev/null
@@ -1,43 +0,0 @@
-
-USING: kernel continuations arrays assocs sequences sorting math
-       io io.styles prettyprint builder.util ;
-
-IN: builder.benchmark
-
-! : passing-benchmarks ( table -- table )
-!   [ second first2 number? swap number? and ] filter ;
-
-: passing-benchmarks ( table -- table ) [ second number? ] filter ;
-
-! : simplify-table ( table -- table ) [ first2 second 2array ] map ;
-
-: benchmark-difference ( old-table benchmark-result -- result-diff )
-  first2 >r
-  tuck swap at
-  r>
-  swap -
-  2array ;
-
-: compare-tables ( old new -- table )
-  [ passing-benchmarks ] bi@
-  [ benchmark-difference ] with map ;
-
-: benchmark-deltas ( -- table )
-  "../benchmarks" "benchmarks" [ eval-file ] bi@
-  compare-tables
-  sort-values ;
-
-: benchmark-deltas. ( deltas -- )
-  standard-table-style
-    [
-      [ [ "Benchmark" write ] with-cell [ "Delta (ms)" write ] with-cell ]
-      with-row
-      [ [ swap [ write ] with-cell pprint-cell ] with-row ]
-      assoc-each
-    ]
-  tabular-output ;
-
-: show-benchmark-deltas ( -- )
-  [ benchmark-deltas benchmark-deltas. ]
-    [ drop "Error generating benchmark deltas" . ]
-  recover ;
\ No newline at end of file

From 2a5dcaaef07fcbee4b66928e6b2a03967cdb9eff Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Fri, 16 May 2008 15:38:56 -0500
Subject: [PATCH 3/4] io.sockets: Minor docs fix

---
 extra/io/sockets/sockets.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extra/io/sockets/sockets.factor b/extra/io/sockets/sockets.factor
index ae2b7872b9..a8ee5008af 100755
--- a/extra/io/sockets/sockets.factor
+++ b/extra/io/sockets/sockets.factor
@@ -217,7 +217,7 @@ TUPLE: datagram-port < port addr ;
 
 HOOK: (datagram) io-backend ( addr -- datagram )
 
-: <datagram> ( addr -- datagram )
+: <datagram> ( addrspec -- datagram )
     [
         [ (datagram) |dispose ] keep
         [ drop datagram-port <port> ] [ get-local-address ] 2bi

From 3f121f88099dc4e87b73ae35cf6520f400724ad3 Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Fri, 16 May 2008 17:09:38 -0500
Subject: [PATCH 4/4] shell.parser: Fix bug in ast>pipeline-expr

---
 extra/shell/parser/parser.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/extra/shell/parser/parser.factor b/extra/shell/parser/parser.factor
index 46548bb34f..2ecca6199c 100644
--- a/extra/shell/parser/parser.factor
+++ b/extra/shell/parser/parser.factor
@@ -23,8 +23,8 @@ TUPLE: factor-expr        expr ;
   pipeline-expr new
     over [ 1st ] [ 4th [ 1st ] map ] [ 5th ] tri suffix prefix-on >>commands
     over 2nd >>stdin
-    over 5th   >>stdout
-    swap 6th   >>background ;
+    over 6th   >>stdout
+    swap 7th   >>background ;
 
 : ast>single-quoted-expr ( ast -- obj )
   2nd >string single-quoted-expr boa ;