sc.scm

(define-syntax swap!
  (sc-macro-transformer
   (lambda (form env)
     (let ((a (make-syntactic-closure env '() (cadr form)))
           (b (make-syntactic-closure env '() (caddr form))))
       `(let ((value ,a))
          (set! ,a ,b)
          (set! ,b value))))))