kernel: adding "same?" which is "bi@ =".

diff --git a/core/kernel/kernel.factor b/core/kernel/kernel.factor
index a79e65c2b4711fbd7c581d8da4f06d101041fb80..65ecbe8b312612025830e1d7f2b78d05a3a795fe 100644 (file)
--- 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