module+ main in reload.rkt

2019-03-20 22:36:13 +00:00 · 2019-03-20 22:36:13 +00:00 · f0db94c102
parent 856cad237f
commit f0db94c102
1 changed files with 6 additions and 0 deletions
--- a/imperative/reload.rkt
+++ b/imperative/reload.rkt
@ -110,3 +110,9 @@
          (reload!)
          (log-syndicate/reload-warning "Module ~v does not exist" pathstr))
      (previous-version (latest-version)))))
+
+(module+ main
+  (require racket/cmdline)
+  (extend-ground-boot! (lambda ()
+                         (define module-path (command-line #:args (module-path) module-path))
+                         (spawn-reloader* module-path "<main>"))))