diff options
Diffstat (limited to 'otherlibs/labltk/builtin/builtin_bind.ml')
| -rw-r--r-- | otherlibs/labltk/builtin/builtin_bind.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/otherlibs/labltk/builtin/builtin_bind.ml b/otherlibs/labltk/builtin/builtin_bind.ml index 83bfe4e22..8cd3194ab 100644 --- a/otherlibs/labltk/builtin/builtin_bind.ml +++ b/otherlibs/labltk/builtin/builtin_bind.ml @@ -178,7 +178,7 @@ let wrapeventInfo f (what : eventField list) = ev_RootY = 0 } in function args -> let l = ref args in - List.iter f:(function field -> + List.iter fun:(function field -> match !l with | [] -> () | v :: rest -> filleventInfo ev v field; l := rest) |