diff options
Diffstat (limited to 'tools/tast_iter.ml')
| -rw-r--r-- | tools/tast_iter.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tools/tast_iter.ml b/tools/tast_iter.ml index 099238cee0..0de4f1cf1b 100644 --- a/tools/tast_iter.ml +++ b/tools/tast_iter.ml @@ -97,8 +97,8 @@ let expression sub exp = | Texp_let (rec_flag, list, exp) -> sub # bindings (rec_flag, list); sub # expression exp - | Texp_bind (list, exp) -> - sub # bindings (Default, list); + | Texp_bind (b, exp) -> + sub # binding b; sub # expression exp | Texp_function (_, cases, _) -> sub # bindings (Nonrecursive, cases) |