steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/alien/marshall/structs/structs.factor
View File

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