diff --git a/src/rustint/core.clj b/src/rustint/core.clj index 39c826b..8266d9c 100644 --- a/src/rustint/core.clj +++ b/src/rustint/core.clj @@ -2018,9 +2018,13 @@ ; 0 nil ; nil ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -(defn dump [&args] - (print "\n0 [POPREF 2]\n1 [PUSHFI 2]\n2 MUL\n3 [PUSHFI 1]\n4 ADD\n5 NEG\nnil") - nil + +(defn format_elem [idx itm] + (format "%d %s" idx itm) +) + +(defn dump [args] + (dorun (map println (map-indexed format_elem args))) ) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;