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

(zilch vfs): fix importing executable files

Browse source
This commit is contained in:
puck 2025-04-29 15:06:38 +00:00
parent 40d213520a
commit 994d50c732
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
core/src/vfs.sld
View file

@ -122,7 +122,7 @@
(begin (begin
(iter-dir (if (string=? dirpath "") name (string-append dirpath "/" name))) (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) '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)) contents))
(iter-dir "") (iter-dir "")
(make-vfs out)) (make-vfs out))