X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=core%2Fhashtables%2Fhashtables.factor;h=7d0f4b85ffaa2af545e00a6ecb8df3ef98dc6e81;hp=4977e3df83b8c23f995dc2a21c49803017e930a4;hb=943596575ad294c074dfa381b70af74dba5992b1;hpb=e738c7206c32bd9b76f3cee31e950835e1b1ee24 diff --git a/core/hashtables/hashtables.factor b/core/hashtables/hashtables.factor index 4977e3df83..7d0f4b85ff 100644 --- a/core/hashtables/hashtables.factor +++ b/core/hashtables/hashtables.factor @@ -178,7 +178,7 @@ M: hashtable assoc-like ! magic number is 2^29/phi instead of 2^32/phi ! due to max fixnum value on 32-bit machines : hash-combine ( obj oldhash -- newhash ) - [ hashcode HEX: 13c6ef37 + ] dip + [ hashcode 0x13c6ef37 + ] dip [ 6 shift ] [ -2 shift ] bi + + ; INSTANCE: hashtable assoc