fix inheritance

2008-05-30 18:37:34 -05:00 · 2008-05-30 18:37:34 -05:00 · b173097418
parent 1c13b4164c
commit b173097418
1 changed files with 1 additions and 1 deletions
--- 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