Fix scene->gcode

This commit is contained in:
arne 2022-11-20 17:45:18 +01:00
commit 96caa61987

View file

@ -54,7 +54,7 @@
(loop [[el & rs] scene (loop [[el & rs] scene
res []] res []]
(cond (cond
(seq? el) (recur (scene->gcode el) res) (vector? el) (recur (scene->gcode el) res)
(map? el) (recur rs res) (map? el) (recur rs res)
:else (if (seq rs) :else (if (seq rs)
(recur rs (conj res (gcode-seq->str (->gcode el)))) (recur rs (conj res (gcode-seq->str (->gcode el))))