Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (define-syntax my-let
- (syntax-rules ()
- ((_ ((name x) ...) ex1 ex2 ...)
- ((lambda (name ...) ex1 ex2 ...)
- x ...))))
- (define-syntax my-let*
- (syntax-rules ()
- ((_ () ex1 ex2 ...)
- (my-let () ex1 ex2 ...))
- ((_ ((name1 x1) (name2 x2) ...)
- ex1 ex2 ...)
- (my-let ((name1 x1))
- (_ ((name2 x2) ...)
- ex1 ex2 ...)))))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement