From 117a7b664314d594d7b26b18f2f105bf483552fd Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Wed, 20 Feb 2008 12:05:25 -0600 Subject: [PATCH] debugging sqlite --- extra/db/sqlite/sqlite.factor | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/extra/db/sqlite/sqlite.factor b/extra/db/sqlite/sqlite.factor index dcb581a76c..e1a3a63030 100755 --- a/extra/db/sqlite/sqlite.factor +++ b/extra/db/sqlite/sqlite.factor @@ -177,10 +177,13 @@ M: sqlite-db modifier-table ( -- hashtable ) { +not-null+ "not null" } } ; -M: sqlite-db compound-type ( str seq -- ) +M: sqlite-db compound-modifier ( str obj -- newstr ) + drop ; + +M: sqlite-db compound-type ( str seq -- newstr ) over { - { "varchar" [ first number>string join-space ] } - [ 2drop "" ] ! "no sqlite compound data type" 3array throw ] + ! { "varchar" [ first number>string join-space ] } + [ drop ] ! "no sqlite compound data type" 3array throw ] } case ; M: sqlite-db type-table ( -- assoc )