(define (process-dir dir object-id)
  (map (lambda (filename)
         (let ((path (string-append dir path)))
           (insert-data object-id
                        (parse-date path)
                        (parse-file path))))
       (directory dir)))

; Note: the following toplevel variables are referenced but unbound:

;  path (in process-dir)