np/verilog-playground
1
0
Fork 0
Code Issues 1 Pull Requests Projects Releases Wiki Activity

Add debug flag of work dir deletion

Browse Source
This commit is contained in:
Nikolay Puzanov 2022-11-30 15:05:02 +03:00
parent 00d846d18c
commit ec22d48d67
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
_web_server/playground-server.scm
View File

@ -23,6 +23,7 @@
(define INDEX-FILE "index.html") (define INDEX-FILE "index.html")
(define LOGGING #t) (define LOGGING #t)
(define DELETE-WORK-DIR #t)
(define (multistring . strings) (define (multistring . strings)
(apply string-append (apply string-append
@ -255,7 +256,8 @@
(format "--\n~a\n" out))))) (format "--\n~a\n" out)))))
(string-append compile-log execution-log)))))))))) (string-append compile-log execution-log))))))))))
;; (delete-recursive work-dir) (when DELETE-WORK-DIR
(delete-recursive work-dir))
log))))) log)))))
;;; ;;;