- (map vhash->alist (inner-find col filter)))
-
-(define (inner-find col filter)
- "Query the collection and return the documents that match with filter"
- (let ((table (get-table col)))
- (vhash-fold
- (lambda (key document result)
- (cond ((match-document? document filter)
- (cons document result))
- (else
- result)))
- '()
- table)))
+ (hash-table-fold
+ (get-table col)
+ (lambda (key document result)
+ (cond ((match-document? document filter)
+ (cons document result))
+ (else
+ result)))
+ '()))