Welcome, guest! Login / Register - Why register?
Psst.. new poll here.
[email protected] web/email now available. Want one? Go here.
Cannot use outlook/hotmail/live here to register as they blocking our mail servers. #microsoftdeez
Obey the Epel!

Paste

Pasted as text by komar ( 15 years ago )
let check x = function
  | Some x -> print_endline ("Some " ^ x ^ " in code!")
  | _ -> ()

EXTEND Gram
GLOBAL: expr;

  expr: [ [ "Check"; "."; x = SELF => check x ] ];

END

(* Code to preprocess *)
let a = Some "string"

Check.a

 

Revise this Paste

Your Name: Code Language: