alien.marshall: factorize-type before primitive-unmarshaller

Jeremy Hughes 2009-07-08 09:33:04 +12:00
parent ab5fee0c99
commit cd36c30447
1 changed files with 1 additions and 1 deletions

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 ;