ir.scm

(define-syntax swap!
  (ir-macro-transformer
    (lambda (form inject compare?)
      (let ((a (cadr form))
            (b (caddr form)))
        `(let ((tmp ,a))
            (set! ,a ,b)
            (set! ,b tmp))))))