new accessors

db4
Doug Coleman 2008-08-29 02:14:22 -05:00
parent e7167b47db
commit 80f67f1ca7
1 changed files with 1 additions and 1 deletions

View File

@ -418,7 +418,7 @@ M: lambda-memoized reset-word
: method-stack-effect ( method -- effect ) : method-stack-effect ( method -- effect )
dup "lambda" word-prop vars>> dup "lambda" word-prop vars>>
swap "method-generic" word-prop stack-effect swap "method-generic" word-prop stack-effect
dup [ effect-out ] when dup [ out>> ] when
<effect> ; <effect> ;
M: lambda-method synopsis* M: lambda-method synopsis*