From b173097418045cc4350f5547864cae45b51af362 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Fri, 30 May 2008 18:37:34 -0500 Subject: [PATCH] fix inheritance --- 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 ad581d927c..d560acc1d1 100755 --- a/extra/db/tuples/tuples.factor +++ b/extra/db/tuples/tuples.factor @@ -77,7 +77,7 @@ M: retryable execute-statement* ( statement type -- ) ] curry 10 retry drop ; : resulting-tuple ( row out-params -- tuple ) - dup first class>> new [ + dup peek class>> new [ [ >r slot-name>> r> set-slot-named ] curry 2each