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

debugging sqlite

db4
Doug Coleman 2008-02-20 12:05:25 -06:00
parent 779bd8c8d9
commit 117a7b6643
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
extra/db/sqlite/sqlite.factor
View File

@ -177,10 +177,13 @@ M: sqlite-db modifier-table ( -- hashtable )
{ +not-null+ "not null" } { +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 { over {
{ "varchar" [ first number>string join-space ] } ! { "varchar" [ first number>string join-space ] }
[ 2drop "" ] ! "no sqlite compound data type" 3array throw ] [ drop ] ! "no sqlite compound data type" 3array throw ]
} case ; } case ;
M: sqlite-db type-table ( -- assoc ) M: sqlite-db type-table ( -- assoc )