[PATCH 10/13] we always have hash-fold

[Andy Wingo]

No need to do the (if (not (defined? ...)) ...) dance
---
 src/scm/main.scm |   10 ----------
 1 files changed, 0 insertions(+), 10 deletions(-)

diff --git a/src/scm/main.scm b/src/scm/main.scm
index ef659ff..d4871b4 100644
--- a/src/scm/main.scm
+++ b/src/scm/main.scm
@@ -93,16 +93,6 @@
        (b -1)
        (else 0))))
 
-(if (not (defined? 'hash-fold))
-    (define (hash-fold proc init table)
-      (for-each 
-       (lambda (bin)
-         (for-each 
-          (lambda (elt)
-            (set! init (proc (car elt) (cdr elt) init)))
-          bin))
-       (vector->list table))))
-
 (define (string-join lst joinstr)
   ;; This should avoid a bunch of unnecessary intermediate string-appends.
   ;; I'm presuming those are more expensive than cons...
-- 
1.6.2.5


--=-=-=
Content-Type: text/x-patch
Content-Disposition: attachment;
 filename=0011-fix-a-number-of-scheme-syntax-errors.patch