package ocaml-compiler
Official release of OCaml 5.3.0
Install
Dune Dependency
Authors
Maintainers
Sources
ocaml-5.3.0.tar.gz
sha256=22c1dd9de21bf43b62d1909041fb5fad648905227bf69550a6a6bef31e654f38
doc/src/stdlib/fun.ml.html
Source file fun.ml
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39
(**************************************************************************) (* *) (* OCaml *) (* *) (* The OCaml programmers *) (* *) (* Copyright 2018 Institut National de Recherche en Informatique et *) (* en Automatique. *) (* *) (* All rights reserved. This file is distributed under the terms of *) (* the GNU Lesser General Public License version 2.1, with the *) (* special exception on linking described in the file LICENSE. *) (* *) (**************************************************************************) external id : 'a -> 'a = "%identity" let const c _ = c let compose f g x = f (g x) let flip f x y = f y x let negate p v = not (p v) exception Finally_raised of exn let () = Printexc.register_printer @@ function | Finally_raised exn -> Some ("Fun.Finally_raised: " ^ Printexc.to_string exn) | _ -> None let protect ~(finally : unit -> unit) work = let finally_no_exn () = try finally () with e -> let bt = Printexc.get_raw_backtrace () in Printexc.raise_with_backtrace (Finally_raised e) bt in match work () with | result -> finally_no_exn () ; result | exception work_exn -> let work_bt = Printexc.get_raw_backtrace () in finally_no_exn () ; Printexc.raise_with_backtrace work_exn work_bt
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>