From 7488effd5c924f613bc228d6eb9f6bdb8666a5c1 Mon Sep 17 00:00:00 2001
From: annabunches <annabunches@gmail.com>
Date: Thu, 5 Aug 2021 21:50:49 -0400
Subject: [PATCH] Automatically move 'prog' files into volume root.

---
 lib/boot.ks | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/lib/boot.ks b/lib/boot.ks
index 14a0eec..922a2e7 100644
--- a/lib/boot.ks
+++ b/lib/boot.ks
@@ -31,14 +31,22 @@ function compileLibs {
   }
 
   for lib in libs {
-    compile "0:" + lib to "1:" + lib.
+    local tgt is lib.
+    if lib:StartsWith("/prog") {
+      set tgt to lib:Remove(0, 5).
+    }
+    compile "0:" + lib to "1:" + tgt.
   }
 }
 
 function copyLibs {
   parameter libs.
   for lib in libs {
-    copypath("0:" + lib, "1:" + lib).
+    local tgt is lib.
+    if lib:StartsWith("/prog") {
+      set tgt to lib:Remove(0, 5).
+    }
+    copypath("0:" + lib, "1:" + tgt).
   }
 }