>From ab8c4d8d9beeba48ef75f1c786a3ce6a077b2bcd Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?J=C3=B6rg=20F=2E=20Wittenberger?= Date: Fri, 6 Nov 2015 20:50:21 +0100 Subject: [PATCH] Remove unused procedure `##sys#hash-table-location`. --- eval.scm | 16 ---------------- 1 file changed, 16 deletions(-) diff --git a/eval.scm b/eval.scm index 54461fa..d5ffbc1 100644 --- a/eval.scm +++ b/eval.scm @@ -153,22 +153,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) -- 2.6.1