Merge branch 'master' of git://factorcode.org/git/factor
commit
22aaf2253e
|
@ -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 ]
|
||||
|
|
|
@ -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 ]
|
||||
|
|
|
@ -1,11 +1,11 @@
|
|||
! Copyright (C) 2007 Doug Coleman.
|
||||
! Copyright (C) 2008 Slava Pestov.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: math.ranges sequences random accessors combinators.lib
|
||||
USING: math.ranges sequences random accessors
|
||||
kernel namespaces fry db.types db.tuples urls validators
|
||||
html.components html.forms http http.server.dispatchers furnace
|
||||
furnace.actions furnace.boilerplate furnace.redirection
|
||||
furnace.utilities ;
|
||||
furnace.utilities continuations ;
|
||||
IN: webapps.wee-url
|
||||
|
||||
TUPLE: wee-url < dispatcher ;
|
||||
|
|
Loading…
Reference in New Issue