From 3a0b0341bae9ce6b7b7d8cdf516d3fdb37c70a7b Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Fri, 15 Feb 2008 21:14:52 -0600 Subject: [PATCH] fix load error --- extra/db/tuples/tuples.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/extra/db/tuples/tuples.factor b/extra/db/tuples/tuples.factor index be18f71e1b..20cdd8a386 100755 --- a/extra/db/tuples/tuples.factor +++ b/extra/db/tuples/tuples.factor @@ -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 % ;