From b4a74f55a3506a5abe083f99f259edfdb8497495 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Sat, 4 Apr 2009 19:57:48 -0500
Subject: [PATCH] Add hashcode method for simple-alien; improves performance of
 malloc and free

---
 core/alien/alien.factor | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/core/alien/alien.factor b/core/alien/alien.factor
index ea0cb9208e..05f5223548 100644
--- 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 )