···137137 | _ -> None
138138139139 let execute printval ?pp_code ?highlight_location pp_answer s =
140140+ let s =
141141+ let l = String.length s in
142142+ if String.sub s (l-2) 2 = ";;" then s else s ^ ";;" in
140143 let lb = Lexing.from_function (refill_lexbuf s (ref 0) pp_code) in
141144 (try
142145 while true do