diff --git a/.gitignore b/.gitignore index e1895b1..59fe709 100644 --- a/.gitignore +++ b/.gitignore @@ -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 diff --git a/test/test_dev.ml b/test/test_dev.ml index 05a55d6..d64ecae 100644 --- a/test/test_dev.ml +++ b/test/test_dev.ml @@ -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" diff --git a/tools/__pycache__/colon-to-dot.cpython-313.pyc b/tools/__pycache__/colon-to-dot.cpython-313.pyc deleted file mode 100644 index 5c381bf..0000000 Binary files a/tools/__pycache__/colon-to-dot.cpython-313.pyc and /dev/null differ