From 3a47450de6e2ad009592388249045b0eee866f46 Mon Sep 17 00:00:00 2001
From: Jake Donham <jake@donham.org>
Date: Fri, 20 Nov 2009 07:05:47 +0000
Subject: [PATCH] fix for trunk ocamljs

git-svn-id: http://orpc2.googlecode.com/svn/trunk@128 220da7d2-e253-0410-a747-191e32cba5d1
---
 examples/clicks/clicks.ml | 8 ++++----
 examples/sudoku/sudoku.ml | 8 ++++----
 2 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/examples/clicks/clicks.ml b/examples/clicks/clicks.ml
index 57a5284..eaf2d05 100644
--- a/examples/clicks/clicks.ml
+++ b/examples/clicks/clicks.ml
@@ -5,14 +5,14 @@ let (>>=) = Lwt.(>>=)
 
 ;;
 
-Dom.window#_set_onload (Ocamljs.jsfun (fun () ->
+Dom.window#_set_onload (fun () ->
   let clicks = (Dom.document#getElementById "clicks" : Dom.span) in
   let click = (Dom.document#getElementById "click" : Dom.button) in
 
   let set_clicks n = Lwt.return (clicks#_set_innerHTML (string_of_int n)) in
 
-  click#_set_onclick (Ocamljs.jsfun (fun _ ->
+  click#_set_onclick (fun _ ->
     ignore(Server.click () >>= set_clicks);
-    Ocamljs.false_ ()));
+    Ocamljs.false_ ());
 
-  ignore(Server.clicks () >>= set_clicks)))
+  ignore(Server.clicks () >>= set_clicks))
diff --git a/examples/sudoku/sudoku.ml b/examples/sudoku/sudoku.ml
index 2cd2be0..8ea28b6 100644
--- a/examples/sudoku/sudoku.ml
+++ b/examples/sudoku/sudoku.ml
@@ -24,7 +24,7 @@ let make_board () =
         | "1" | "2" | "3" | "4" | "5"
         | "6" | "7" | "8" | "9" -> ()
         | _ -> input#_set_value "" in
-    input#_set_onchange (Ocamljs.jsfun enforce_digit);
+    input#_set_onchange enforce_digit;
     input in
 
   let make_td i j input =
@@ -152,12 +152,12 @@ let get_board rows _ =
 let onload () =
   let (rows, table) = make_board () in
   let check = d#getElementById "check" in
-  check#_set_onclick (Ocamljs.jsfun (check_board rows));
+  check#_set_onclick (check_board rows);
   let new_game = d#getElementById "new_game" in
-  new_game#_set_onclick (Ocamljs.jsfun (get_board rows));
+  new_game#_set_onclick (get_board rows);
   let board = d#getElementById "board" in
   ignore (board#appendChild table)
 
 ;;
 
-D.window#_set_onload (Ocamljs.jsfun onload)
+D.window#_set_onload onload