File: objects.ml

package info (click to toggle)
js-of-ocaml 6.2.0-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 37,932 kB
  • sloc: ml: 135,957; javascript: 58,364; ansic: 437; makefile: 422; sh: 12; perl: 4
file content (14 lines) | stat: -rw-r--r-- 290 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
(* TEST *)


(* Non-regression for bug #10763, fixed in #10764 *)

module W = struct
  let r = ref (object method m x = Printf.printf "BAD %i\n%!" x end)
end

let proxy = object method m = (!W.r) # m end

let () =
  W.r := object method m x = Printf.printf "OK %i\n%!" x end;
  proxy # m 3