diff options
| author | Andy Wingo <wingo@pobox.com> | 2012-04-16 12:42:31 -0700 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2012-04-16 12:42:31 -0700 |
| commit | 43e0fadf6adb47ecf118a80a36fa6397611f342e (patch) | |
| tree | 59e5bc75424231d7876f5af5cacac3a686e2d9fd | |
| parent | 6260c0e2594d983c3521e156d83dc329749562f7 (diff) | |
| download | guile-43e0fadf6adb47ecf118a80a36fa6397611f342e.tar.gz | |
cse hashing tweak
* module/language/tree-il/cse.scm (cse): Minor tweak to hash depth based
on time profile of compiling peval.scm.
| -rw-r--r-- | module/language/tree-il/cse.scm | 2 |
1 files changed, 1 insertions, 1 deletions
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) |