Skip to content

M
mincss
Commit 7e287918 authored by Taddeüs Kroes's avatar Taddeüs Kroes
Browse files
Options

Added a comment

parent 5c4c7aa3
Hide whitespace changes
Inline Side-by-side
Showing with 2 additions and 0 deletions
util.ml
View file @ 7e287918
...@@ -95,6 +95,8 @@ let prerr_loc_msg verbose loc msg = ...@@ -95,6 +95,8 @@ let prerr_loc_msg verbose loc msg =
with Sys_error _ -> () with Sys_error _ -> ()
end end
(** AST traversal *)
#define TRAV_ALL(id, constructor) \ #define TRAV_ALL(id, constructor) \
trav_all_##id l = \ trav_all_##id l = \
let rec filter_clear = function \ let rec filter_clear = function \
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment