Re: test-moduleの拡張 (Gauche-devel-jp) - Gauche

辻本です。

Subject: [Gauche-devel-jp] Re: test-moduleの拡張
From: Shiro Kawai <shiro****@lava*****>
Date: Tue, 21 Mar 2006 13:45:26 -1000 (HST)
message-id: <20060****@lava*****>

> そうか！ テスト段階でチェックするという方法がありましたね。
> コンパイラが重くなることもないし、素晴らしいアイディアだと思います。
> 内部APIの使用に関しては、gauche.testもgaucheのコアフィーチャーの
> 一部と考えれば問題ないと思います。ちょっとコードを整理して
> きれいなAPIを外に見せるようにするかもしれません。

アイディアを思いついた時点では拡張モジュールを作ることを考えていたのです
が、Schemeレベルで完結できたので助かりました。


ところで先のコードではクロージャ内クロージャの処理をすっかり忘れていました。
grefesを次のものに差し替えてお使い下さい。

(define (grefes closure)
  (let ((r '()))
    (let loop ((cc (closure-code closure)))
      (for-each (lambda (i)
                  (cond
                   ((or (identifier? i) (gloc? i))
                    (push! r i))
                   ((compiled-code? i)
                    (loop i))))
                ((with-module gauche.internal vm-code->list) cc)))
    r))

----
Kazuki Tsujimoto