From 25e034adb6fdda0a0d931343b320a3c2dbd744b1 Mon Sep 17 00:00:00 2001 From: Jeremy Hughes Date: Wed, 8 Jul 2009 16:42:25 +1200 Subject: [PATCH] alien.marshall: added struct-arrays to marshall-pointer --- basis/alien/marshall/marshall.factor | 1 + 1 file changed, 1 insertion(+) 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 )