jon.recoil.org
this repo has no description
Phase 2: Wire up PPX preprocessing in execute
The JsooTopPpx module was set up to capture PPX registrations and apply
rewriters, but the preprocess_phrase function was never called during
execution. This commit:
- Adds JsooTopPpx.preprocess_phrase call before Toploop.execute_phrase
- Removes debug output from preprocess_structure
This enables PPX rewriters (including Ppx_js for [%js] syntax) to work
properly in the toplevel.
Co-Authored-By: Claude Opus 4.5 <noreply@anthropic.com>
+1
-1
lib/impl.ml
+1
-1
lib/impl.ml
···
81
81
82
82
let preprocess_structure str =
83
83
let open Ast_mapper in
84
-
Printf.eprintf "Rewriting...\n%!";
85
84
List.fold_right !ppx_rewriters ~init:str ~f:(fun ppx_rewriter str ->
86
85
let mapper = ppx_rewriter [] in
87
86
mapper.structure mapper str)
···
223
222
while true do
224
223
try
225
224
let phr = !Toploop.parse_toplevel_phrase lb in
225
+
let phr = JsooTopPpx.preprocess_phrase phr in
226
226
ignore (Toploop.execute_phrase printval pp_answer phr : bool)
227
227
with
228
228
| End_of_file -> raise End_of_file