From 869fbf27a1e3a816847e3fbd5edbe3304f1e1baf Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Thu, 4 Dec 2008 00:06:02 -0600 Subject: [PATCH] remove join-space from db --- basis/db/postgresql/postgresql.factor | 2 +- basis/db/sqlite/sqlite.factor | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/db/postgresql/postgresql.factor b/basis/db/postgresql/postgresql.factor index 57a16fc8ef..82d96c4af1 100644 --- a/basis/db/postgresql/postgresql.factor +++ b/basis/db/postgresql/postgresql.factor @@ -266,7 +266,7 @@ M: postgresql-db persistent-table ( -- hashtable ) ERROR: no-compound-found string object ; M: postgresql-db compound ( string object -- string' ) over { - { "default" [ first number>string join-space ] } + { "default" [ first number>string " " glue ] } { "varchar" [ first number>string paren append ] } { "references" [ >reference-string ] } [ drop no-compound-found ] diff --git a/basis/db/sqlite/sqlite.factor b/basis/db/sqlite/sqlite.factor index c22bb3a2d8..4e96fb5a4d 100644 --- a/basis/db/sqlite/sqlite.factor +++ b/basis/db/sqlite/sqlite.factor @@ -308,7 +308,7 @@ M: sqlite-db persistent-table ( -- assoc ) M: sqlite-db compound ( string seq -- new-string ) over { - { "default" [ first number>string join-space ] } + { "default" [ first number>string " " glue ] } { "references" [ [ >reference-string ] keep first2 [ "foreign-table" set ]