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

2012-07-21 10:22:29 -07:00 · 2012-07-21 10:22:29 -07:00 · 71cd7c5f81
parent bf8d455e9c
commit 71cd7c5f81
1 changed files with 2 additions and 0 deletions
--- 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