Advertisement
Guest User

Untitled

a guest
Nov 26th, 2015
87
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Scheme 0.37 KB | None | 0 0
  1. (define-syntax my-let
  2.   (syntax-rules ()
  3.     ((_ ((name x) ...) ex1 ex2 ...)
  4.      ((lambda (name ...) ex1 ex2 ...)
  5.       x ...))))
  6.  
  7. (define-syntax my-let*
  8.   (syntax-rules ()
  9.     ((_ () ex1 ex2 ...)
  10.      (my-let () ex1 ex2 ...))
  11.     ((_ ((name1 x1) (name2 x2) ...)
  12.        ex1 ex2 ...)
  13.      (my-let ((name1 x1))
  14.        (_ ((name2 x2) ...)
  15.          ex1 ex2 ...)))))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement