From f444e1009ca1e0a55bc058d05955fbe3dd39bcea Mon Sep 17 00:00:00 2001 From: Jim Date: Wed, 25 Mar 2015 12:17:55 -0400 Subject: [PATCH] typo in untyped_evaluator --- code/untyped_evaluator.ml | 2 +- code/untyped_evaluator_complete.ml | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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 diff --git a/code/untyped_evaluator_complete.ml b/code/untyped_evaluator_complete.ml index 4a1bc36b..f918d3a4 100644 --- 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 -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 -- 2.11.0