From ac6c207de86a77fda084d82c170f5839d738a2c0 Mon Sep 17 00:00:00 2001
From: Jeremy Hughes <jedahu@gmail.com>
Date: Thu, 9 Jul 2009 10:34:41 +1200
Subject: [PATCH] alien.marshall.struct: struct getter fix
---
basis/alien/marshall/structs/structs.factor | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
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 -- )