mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-10-27 21:57:41 +00:00
Code Issues 1 Releases Wiki Activity

Shouldn't make a difference...

Browse Source
This commit is contained in:
Calvin Rose
2024-05-26 11:07:23 -05:00
parent 1225cd31c8
commit 87db463f4e
1 changed files with 3 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
src/boot/boot.janet
View File

@@ -4010,7 +4010,7 @@
(defn- bundle-dir (defn- bundle-dir
[&opt bundle-name] [&opt bundle-name]
(def s (sep)) (def s (sep))
(string (bundle-rpath (dyn *syspath*)) s "bundle" s bundle-name)) (string (bundle-rpath (dyn *syspath*)) s "bundle" (if bundle-name s) bundle-name))
(defn- bundle-file (defn- bundle-file
[bundle-name filename] [bundle-name filename]
@@ -4024,7 +4024,7 @@
(defn- prime-bundle-paths (defn- prime-bundle-paths
[] []
(def s (sep)) (def s (sep))
(def path (string (dyn *syspath*) s "bundle")) (def path (bundle-dir))
(os/mkdir path) (os/mkdir path)
(assert (os/stat path :mode))) (assert (os/stat path :mode)))
@@ -4042,12 +4042,7 @@
(def s (sep)) (def s (sep))
(each y (os/dir x) (each y (os/dir x)
(rmrf (string x s y))) (rmrf (string x s y)))
(try (os/rmdir x))
(os/rmdir x)
([e f]
(eprint "printing files in " x "...")
(each y (os/dir x) (eprint " - " y))
(propagate e f))))
(os/rm x)) (os/rm x))
nil) nil)