diff --git a/basis/alien/marshall/marshall.factor b/basis/alien/marshall/marshall.factor index 5e52281f80..8c04c8b9f1 100644 --- 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 )