Merge branch 'master' of git://factorcode.org/git/factor

2008-09-17 09:22:55 -07:00 · 2008-09-17 09:22:55 -07:00 · db7f31d1e3
parent 3e1303f784 8fd119ede2
commit db7f31d1e3
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 -- )