fail, these words are used

2008-09-17 10:36:06 -05:00 · 2008-09-17 10:36:06 -05:00 · 8fd119ede2
parent de68e712e9
commit 8fd119ede2
1 changed files with 6 additions and 0 deletions
--- 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 -- )