From 71cd7c5f81631661f14ef1e1e4bad05d4b0fc392 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sat, 21 Jul 2012 10:22:29 -0700
Subject: [PATCH] kernel: adding "same?" which is "bi@ =".

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

diff --git a/core/kernel/kernel.factor b/core/kernel/kernel.factor
index a79e65c2b4..65ecbe8b31 100644
--- a/core/kernel/kernel.factor
+++ b/core/kernel/kernel.factor
@@ -220,6 +220,8 @@ M: identity-tuple hashcode* nip identity-hashcode ; inline
         2dup both-fixnums? [ 2drop f ] [ equal? ] if
     ] if ; inline
 
+: same? ( x y quot -- ? ) bi@ = ; inline
+
 GENERIC: clone ( obj -- cloned )
 
 M: object clone ; inline