panic: panic/Never와 내장 테스트 — 문법을 먼저 고치고 대조 장치가 파서를 지적했다

순서가 요점이다. 문법에 test_decl과 panic_expr을 넣고 파서는 안 고친 채로
대조 장치를 돌렸더니 즉시 잡혔다:

  문장 300개 중 파서가 거부한 것 140개
  [1] 선언 (fn, struct, enum, capability, const)이(가) 필요합니다 — test 발견

파서를 따라가게 하니 다시 0건. 문법과 구현이 어긋나는 상태가 관측 가능한
것이 되었다는 뜻이다.

panic:
- 키워드다. prelude가 없어 함수로 두면 쓸 때마다 import해야 한다
- effect가 아니다. 경계 검사 하나에 {Panic}이 호출자 전부로 전염되면
  effect 절은 신호가 아니라 잡음이 된다
- Never는 어떤 타입 자리에도 놓인다. 없으면 panic을 match 팔에서 못 쓴다
- 언어 수준 recover 없음. 되감기 없음. 자원 해제 여부는 열어둔다
- 0으로 나누기, assert 실패가 이 하나로 모인다

test:
- 파라미터가 없어 capability를 받을 수 없고, 만들 문법도 없다. 그래서
  effect-free임이 증명된다 — 관례가 아니라 검사다. 시험해 보니 실제로
  "테스트는 effect를 수행할 수 없습니다"로 거부한다
- 일반 코드와 같은 타입/effect/move 검사를 받는다
- interface hash에서 제외 — 테스트를 고쳤다고 downstream이 재검사되면 안 된다
- 격리는 런타임의 일이다. 하나가 죽어도 나머지는 돈다

assert는 std/test.cool에 coollang으로 쓰였다 — panic 위의 설탕임이 코드로
보이고, std에서 본문이 있는 첫 함수가 됐다. 그 바람에 std/런타임 양방향
테스트가 걸렸고(본문 있는 함수에 런타임 구현을 요구했다), 그 구분을 넣었다.

samples/app/config.cool에 첫 테스트 넷.

Co-Authored-By: Claude Opus 5 (1M context) <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_019ZVDeU6KLuUVL3gs18Hm3E

lib/recognize.ml

@@ -48,11 +48,11 @@ let fail st expected =
         (e.pos.Token.line, e.pos.Token.col)
         <= ((cur st).Token.pos.Token.line, (cur st).Token.pos.Token.col)
   in
-  if keep then st.err <- Some { pos = (cur st).Token.pos; expected; got = term st };
+  if keep then
+    st.err <- Some { pos = (cur st).Token.pos; expected; got = term st };
   raise Fail
 
 let advance st = if st.i < Array.length st.toks - 1 then st.i <- st.i + 1
-
 let is_tok st n = SS.mem n st.tokens || not (Hashtbl.mem st.rules n)
 
 (* 이 식이 지금 토큰으로 시작할 수 있는가 *)
@@ -75,8 +75,7 @@ let rec run st (e : Ebnf.expr) =
           | Some x -> run st x
           | None ->
               fail st
-                (String.concat " 또는 "
-                   (SS.elements (Ebnf.first_expr st.a e)))))
+                (String.concat " 또는 " (SS.elements (Ebnf.first_expr st.a e)))))
   (* 선택과 반복은 최대한 먹는다 (문법 표기 규약의 greedy 규칙) *)
   | Ebnf.Opt x -> if starts st x then run st x
   | Ebnf.Rep x ->
@@ -85,8 +84,8 @@ let rec run st (e : Ebnf.expr) =
       done
   | Ebnf.Except (x, _) -> run st x
 
-let check ?(tokens = []) ?(start = "module") (g : Ebnf.t) (toks : Token.t list) :
-    (unit, error) result =
+let check ?(tokens = []) ?(start = "module") (g : Ebnf.t) (toks : Token.t list)
+    : (unit, error) result =
   let g = Ebnf.expand g in
   let rules = Hashtbl.create 128 in
   List.iter (fun (r : Ebnf.rule) -> Hashtbl.replace rules r.name r) g;
@@ -108,6 +107,7 @@ let check ?(tokens = []) ?(start = "module") (g : Ebnf.t) (toks : Token.t list)
         | Some _ -> ()
         | None ->
             st.err <-
-              Some { pos = (cur st).Token.pos; expected = "파일 끝"; got = term st });
+              Some
+                { pos = (cur st).Token.pos; expected = "파일 끝"; got = term st });
         Error (Option.get st.err))
   | exception Fail -> Error (Option.get st.err)