Source file `parse.ml`

1
2
3
4
5
6
exception InvalidLambdaString;;

let parse s = 
  try 
    Parser.prog Lexer.lexer (Lexing.from_string s)
  with | _ -> raise InvalidLambdaString
;;