tobast/mpri-funcprog-project
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Make NotValue more explicit

Browse source
This commit is contained in:
Théophile Bastian 2018-02-16 15:43:01 +01:00
parent 3ca59d6975
commit b0cd872baf
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/CPS.ml
View file

@ -3,7 +3,8 @@ module S = Lambda
(* The target calculus. *) (* The target calculus. *)
module T = Tail module T = Tail
exception NotValue (** <- Raised when trying to use a non-value term as such *) exception NotValue of S.term
(** ^ Raised when trying to use a non-value term as such *)
let freshId = let freshId =
(** Generates a fresh variable name string *) (** Generates a fresh variable name string *)
@ -30,7 +31,7 @@ let rec cps_value (t: S.term) : T.value = match t with
| S.Var v -> T.VVar v | S.Var v -> T.VVar v
| S.Lit v -> T.VLit v | S.Lit v -> T.VLit v
| S.BinOp (l, op, r) -> T.VBinOp (cps_value l, op, cps_value r) | S.BinOp (l, op, r) -> T.VBinOp (cps_value l, op, cps_value r)
| S.Let _ | S.Lam _ | S.App _ | S.Print _ | S.IfZero _ -> raise NotValue | S.Let _ | S.Lam _ | S.App _ | S.Print _ | S.IfZero _ -> raise (NotValue t)
let cps_value_as_term (t: S.term) (cont: T.variable): T.term = let cps_value_as_term (t: S.term) (cont: T.variable): T.term =
T.TailCall(T.vvar cont, [cps_value t]) T.TailCall(T.vvar cont, [cps_value t])