(define-macro (define-cool-macro decl . body)
`(begin
(define-macro ,decl ,@body)
(define-macro ,(cons
(string->symbol (string-append (symbol->string (car decl)) "-dbg"))
(cdr decl)) ,@body)))
(define-cool-macro (fn . body) `(lambda ,@body))
(pp (fn-dbg (x) (+ x 2)))
Now, does anyone see anything wrong with define-cool-macro, or some way/something that may resulted in unexpected sideeffects (along the lines of accidently introducing variables in macros).
Thanks!