Skip to content

Instantly share code, notes, and snippets.

@zeptometer

zeptometer/expand-destructuring-bind.scm

Last active August 29, 2015 13:56
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 zeptometer/8885494 to your computer and use it in GitHub Desktop.
Save zeptometer/8885494 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
expand-destructuring-bind.scm
(destructuring-bind ((a b) . c) '((1 2) 3 4 5) (list a b c))
; expands to
((lambda (evaluated@605)
((lambda (evaluated@605)
((lambda (a@617)
(begin ((lambda (evaluated@605)
((lambda (b@619)
(begin
(begin
((lambda (c@620) (begin (list@19 a@617 b@619 c@620)))
(cdr@9 evaluated@605)))))
(car@8 evaluated@605)))
(cdr@9 evaluated@605))))
(car@8 evaluated@605)))
(car@8 evaluated@605)))
(quote ((1 2) 3 4 5)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment