alien.marshall: factorize-type before primitive-unmarshaller

db4
Jeremy Hughes 2009-07-08 09:33:04 +12:00
parent 0aa1a9a43d
commit 787b5d618a
1 changed files with 1 additions and 1 deletions
basis/alien/marshall

View File

@ -259,4 +259,4 @@ M: struct-wrapper dynamic-cast ;
[ const-type? not ]
[ factorize-type pointer-to-primitive? ]
} 1&&
[ primitive-unmarshaller ] [ drop [ drop ] ] if ;
[ factorize-type primitive-unmarshaller ] [ drop [ drop ] ] if ;