gistfile1.scm

;; モジュールgauche.baseがr7rsを読まないと定義されないので、読んどく (次のバージョンで直す)
(require "r7rs")

;; gauche.baseから不要なもの以外をインポート
(import (gauche.base :except (quote)))

;; 継承を切る
(extend)

;; define => #<syntax define>
;; quote => ;ERROR

伝統的マクロで引っかかってしまうみたいです。。

gosh> (define-macro (test a) `(define (,a) 0))
#<undef>
gosh> (test b)
b
gosh> (b)
0
gosh> (require "r7rs")
#<undef>
gosh> (import (gauche.base :except (quote)))
#<undef>
gosh> (extend)
#<undef>
gosh> (define-macro (test a) `(define (,a) 0))
*** ERROR: Compile Error: Compile Error: syntax-error: the form can appear only in the toplevel: (define ((unquote a)) 0)

"(standard input)":7:(define-macro (test a) `(define (,a) 0))

Stack Trace:
_______________________________________
  0  (eval expr env)
        At line 179 of "/usr/local/share/gauche-0.9/0.9.4/lib/gauche/interactive.scm"
gosh>