puck/zilch
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(zilch core vfs): fix vfs-subdir

Browse source
This commit is contained in:
puck 2025-03-02 14:04:02 +00:00
parent cab43001e6
commit 063550ca00
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
core/src/vfs.sld
View file

@ -100,13 +100,13 @@
(if (string=? subdir "") (if (string=? subdir "")
vfs vfs
(make-vfs (make-vfs
(mapping-map (mapping-fold
(lambda (key value) (lambda (key value acc)
(cond (cond
((string=? (car key) subdir) (values (cons "" (cdr key)) value)) ((string=? (car key) subdir) (mapping-set! acc (cons "" (cdr key)) value))
((string-prefix? subdirprefix (car key)) (values (cons (string-copy (car key) subdirprefixlength) (cdr key)) value)) ((string-prefix? subdirprefix (car key)) (mapping-set! acc (cons (string-copy (car key) subdirprefixlength) (cdr key)) value))
(else (values)))) (else acc)))
(make-default-comparator) (mapping (make-default-comparator))
(vfs-contents vfs))))) (vfs-contents vfs)))))
;; Generates a full VFS structure from an on-disk directory. ;; Generates a full VFS structure from an on-disk directory.