Use eq? instead of number= in a few places
parent
ed3a81a503
commit
57cf756c0e
|
@ -167,6 +167,6 @@ M: slice hashcode* [ sequence-hashcode ] recursive-hashcode ;
|
|||
|
||||
M: hashtable hashcode*
|
||||
[
|
||||
dup assoc-size 1 number=
|
||||
dup assoc-size 1 eq?
|
||||
[ assoc-hashcode ] [ nip assoc-size ] if
|
||||
] recursive-hashcode ;
|
||||
|
|
|
@ -33,7 +33,7 @@ M: string new-resizable drop <sbuf> ;
|
|||
M: string like
|
||||
drop dup string? [
|
||||
dup sbuf? [
|
||||
dup length over underlying>> length number= [
|
||||
dup length over underlying>> length eq? [
|
||||
underlying>> dup reset-string-hashcode
|
||||
] [
|
||||
>string
|
||||
|
|
|
@ -20,7 +20,7 @@ PRIVATE>
|
|||
|
||||
M: string equal?
|
||||
over string? [
|
||||
over hashcode over hashcode number=
|
||||
over hashcode over hashcode eq?
|
||||
[ sequence= ] [ 2drop f ] if
|
||||
] [
|
||||
2drop f
|
||||
|
|
Loading…
Reference in New Issue