forked from DGNum/liminix
run-liminix-vm: don't reverse order of --flags params
This commit is contained in:
parent
f020d5b25d
commit
6469408d5f
1 changed files with 1 additions and 1 deletions
|
@ -45,7 +45,7 @@
|
|||
["--wan" spec & rest] (assoc (parse-args rest) :wan spec)
|
||||
["--command-line" cmd & rest] (assoc (parse-args rest) :command-line cmd)
|
||||
["--flag" flag & rest] (let [o (parse-args rest)]
|
||||
(assoc o :flags (doto o.flags (table.insert flag))))
|
||||
(assoc o :flags (doto o.flags (table.insert 1 flag))))
|
||||
[kernel rootfsimg]
|
||||
{ :flags [] :kernel kernel :rootfs (pad-file rootfsimg (* 16 1024)) }
|
||||
))
|
||||
|
|
Loading…
Reference in a new issue