(define-syntax (defmacro so)

  (syntax-case so ()

    [(_ id formals sexp . body)

     #'(define-syntax id 

         (let ([macros (lambda formals sexp . body)])

           (lambda (stx) 

             (datum->syntax stx (apply macros (cdr (syntax->list stx)))))))]))

(defmacro 1+ (a)

  #`(add1 #,a))

 

(defmacro swap (a b)

  #`(let ([temp #,a])

      (set! #,a #,b)

      (set! #,b temp)))

 

(defmacro unhygienic-swap (a b)

  `(let ([temp ,a])

     (set! ,a ,b)

     (set! ,b temp)))

 

> (let ([add1 sub1])

    (1+ 0))

1

> (let ([set! void]

        [a 'a]

        [b 'b]

        [c 'c]

        [d 'd])

    (swap a b)

    (unhygienic-swap c d)

    (printf "a = ~a, b = ~a\n" a b)

    (printf "c = ~a, d = ~a\n" c d))

a = b, b = a

c = c, d = d

 

Цитата

---

А какой смысл в таком макросе? Чисто для тех, кто привык к defmacro по CL?

---

Цитата

---

(datum->syntax #'here (apply macros (cdr (syntax->list stx))))
а то вдруг вам кто-нибудь #%app переопределит ;)

---