The teachpack dir.ss provides two-structures and one
operation:
The teachpack relies on two data definitions:
Sample: Set teachpack todir.ss and execute. Then evaluate
> (create-dir ".")
(make-dir
'|.|
empty
(cons (make-file 'ball1.gif 1289 empty)
(cons (make-file 'blueball.gif 205 empty)
(cons (make-file 'greenbal.gif 204 empty)
(cons (make-file 'redball.gif 203 empty)
(cons (make-file 'ufo.gif 1044 empty)
(cons (make-file 'gif-test.ss 5811 empty)
empty)))))))
Note: Softlinks are always treated as if they were empty files.