alien.marshall.structs: moved struct-wrapper dispose* method to alien.marshall

basis/alien/marshall/marshall.factor

@@ -25,6 +25,8 @@ GENERIC: unmarshall-cast ( alien-wrapper -- alien-wrapper' )
 M: alien-wrapper unmarshall-cast ;
 M: struct-wrapper unmarshall-cast ;
 
+M: struct-wrapper dispose* underlying>> free ;
+
 : marshall-pointer ( obj -- alien )
     {
         { [ dup alien? ] [ ] }

basis/alien/marshall/structs/structs.factor

@@ -6,8 +6,6 @@ kernel libc locals parser quotations sequences slots words
 alien.structs lexer vocabs.parser fry effects ;
 IN: alien.marshall.structs
 
-M: struct-wrapper dispose* underlying>> free ;
-
 : define-struct-accessor ( class name quot -- )
     [ "accessors" create create-method dup make-inline ] dip define ;