From c3e78c5356b36faf376ace599c3bdc266a81fdb8 Mon Sep 17 00:00:00 2001
From: annabunches <annabunches@gmail.com>
Date: Sun, 1 Aug 2021 18:01:00 -0400
Subject: [PATCH] Fix compileall script, and the compile errors it discovered.

---
 boot/helicopter.ks | 2 +-
 compileall.ks      | 9 ++++++---
 2 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/boot/helicopter.ks b/boot/helicopter.ks
index a276592..cd992ed 100644
--- a/boot/helicopter.ks
+++ b/boot/helicopter.ks
@@ -1,7 +1,7 @@
 deletepath("/boot/helicopter").
 
 compile "0:/lib/stabilize_helicopter" to "1:/lib/".
-comiple "0:/init/helicopter" to "1:/init".
+compile "0:/init/helicopter" to "1:/init".
 
 // Set OS to boot and restart.
 set core:bootfilename to "/init".
diff --git a/compileall.ks b/compileall.ks
index 59dd378..2bbb02d 100644
--- a/compileall.ks
+++ b/compileall.ks
@@ -6,9 +6,11 @@ compileHere().
 function compileDir {
   parameter dir.
 
-  cd("dir").
+  print "Entering '" + dir + "'.".
+  cd(dir).
   compileHere().
   cd("..").
+  print "Leaving '" + dir + "'.".
 }
 
 function compileHere {
@@ -16,9 +18,10 @@ function compileHere {
   list files in fileList.
 
   for f in fileList {
-    if f:ISFILE {
+    if f:ISFILE and f:EXTENSION = "ks" {
+      print "Compiling '" + f:NAME + "'.".
       compile f.
-    } else {
+    } else if f:NAME[0] <> "." {
       compileDir(f).
     }
   }