From 4ccdece184fbc0718efb15d411968b7688d53eb6 Mon Sep 17 00:00:00 2001 From: Graydon Hoare Date: Wed, 12 Jan 2011 15:13:37 -0800 Subject: Wrap long line. --- src/boot/me/resolve.ml | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'src/boot') diff --git a/src/boot/me/resolve.ml b/src/boot/me/resolve.ml index 02f862e3..68353fc9 100644 --- a/src/boot/me/resolve.ml +++ b/src/boot/me/resolve.ml @@ -642,8 +642,9 @@ let lval_base_resolving_visitor (fun _ -> log cx "looking up slot or item with ident '%s'" ident); match lookup cx (!scopes) (Ast.KEY_ident ident) with RES_failed _ -> err (Some id) "unresolved identifier '%s'" ident - | RES_ok (_, id) -> ((iflog cx (fun _ -> log cx "resolved to node id #%d" - (int_of_node id))); id) + | RES_ok (_, id) -> + ((iflog cx (fun _ -> log cx "resolved to node id #%d" + (int_of_node id))); id) in let lookup_slot_by_temp id temp = iflog cx (fun _ -> log cx "looking up temp slot #%d" (int_of_temp temp)); -- cgit v1.2.3