steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

db4
John Benediktsson 2012-07-21 10:22:29 -07:00
parent bf8d455e9c
commit 71cd7c5f81
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/kernel/kernel.factor
View File

@ -220,6 +220,8 @@ M: identity-tuple hashcode* nip identity-hashcode ; inline
2dup both-fixnums? [ 2drop f ] [ equal? ] if 2dup both-fixnums? [ 2drop f ] [ equal? ] if
] if ; inline ] if ; inline
: same? ( x y quot -- ? ) bi@ = ; inline
GENERIC: clone ( obj -- cloned ) GENERIC: clone ( obj -- cloned )
M: object clone ; inline M: object clone ; inline