Fix stack effect declarations for (>>foo) words

db4
Slava Pestov 2009-03-31 23:39:11 -05:00
parent 3211270d5b
commit ab7f433aa2
1 changed files with 1 additions and 1 deletions

View File

@ -97,7 +97,7 @@ ERROR: bad-slot-value value class ;
"writing" associate ;
: define-writer-generic ( name -- )
writer-word (( object value -- )) define-simple-generic ;
writer-word (( value object -- )) define-simple-generic ;
: define-writer ( class slot-spec -- )
[ nip name>> define-writer-generic ] [