fix load error

db4
Doug Coleman 2008-02-15 21:14:52 -06:00
parent 863ace7ab3
commit 3a0b0341ba
1 changed files with 1 additions and 1 deletions
extra/db/tuples

View File

@ -56,7 +56,7 @@ HOOK: column-slot-name% db ( spec -- )
HOOK: column-bind-name% db ( spec -- )
: make-slots-names ( quot -- seq str )
[ make-column-names ] "" make ; inline
[ make-slot-names* ] "" make ; inline
: slot-name% ( seq -- ) first % ;
: column-name% ( seq -- ) second % ;
: column-type% ( seq -- ) third % ;