fix inheritance

db4
Doug Coleman 2008-05-30 18:37:34 -05:00
parent 1c13b4164c
commit b173097418
1 changed files with 1 additions and 1 deletions

View File

@ -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