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

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

@ -13,7 +13,7 @@ M: struct-wrapper dispose* underlying>> free ;
: 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 -- )