From 85fdab43d088a172e3655fc3fe00be9c092a9369 Mon Sep 17 00:00:00 2001 From: Valentin Lorentz Date: Fri, 27 Jun 2014 16:04:50 +0200 Subject: [PATCH] Fix error format in Ljs_eval.get_prop. --- src/ljs/ljs_eval.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/ljs/ljs_eval.ml b/src/ljs/ljs_eval.ml index a4fe32a4..5b8110aa 100644 --- a/src/ljs/ljs_eval.ml +++ b/src/ljs/ljs_eval.ml @@ -35,10 +35,10 @@ let rec get_prop p store obj field = try Some (IdMap.find field props) with Not_found -> get_prop p store pvalue field end - | _ -> failwith (interp_error p + | _ -> failwith (interp_error p ( "get_prop on a non-object. The expression was (get-prop " ^ pretty_value obj - ^ " " ^ field ^ ")") + ^ " " ^ field ^ ")")) let get_obj_attr attrs attr = match attrs, attr with | { proto=proto }, S.Proto -> proto