diff options
| author | Pierre Weis <Pierre.Weis@inria.fr> | 2013-02-27 17:45:59 +0000 |
|---|---|---|
| committer | Pierre Weis <Pierre.Weis@inria.fr> | 2013-02-27 17:45:59 +0000 |
| commit | 87fd19501d23b215483fe5b9d8332d2c40e4963e (patch) | |
| tree | 8c0eb9fd8163e6e6a2f47b4f7d253613b71ac164 | |
| parent | 8b480cb9e29a472b20b24ccf3e06d3253e5b2385 (diff) | |
Get rid of spurious warnings for unused variables.
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@13321 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | otherlibs/labltk/examples_labltk/eyes.ml | 2 | ||||
| -rw-r--r-- | otherlibs/labltk/examples_labltk/tetris.ml | 1 |
2 files changed, 1 insertions, 2 deletions
diff --git a/otherlibs/labltk/examples_labltk/eyes.ml b/otherlibs/labltk/examples_labltk/eyes.ml index a96e08260..74f59f6c0 100644 --- a/otherlibs/labltk/examples_labltk/eyes.ml +++ b/otherlibs/labltk/examples_labltk/eyes.ml @@ -24,7 +24,7 @@ let _ = pack [fw]; let c = Canvas.create ~width: 200 ~height: 200 fw in let create_eye cx cy wx wy ewx ewy bnd = - let o2 = Canvas.create_oval + let _o2 = Canvas.create_oval ~x1:(cx - wx) ~y1:(cy - wy) ~x2:(cx + wx) ~y2:(cy + wy) ~outline: `Black ~width: 7 diff --git a/otherlibs/labltk/examples_labltk/tetris.ml b/otherlibs/labltk/examples_labltk/tetris.ml index 8260fc205..28544e08d 100644 --- a/otherlibs/labltk/examples_labltk/tetris.ml +++ b/otherlibs/labltk/examples_labltk/tetris.ml @@ -268,7 +268,6 @@ let init fw = let scorev = Textvariable.create () and linev = Textvariable.create () and levv = Textvariable.create () - and namev = Textvariable.create () in let f = Frame.create fw ~borderwidth: 2 in let c = Canvas.create f ~width: (block_size * 10) |