From 063550ca006dc3b7ed955c64b70f050c347f368f Mon Sep 17 00:00:00 2001 From: Puck Meerburg Date: Sun, 2 Mar 2025 14:04:02 +0000 Subject: [PATCH] (zilch core vfs): fix vfs-subdir --- core/src/vfs.sld | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/core/src/vfs.sld b/core/src/vfs.sld index 55ddba3..25eab4a 100644 --- a/core/src/vfs.sld +++ b/core/src/vfs.sld @@ -100,13 +100,13 @@ (if (string=? subdir "") vfs (make-vfs - (mapping-map - (lambda (key value) + (mapping-fold + (lambda (key value acc) (cond - ((string=? (car key) subdir) (values (cons "" (cdr key)) value)) - ((string-prefix? subdirprefix (car key)) (values (cons (string-copy (car key) subdirprefixlength) (cdr key)) value)) - (else (values)))) - (make-default-comparator) + ((string=? (car key) subdir) (mapping-set! acc (cons "" (cdr key)) value)) + ((string-prefix? subdirprefix (car key)) (mapping-set! acc (cons (string-copy (car key) subdirprefixlength) (cdr key)) value)) + (else acc))) + (mapping (make-default-comparator)) (vfs-contents vfs))))) ;; Generates a full VFS structure from an on-disk directory.