hoge.scm

(import (scheme base)
        (scheme write))
 
(define-syntax foo
  (syntax-rules (hoge)
	((_ hoge)
	 (write "You got"))
	((_ bar)
	 (write 'bar))))

(define-syntax hoo
  (er-macro-transformer
   (lambda (form r cmp)
	 (if (cmp (r 'hoge) (cadr form))
		 `(,(r 'write) "you got")
		 `(,(r 'write) ',(cadr form))))))


(define-syntax goo
  (er-macro-transformer
   (lambda (form r cmp)
	 (if (cmp 'hoge (r (cadr form)))
		 `(,(r 'write) "you got")
		 `(,(r 'write) ',(cadr form))))))

(foo hoge) ; should display "You got", but got "hoge"
(hoo hoge) ; got "hoge", should display "You got"?
(goo hoge) ; got "hoge"