[Gauche-devel-jp] fault on continuation

Back to archive index

Alex Shinn foof****@synth*****
2002年 11月 18日 (月) 19:27:19 JST


>>>>> Shiro Kawai <shiro****@lava*****> writes:

    > full continuationの実装は、スタックエリアのコピーという観点から見
    > ると、次のように分類されます。

    [...]

継続の説明ありがとうございました。私は日本語をよく分りますんのに、沢山習
いました。

では、doは以下のdefine-syntaxで作られます。このdoで岡田さんのテストが動
きます。

(define-syntax do
  (syntax-rules ()
    ((do ((var1 init1 inc1 ...) ...)
        (test1 expr1 ...)
        body ...)
     (let loop ((var1 init1) ...)
       body ...
       (if test1
         (begin #f expr1 ...)
         (loop (do 'or var1 inc1 ...) ...)))
     )
    ((do 'or var inc) inc)
    ((do 'or var) var)))

-- 
Alex



Gauche-devel-jp メーリングリストの案内
Back to archive index