From c75c7236cdc6c6cbcd1dbd4c85e2db54f27160b2 Mon Sep 17 00:00:00 2001 From: Eduardo Cavazos Date: Sat, 12 Apr 2008 02:53:50 -0500 Subject: [PATCH] builder.util: remove old code --- extra/builder/util/util.factor | 15 --------------- 1 file changed, 15 deletions(-) diff --git a/extra/builder/util/util.factor b/extra/builder/util/util.factor index 92b9af41ef..629a713ad9 100644 --- a/extra/builder/util/util.factor +++ b/extra/builder/util/util.factor @@ -40,21 +40,6 @@ DEFER: to-strings ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! -! TUPLE: process* arguments stdin stdout stderr timeout ; - -! : process* construct-empty ; - -! : >desc ( process* -- desc ) -! H{ } clone -! over arguments>> [ +arguments+ swap put-at ] when* -! over stdin>> [ +stdin+ swap put-at ] when* -! over stdout>> [ +stdout+ swap put-at ] when* -! over stderr>> [ +stderr+ swap put-at ] when* -! over timeout>> [ +timeout+ swap put-at ] when* -! nip ; - -! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! - : host-name* ( -- name ) host-name "." split first ; : datestamp ( -- string )