Convert the snippets that landed after the sweep, but not the printer's own output

This commit is contained in:
Joseph Ferano 2026-09-12 15:08:49 +07:00
parent 6d54a4390e
commit 8aac059485
3 changed files with 10 additions and 1 deletions

4
.gitignore vendored
View File

@ -64,3 +64,7 @@ vendor/raylib/web/
test/slurp-out.txt
test/slurp-made.txt
test/web-files-out.txt
# Python bytecode from the tools directory
__pycache__/
*.pyc

View File

@ -775,6 +775,11 @@ let () =
let want =
[ ("n", "i64", "3");
("label", "string", "\"hello\"");
(* Colons, deliberately: this is the *renderer's* output, not
source. [render.ml] still prints [{:x ...}] because
[flan-inspect.el] parses that text and the two move together
or not at all see NEXT.md. Converting this line with the
rest was wrong and the suite caught it. *)
("p", "Point", "(Point {:x 1.5 :y 2.5})");
("xs", "[3 i32]", "[ 10 20 30]");
("flag", "bool", "true") ]
@ -813,7 +818,7 @@ let () =
one slot more than the body this session now holds. *)
let r =
ask
"(:op \"eval\" :code \"(defn look [n i64 label string] i64 (let [p (Point {:x 1.5 :y 2.5}) xs [10 20 30]] (restart-case (do (error (Boom {:why 7})) (let [after (i64 99)] after)) (carry-on [] 5))))\" :file \"/tmp/buf.flan\")"
"(:op \"eval\" :code \"(defn look [n i64 label string] i64 (let [p (Point {.x 1.5 .y 2.5}) xs [10 20 30]] (restart-case (do (error (Boom {.why 7})) (let [after (i64 99)] after)) (carry-on [] 5))))\" :file \"/tmp/buf.flan\")"
in
if status r <> "ok" then
fail "installing a body with fewer slots while stopped: %s"