(zilch lang go vfs): actually handle empty directories

In cases where a directory only contains files which are filtered out,
the VFS would break on importing the directory. This fixes that.
This commit is contained in:
puck 2024-11-27 14:10:22 +00:00
parent 5380ac9307
commit 2f069f2cdd

View file

@ -109,7 +109,7 @@
(set! dirmap (mapping-update!/default dirmap dir (lambda (v) (cons (cons fname (zsymlink contents)) v)) '()))))
(vfs-contents vfs))
(define (read-dir dirname)
(define contents (mapping-ref dirmap dirname))
(define contents (mapping-ref/default dirmap dirname '()))
(for-each
(lambda (pair)
(when (eq? (cdr pair) 'directory)