steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

db4
Jeremy Hughes 2009-07-08 16:42:25 +12:00
parent e2797b83bc
commit 25e034adb6
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
basis/alien/marshall/marshall.factor
View File

@ -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 )