10 lines
222 B
Scheme
10 lines
222 B
Scheme
|
(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))))
|