alien.marshall.struct: struct getter fix

db4
Jeremy Hughes 2009-07-09 10:34:41 +12:00
parent cfc3372867
commit ac6c207de8
1 changed files with 2 additions and 2 deletions

View File

@ -12,8 +12,8 @@ M: struct-wrapper dispose* underlying>> free ;
[ "accessors" create create-method dup make-inline ] dip define ;
: define-struct-getter ( class name word type -- )
[ ">>" append \ underlying>> ] 2dip
unmarshaller \ call 4array >quotation
[ ">>" append \ underlying>> ] 2dip
struct-field-unmarshaller \ call 4array >quotation
define-struct-accessor ;
: define-struct-setter ( class name word type -- )