Skip to content

Instantly share code, notes, and snippets.

@eatonphil

eatonphil/my-let.scm

Created March 26, 2018 13:58
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 eatonphil/06a35ea79551790857a8b3bd0ad12b5b to your computer and use it in GitHub Desktop.
Save eatonphil/06a35ea79551790857a8b3bd0ad12b5b to your computer and use it in GitHub Desktop.
Download ZIP
Raw
my-let.scm
(define-syntax my-let*
(syntax-rules ()
((_ ((p v)) b ...)
(let ((p v)) b ...))
((_ ((p1 v1) (p2 v2) ...) b ...)
(let ((p1 v1))
(my-let* ((p2 v2) ...)
b ...)))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment