projects
/
lambda.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
consistent vars, some paren spacing
[lambda.git]
/
code
/
untyped_evaluator_complete.ml
diff --git
a/code/untyped_evaluator_complete.ml
b/code/untyped_evaluator_complete.ml
index
4a1bc36
..
f918d3a
100644
(file)
--- a/
code/untyped_evaluator_complete.ml
+++ b/
code/untyped_evaluator_complete.ml
@@
-61,7
+61,7
@@
and env = (identifier * term) list
(* Operations for environments *)
let empty = []
let shift (ident : identifier) binding env = (ident,binding) :: env
(* Operations for environments *)
let empty = []
let shift (ident : identifier) binding env = (ident,binding) :: env
-let rec lookup (sought_ident : ident) (env : env) : term option =
+let rec lookup (sought_ident : ident
ifier
) (env : env) : term option =
match env with
| [] -> None
| (ident, binding) :: _ when ident = sought_ident -> Some binding
match env with
| [] -> None
| (ident, binding) :: _ when ident = sought_ident -> Some binding