fix sql load

db4
erg 2008-09-08 17:25:32 -05:00
parent e789258f2d
commit f765f36f79
1 changed files with 1 additions and 1 deletions

View File

@ -31,6 +31,7 @@ DEFER: sql%
] each ; ] each ;
USE: multiline USE: multiline
/*
HOOK: sql-create db ( object -- ) HOOK: sql-create db ( object -- )
M: db sql-create ( object -- ) M: db sql-create ( object -- )
drop drop
@ -128,7 +129,6 @@ GENERIC: sql-max db ( object -- )
M: db sql-max ( object -- ) M: db sql-max ( object -- )
"max" sql-function, ; "max" sql-function, ;
/*
: sql-array% ( array -- ) : sql-array% ( array -- )
unclip unclip
{ {