From 670aaa321af4555081ab8d1f04e5c97214d2be00 Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Fri, 22 Feb 2008 17:25:12 -0600
Subject: [PATCH] builder.common: stuff common to builder and builder.release

---
 extra/builder/common/common.factor | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 extra/builder/common/common.factor

diff --git a/extra/builder/common/common.factor b/extra/builder/common/common.factor
new file mode 100644
index 0000000000..6ebe1d625a
--- /dev/null
+++ b/extra/builder/common/common.factor
@@ -0,0 +1,18 @@
+
+USING: kernel namespaces io.files sequences vars ;
+
+IN: builder.common
+
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+SYMBOL: builds-dir
+
+: builds ( -- path )
+  builds-dir get
+  home "/builds" append
+  or ;
+
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+VAR: stamp
+