@@ -936,28 +936,10 @@
 ;;     ((http)(dbfile:with-db dbstruct run-id r/w proc params))
 ;;     ((tcp) (dbmod:with-db dbstruct run-id r/w proc params))
 ;;     ((nfs) (dbmod:with-db dbstruct run-id r/w proc params))
 ;;     (else (assert #f "FATAL: db:with-db called with non-existant transport mode"))))
 
-;;======================================================================
-;; hash of hashs
-;;======================================================================
-
-
-(define (db:hoh-set! dat key1 key2 val)
-  (let* ((subhash (hash-table-ref/default dat key1 #f)))
-    (if subhash
-	(hash-table-set! subhash key2 val)
-	(begin
-	  (hash-table-set! dat key1 (make-hash-table))
-	  (db:hoh-set! dat key1 key2 val)))))
-
-(define (db:hoh-get dat key1 key2)
-  (let* ((subhash (hash-table-ref/default dat key1 #f)))
-    (and subhash
-	 (hash-table-ref/default subhash key2 #f))))
-
 ;;======================================================================
 ;; SQLITE3 HELPERS
 ;;======================================================================
 
 (define (db:general-sqlite-error-dump exn stmt . params)