alien.marshall: dynamic-cast: renamed to unmarshall-cast

db4
Jeremy Hughes 2009-07-13 10:26:41 +12:00
parent 2aec1d697c
commit 687d541838
1 changed files with 3 additions and 3 deletions

View File

@ -20,10 +20,10 @@ IN: alien.marshall
TUPLE: alien-wrapper { underlying alien } ;
TUPLE: struct-wrapper < alien-wrapper disposed ;
GENERIC: dynamic-cast ( alien-wrapper -- alien-wrapper' )
GENERIC: unmarshall-cast ( alien-wrapper -- alien-wrapper' )
M: alien-wrapper dynamic-cast ;
M: struct-wrapper dynamic-cast ;
M: alien-wrapper unmarshall-cast ;
M: struct-wrapper unmarshall-cast ;
: marshall-pointer ( obj -- alien )
{