From: Andy Wingo <wingo@pobox.com>
Date: Mon, 16 Apr 2012 19:42:31 +0000 (-0700)
Subject: cse hashing tweak
X-Git-Url: http://git.hcoop.net/bpt/guile.git/commitdiff_plain/3db8f60977e966522e3c05cc554c99382c968b55

cse hashing tweak

* module/language/tree-il/cse.scm (cse): Minor tweak to hash depth based
  on time profile of compiling peval.scm.
---

diff --git a/module/language/tree-il/cse.scm b/module/language/tree-il/cse.scm
index 3d8a7f8f4..117f5666f 100644
--- a/module/language/tree-il/cse.scm
+++ b/module/language/tree-il/cse.scm
@@ -193,7 +193,7 @@
     (/ (string-length (symbol->string (struct-layout x))) 2))
 
   (define hash-bits (logcount most-positive-fixnum))
-  (define hash-depth 3)
+  (define hash-depth 4)
   (define hash-width 3)
   (define (hash-expression exp)
     (define (hash-exp exp depth)