(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))))