projects
/
lambda.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
tweaks
[lambda.git]
/
code
/
untyped_evaluator.ml
diff --git
a/code/untyped_evaluator.ml
b/code/untyped_evaluator.ml
index
6ebc7b6
..
5ccecb5
100644
(file)
--- a/
code/untyped_evaluator.ml
+++ b/
code/untyped_evaluator.ml
@@
-1,5
+1,5
@@
(*
(*
- This is a simplified version of the code at http://lambda.jimpryor.net/code/untyped_full.tgz
+ This is a simplified version of the code at http://lambda.jimpryor.net/code/untyped_full
-1.7
.tgz
You can use this code as follows:
1. First, use a text editor to fill in the (* COMPLETE THIS *) portions.
You can use this code as follows:
1. First, use a text editor to fill in the (* COMPLETE THIS *) portions.
@@
-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