Skip to content

Instantly share code, notes, and snippets.

@bobjflong

bobjflong/1.scm

Last active August 29, 2015 14:01
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save bobjflong/c82327e54bcb753de7b4 to your computer and use it in GitHub Desktop.
Save bobjflong/c82327e54bcb753de7b4 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
1.scm
(define-syntax swap!
(sc-macro-transformer
(lambda (form environment)
(let ((a (make-syntactic-closure environment '() (cadr form)))
(b (make-syntactic-closure environment '() (caddr form))))
`(LET ((VALUE ,a))
(SET! ,a ,b)
(SET! ,b VALUE))))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment