From bcc77ca248016f5cc9a58b28987ee3a5964a1300 Mon Sep 17 00:00:00 2001
From: annabunches <annabunches@gmail.com>
Date: Thu, 5 Aug 2021 21:45:29 -0400
Subject: [PATCH] Fix runtime errors in cleanup script.

---
 clean.ks | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/clean.ks b/clean.ks
index 933a575..69cc372 100644
--- a/clean.ks
+++ b/clean.ks
@@ -8,7 +8,7 @@ function cleanDir {
 
   print "Entering '" + dir + "'.".
   cd(dir).
-  compileHere().
+  cleanHere().
   cd("..").
   print "Leaving '" + dir + "'.".
 }
@@ -24,7 +24,7 @@ function cleanHere {
 	deletepath(f).
       }
     } else if f:NAME[0] <> "." {
-      compileDir(f).
+      cleanDir(f).
     }
   }
 }