module+ main in reload.rkt

2019-03-20 22:36:13 +00:00 · 2019-03-20 22:36:13 +00:00 · 4732650041
parent 63ea6a9d3a
commit 4732650041
1 changed files with 6 additions and 0 deletions
--- a/syndicate/reload.rkt
+++ b/syndicate/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>"))))