projects
/
lambda.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
create page
[lambda.git]
/
code
/
untyped_evaluator_complete.ml
diff --git
a/code/untyped_evaluator_complete.ml
b/code/untyped_evaluator_complete.ml
index
9086205
..
8408c2b
100644
(file)
--- a/
code/untyped_evaluator_complete.ml
+++ b/
code/untyped_evaluator_complete.ml
@@
-248,7
+248,7
@@
module V2 = struct
| Var var ->
(match lookup var env with
(* Free variables will never be pushed to the env, so we can be
- sure this is a result. *)
CHECK
+ sure this is a result. *)
| Some res -> res
| None -> failwith ("Unbound variable `" ^ var ^ "`"))