Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
22 lines (20 sloc) 648 Bytes
(* COMMENT, SYMBOL, LIDENT, INT, BLANKS, NEWLINE *)
let x = 42
(* UIDENT, INT32, INT64, NATIVEINT, CHAR, STRING *)
let (Some ((+), ( * ))) = Some (42l, 42L, 42n, 4.2, '?', '\'', '\n',
"string", "\t\n\"'", "
",'
')
(* LINE_DIRECTIVE *)
# 42
# 42 "somefilename.ml"
(* LABEL, OPTLABEL *)
let f g x y = g ~x:x ?y:y
(* QUOTATION *)
<<foo>> <:bar<baz>> <<foo$bar$baz>> <:bar<foo$bar$baz>>
<@loca<foo>> <:expr@loc<foo>> <<not<:a<nested>>quot>>
(* ANTIQUOT *)
$foo:bar$ $baz$ $`foo:bar$ $..:bar$
caml $antiquo << quot $antiquo$ quot >> antiquo$ caml
(* This is not a quotation *)
caml $<< antiquo $caml$ antiquo >>$ caml
Something went wrong with that request. Please try again.