Add hashcode method for simple-alien; improves performance of malloc and free

2009-04-04 19:57:48 -05:00 · 2009-04-04 19:57:48 -05:00 · b4a74f55a3
parent 635d4c1ea0
commit b4a74f55a3
1 changed files with 2 additions and 0 deletions
--- a/core/alien/alien.factor
+++ b/core/alien/alien.factor
@ -49,6 +49,8 @@ M: alien equal?
        2drop f
    ] if ;

+M: simple-alien hashcode* nip alien-address ;
+
 ERROR: alien-callback-error ;

 : alien-callback ( return parameters abi quot -- alien )