alien.marshall: factorize-type before primitive-unmarshaller
parent
ab5fee0c99
commit
cd36c30447
|
|
@ -259,4 +259,4 @@ M: struct-wrapper dynamic-cast ;
|
||||||
[ const-type? not ]
|
[ const-type? not ]
|
||||||
[ factorize-type pointer-to-primitive? ]
|
[ factorize-type pointer-to-primitive? ]
|
||||||
} 1&&
|
} 1&&
|
||||||
[ primitive-unmarshaller ] [ drop [ drop ] ] if ;
|
[ factorize-type primitive-unmarshaller ] [ drop [ drop ] ] if ;
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue