steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

remove join-space from db

db4
Doug Coleman 2008-12-04 00:06:02 -06:00
parent ded6b1963f
commit 869fbf27a1
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/db/postgresql/postgresql.factor
View File

@ -266,7 +266,7 @@ M: postgresql-db persistent-table ( -- hashtable )
ERROR: no-compound-found string object ; ERROR: no-compound-found string object ;
M: postgresql-db compound ( string object -- string' ) M: postgresql-db compound ( string object -- string' )
over { over {
{ "default" [ first number>string join-space ] } { "default" [ first number>string " " glue ] }
{ "varchar" [ first number>string paren append ] } { "varchar" [ first number>string paren append ] }
{ "references" [ >reference-string ] } { "references" [ >reference-string ] }
[ drop no-compound-found ] [ drop no-compound-found ]

2
basis/db/sqlite/sqlite.factor
View File

@ -308,7 +308,7 @@ M: sqlite-db persistent-table ( -- assoc )
M: sqlite-db compound ( string seq -- new-string ) M: sqlite-db compound ( string seq -- new-string )
over { over {
{ "default" [ first number>string join-space ] } { "default" [ first number>string " " glue ] }
{ "references" [ { "references" [
[ >reference-string ] keep [ >reference-string ] keep
first2 [ "foreign-table" set ] first2 [ "foreign-table" set ]