From ec22d48d67dc695b09d924afed9eb291362d7dcb Mon Sep 17 00:00:00 2001
From: Nikolay Puzanov <np@embddr.com>
Date: Wed, 30 Nov 2022 15:05:02 +0300
Subject: [PATCH] Add debug flag of work dir deletion

---
 _web_server/playground-server.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/_web_server/playground-server.scm b/_web_server/playground-server.scm
index 8653a1c..619fc80 100755
--- a/_web_server/playground-server.scm
+++ b/_web_server/playground-server.scm
@@ -23,6 +23,7 @@
 
 (define INDEX-FILE "index.html")
 (define LOGGING #t)
+(define DELETE-WORK-DIR #t)
 
 (define (multistring . strings)
   (apply string-append
@@ -255,7 +256,8 @@
                                            (format "--\n~a\n" out)))))
                                  (string-append compile-log execution-log))))))))))
 
-            ;; (delete-recursive work-dir)
+            (when DELETE-WORK-DIR
+              (delete-recursive work-dir))
             log)))))
 
 ;;;