~ chicken-core (chicken-5) eb51b331cea780b88a4836a24d4dcd468ab5d7fd

commit eb51b331cea780b88a4836a24d4dcd468ab5d7fd
Author:     Jörg F. Wittenberger <Joerg.Wittenberger@softeyes.net>
AuthorDate: Fri Nov 6 20:50:21 2015 +0100
Commit:     Peter Bex <peter@more-magic.net>
CommitDate: Tue Dec 15 19:55:25 2015 +0100

    Remove unused procedure `##sys#hash-table-location`
    
    Signed-off-by: Evan Hanson <evhan@foldling.org>
    Signed-off-by: Peter Bex <peter@more-magic.net>

diff --git a/eval.scm b/eval.scm
index a5e424f9..c841af47 100644
--- a/eval.scm
+++ b/eval.scm
@@ -183,22 +183,6 @@
       (##sys#for-each (lambda (bucket) (p (##sys#slot bucket 0) (##sys#slot bucket 1)))
 		      (##sys#slot ht i) ) ) ) )
 
-(define ##sys#hash-table-location
-  (let ([unbound (##sys#slot '##sys#arbitrary-unbound-symbol 0)])
-    (lambda (ht key addp)
-      (let* ([k (##sys#hash-symbol key (##sys#size ht))]
-	     [bucket0 (##sys#slot ht k)] )
-	(let loop ([bucket bucket0])
-	  (if (null? bucket)
-	      (and addp
-		   (let ([p (vector key unbound #t)])
-		     (##sys#setslot ht k (cons p bucket0))
-		     p) )
-	      (let ([b (##sys#slot bucket 0)])
-		(if (eq? key (##sys#slot b 0))
-		    b
-		    (loop (##sys#slot bucket 1)) ) ) ) ) ) ) ) )
-
 (define (##sys#hash-table-size ht)
   (let loop ((len (##sys#size ht)) (bkt 0) (size 0))
     (if (fx= bkt len)