diff --git a/basis/alien/marshall/structs/structs.factor b/basis/alien/marshall/structs/structs.factor index ba3013ca5d..75c36a3cb5 100644 --- a/basis/alien/marshall/structs/structs.factor +++ b/basis/alien/marshall/structs/structs.factor @@ -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 -- )