X-Git-Url: http://lambda.jimpryor.net/git/gitweb.cgi?p=lambda.git;a=blobdiff_plain;f=code%2Funtyped_evaluator.ml;h=5ccecb50296b578f490b590f10dc97f85ec984a4;hp=9ca2a743eb8d18bc39867bf442421b4bbbb6c964;hb=30e80630a4bdb0ec23dd7098f735b060f6a3de0f;hpb=7496cdc3be203a28dbe1adbabb84fd63cc022cbe

diff --git a/code/untyped_evaluator.ml b/code/untyped_evaluator.ml
index 9ca2a743..5ccecb50 100644
--- a/code/untyped_evaluator.ml
+++ b/code/untyped_evaluator.ml
@@ -61,7 +61,7 @@ and env = (identifier * term) list
 (* 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