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

Use eq? instead of number= in a few places

db4
Slava Pestov 2008-11-11 23:04:15 -06:00
parent ed3a81a503
commit 57cf756c0e
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/combinators/combinators.factor
View File

@ -167,6 +167,6 @@ M: slice hashcode* [ sequence-hashcode ] recursive-hashcode ;
M: hashtable hashcode* M: hashtable hashcode*
[ [
dup assoc-size 1 number= dup assoc-size 1 eq?
[ assoc-hashcode ] [ nip assoc-size ] if [ assoc-hashcode ] [ nip assoc-size ] if
] recursive-hashcode ; ] recursive-hashcode ;

2
core/sbufs/sbufs.factor
View File

@ -33,7 +33,7 @@ M: string new-resizable drop <sbuf> ;
M: string like M: string like
drop dup string? [ drop dup string? [
dup sbuf? [ dup sbuf? [
dup length over underlying>> length number= [ dup length over underlying>> length eq? [
underlying>> dup reset-string-hashcode underlying>> dup reset-string-hashcode
] [ ] [
>string >string

2
core/strings/strings.factor
View File

@ -20,7 +20,7 @@ PRIVATE>
M: string equal? M: string equal?
over string? [ over string? [
over hashcode over hashcode number= over hashcode over hashcode eq?
[ sequence= ] [ 2drop f ] if [ sequence= ] [ 2drop f ] if
] [ ] [
2drop f 2drop f