borked up calling conventions

gistfile1.txt

<{'color': 'red'}
/body><True
/body>⏎

tags.hy

(import sys)

(defn princ [the-string &optional [stream sys.stdout]]
  (apply print [the-string] {"file" stream "end" ""}))

(defn print-tag [name &optional [closingp False] [stream sys.stdout] &kwargs attrs]
  (princ "<" stream)
  (if closingp (do (print closingp) (princ "/" stream)))
  (princ (.lower name) stream)
  (if (and attrs (not closingp))
    (do (princ " " stream)
        (princ (.join " "
                      (list-comp
                       (.format "{0}='{1}'" k v)
                       [[k v] (.items attrs)]))
               stream)))
  (princ ">" stream))


(defmain [&rest args]
  (print-tag "body" {"color" "red"})
  (apply print-tag ["body"] {"closingp" True}))