summaryrefslogtreecommitdiffstats
path: root/otherlibs/labltk/builtin/builtin_bind.ml
diff options
context:
space:
mode:
Diffstat (limited to 'otherlibs/labltk/builtin/builtin_bind.ml')
-rw-r--r--otherlibs/labltk/builtin/builtin_bind.ml2
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)