(define-record-type fs-object :fs-object
  (make-fs-object name path)
  fs-object?
  (name fs-object-name)
  (path fs-object-path))

(define-record-discloser :fs-object
  (lambda (r)
    `(fs-object ,(fs-object-name r))))