Deeply nested ellipses の test の深さが足りてないことに気づいたので、もっと深い奴を追加したところ、Guile がS t a c k o v e r f l o w で 諦 め よ っ た。これにて test-syntax-rules.scm の test (assert-error のもの除く) が全部通るのは STklos …

FAILED: 1 tests, 38 assertions, 23 successes, 15 failures, 0 errors Symbol を返すものが全て比較失敗のせいで failure に数えられてるので、いきなり 15 というのは予想よりずっと少ない。 にしても 38 か…。もっと多いと思ってたけど、まあこんなもん…

expected: <((()) ((((((((((((((((((((((1 2) (1 2)) (() ()) (#(3) #(3)) (4 4) (5 5) 0)))))))))))))))))))) #(#(#(#(#(#(#(#(#(#(#(#(#(#(#(#(#(#(#(#(((1 2) (1 2)) (#(3) #(3)) (4 4) (5 5) 0)))))))))))))))))))) mismatch mismatch mismatch mismatc…

この書き方を見て何を思いますか。 if (a) { return 0; } else for (x;y;z) ;他に while, switch, do-while など。

やっと test が動き始めたと思ったら vector の実装が全然なっとらんではないか。そういや動作確認は list ばっかり使ってたような気も…

pen [vt] indite

Quarter 分の宿題が全部 website に載ってるってんで見てきました。LinkedList 実装するんだって。へえぇ〜難しそうだな〜(・∀・)ﾆﾔﾆﾔ

mark_obj(): case SCM_TAG_OTHERS: if (SYMBOLP(obj)) { obj = SCM_SYMBOL_VCELL(obj); goto mark_loop; } else if (VECTORP(obj)) { for (i = 0; i < SCM_VECTOR_LEN(obj); i++) { mark_obj(SCM_VECTOR_VEC(obj)[i]); } } else if (VALUEPACKETP(obj)) { ob…

ERROR: in let: invalid binding form: #1=(#<farsym 2 x> 1)どっかで defined datum の操作ミスってる? ざっと見たけどわからん。やっぱ longjmp() はとても追いにくい。</farsym>