alien.marshall: added struct-arrays to marshall-pointer

2009-07-08 16:42:25 +12:00 · 2009-07-08 16:42:25 +12:00 · 25e034adb6
parent e2797b83bc
commit 25e034adb6
1 changed files with 1 additions and 0 deletions
--- a/basis/alien/marshall/marshall.factor
+++ b/basis/alien/marshall/marshall.factor
@ -31,6 +31,7 @@ M: struct-wrapper dynamic-cast ;
        { [ dup not ] [ ] }
        { [ dup byte-array? ] [ malloc-byte-array ] }
        { [ dup alien-wrapper? ] [ underlying>> ] }
+        { [ dup struct-array? ] [ underlying>> ] }
    } cond ;

 : marshall-void* ( obj -- alien )