From 994d50c7327eafe0e93ce083fd52e7a96e3bc455 Mon Sep 17 00:00:00 2001 From: Puck Meerburg Date: Tue, 29 Apr 2025 15:06:38 +0000 Subject: [PATCH] (zilch vfs): fix importing executable files --- core/src/vfs.sld | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/core/src/vfs.sld b/core/src/vfs.sld index 25eab4a..bd1d4f4 100644 --- a/core/src/vfs.sld +++ b/core/src/vfs.sld @@ -122,7 +122,7 @@ (begin (iter-dir (if (string=? dirpath "") name (string-append dirpath "/" name))) (set! out (mapping-set! out (cons dirpath name) 'directory))) - (set! out (mapping-set! out (cons dirpath name) (zfile (zexp ,(call-with-input-file (string-append reldir "/" name) read-full-file)))))))) + (set! out (mapping-set! out (cons dirpath name) (zfile (zexp ,(call-with-input-file (string-append reldir "/" name) read-full-file)) (file-executable? (string-append reldir "/" name)))))))) contents)) (iter-dir "") (make-vfs out))