Fighting scheme macros

wip.ss

(define empty? null?)
(define empty '())
(define first car)
(define rest cdr)

(define (split2 item lst)
  (let loop ([remaining lst]
             [left empty])
    (cond [(empty? remaining) (values (reverse left) empty)]
          [(equal? item (first remaining)) (values (reverse left) (rest remaining))]
          [else (loop (rest remaining) (cons (first remaining) left))])))


(define (reverse-thing stx)
  stx)

(define-syntax (power-let stx)
  (syntax-case stx ()
    [(_ body0 body* ...)
     (with-syntax ([new-body (reverse-thing #'body0)])
       #'(let [new-body] body* ...))]))

                                        ;(power-let (1 a) (printf "~s\n" a))