From 8fd119ede2c51c0bcccbbefc7fc86924dcaaad88 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Wed, 17 Sep 2008 10:36:06 -0500
Subject: [PATCH] fail, these words are used

---
 basis/db/types/types.factor | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/basis/db/types/types.factor b/basis/db/types/types.factor
index 7397694ba5..476d82a1e2 100755
--- a/basis/db/types/types.factor
+++ b/basis/db/types/types.factor
@@ -117,6 +117,12 @@ ERROR: no-sql-type ;
     modifiers>> [ lookup-modifier ] map " " join
     [ "" ] [ " " prepend ] if-empty ;
 
+: join-space ( string1 string2 -- new-string )
+    " " swap 3append ;
+
+: paren ( string -- new-string )
+    "(" swap ")" 3append ;
+
 HOOK: bind% db ( spec -- )
 HOOK: bind# db ( spec obj -- )