improv

mighty-gerbils · Jun 12, 2024 · 04211dc · 04211dc
1 parent 0bb0900
commit 04211dc
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/src/gerbil/gxi-main.ss b/src/gerbil/gxi-main.ss
@@ -56,8 +56,11 @@
         ((member hd '("-r" "--run"))
          (match rest
            ([x . rest]
-            (eval `(import ,x))
-            (try-main! rest (lambda (args) (error "cannot run module" x args))))
+            (let (mod (if (string-prefix? ":" x)
+                        (string->symbol x)
+                        x))
+              (eval `(import ,mod))
+              (try-main! rest (lambda (args) (error "cannot run module" x args)))))
            (else
             (error "missing argument for module to run"))))
         ((member hd '("-l" "--lang"))