mirror of
https://github.com/janet-lang/janet
synced 2024-11-27 18:49:54 +00:00
Add default output path for --compile (-c)
This commit is contained in:
parent
190056b863
commit
b7b594205c
@ -4475,7 +4475,13 @@
|
||||
"c" (fn c-switch [i &]
|
||||
(def path (in args (+ i 1)))
|
||||
(def e (dofile path))
|
||||
(spit (in args (+ i 2)) (make-image e))
|
||||
(def output-path
|
||||
(if (< (+ i 2) (length args))
|
||||
(in args (+ i 2))
|
||||
(string
|
||||
(if (string/has-suffix? ".janet" path) (string/slice path 0 -7) path)
|
||||
".jimage")))
|
||||
(spit output-path (make-image e))
|
||||
(set no-file false)
|
||||
3)
|
||||
"-" (fn [&] (set handleopts false) 1)
|
||||
|
Loading…
Reference in New Issue
Block a user