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

Fix stack overflow when taking hashcode of hashtables with circular structure

release
Slava Pestov 2007-10-29 02:18:23 -04:00
parent 77cbc56873
commit 2454135fd3
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
core/hashtables/hashtables.factor
View File

@ -168,8 +168,10 @@ M: hashtable equal?
} cond ; } cond ;
M: hashtable hashcode* M: hashtable hashcode*
dup assoc-size 1 number= [
[ assoc-hashcode ] [ nip assoc-size ] if ; dup assoc-size 1 number=
[ assoc-hashcode ] [ nip assoc-size ] if
] recursive-hashcode ;
! Default method ! Default method
M: assoc new-assoc drop <hashtable> ; M: assoc new-assoc drop <hashtable> ;