| From: Kevin Forchione (lysseus at gmail.com) Date: Thu Oct 2 21:19:14 EDT 2014 |
|
Hi guys,
Why does this appear to work? I assume it’s not a recommended approach.
#lang racket
(require (for-syntax syntax/parse))
(define-syntax (mylet stx)
(let ([val (syntax-case stx ()
[(_ x) #'x]
[(_ x xs ...) #'(cons x (mylet xs ...))])])
val))
(mylet 1 2 3) => ‘(1 2 3)
-Kevin
| Posted on the users mailing list. |
|