typo in untyped_evaluator
authorJim <jim.pryor@nyu.edu>
Wed, 25 Mar 2015 16:17:55 +0000 (12:17 -0400)
committerJim <jim.pryor@nyu.edu>
Wed, 25 Mar 2015 16:17:55 +0000 (12:17 -0400)
code/untyped_evaluator.ml
code/untyped_evaluator_complete.ml

index 9ca2a74..5ccecb5 100644 (file)
@@ -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 : identifier) (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
index 4a1bc36..f918d3a 100644 (file)
@@ -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 : identifier) (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