src/stream/stream.ml at main · jon.recoil.org/jsoo-code-mirror

this repo has no description

jsoo-code-mirror / src / stream / stream.ml

at main 12 lines 261 B view raw

wrap content

 1let g = Jv.get Jv.global "__CM__stream_parser"
 2
 3module Language = struct
 4  type t
 5
 6  include (Jv.Id : Jv.CONV with type t := t)
 7
 8  let g = Jv.get g "StreamLanguage"
 9
10  let define (l : t) =
11    Jv.call g "define" [| to_jv l |] |> Code_mirror.Extension.of_jv
12end