alien.marshall: fixed out-arg-unmarshaller

db4
Jeremy Hughes 2009-07-15 16:42:00 +12:00
parent e3a1299993
commit 0c0ae68c5e
1 changed files with 1 additions and 4 deletions

View File

@ -298,9 +298,6 @@ ALIAS: marshall-void* marshall-pointer
] if* ;
: out-arg-unmarshaller ( type -- quot )
dup {
[ pointer-to-const? not ]
[ factorize-type pointer-to-primitive? ]
} 1&&
dup pointer-to-non-const-primitive?
[ factorize-type primitive-unmarshaller ]
[ drop [ drop ] ] if ;