Convert the snippets that landed after the sweep, but not the printer's own output
This commit is contained in:
parent
6d54a4390e
commit
8aac059485
4
.gitignore
vendored
4
.gitignore
vendored
@ -64,3 +64,7 @@ vendor/raylib/web/
|
|||||||
test/slurp-out.txt
|
test/slurp-out.txt
|
||||||
test/slurp-made.txt
|
test/slurp-made.txt
|
||||||
test/web-files-out.txt
|
test/web-files-out.txt
|
||||||
|
|
||||||
|
# Python bytecode from the tools directory
|
||||||
|
__pycache__/
|
||||||
|
*.pyc
|
||||||
|
|||||||
@ -775,6 +775,11 @@ let () =
|
|||||||
let want =
|
let want =
|
||||||
[ ("n", "i64", "3");
|
[ ("n", "i64", "3");
|
||||||
("label", "string", "\"hello\"");
|
("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})");
|
("p", "Point", "(Point {:x 1.5 :y 2.5})");
|
||||||
("xs", "[3 i32]", "[ 10 20 30]");
|
("xs", "[3 i32]", "[ 10 20 30]");
|
||||||
("flag", "bool", "true") ]
|
("flag", "bool", "true") ]
|
||||||
@ -813,7 +818,7 @@ let () =
|
|||||||
one slot more than the body this session now holds. *)
|
one slot more than the body this session now holds. *)
|
||||||
let r =
|
let r =
|
||||||
ask
|
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
|
in
|
||||||
if status r <> "ok" then
|
if status r <> "ok" then
|
||||||
fail "installing a body with fewer slots while stopped: %s"
|
fail "installing a body with fewer slots while stopped: %s"
|
||||||
|
|||||||
Binary file not shown.
Loading…
x
Reference in New Issue
Block a user