haskal
/
utop
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix a typo.

This commit is contained in:
Matthias Andreas Benkard 2013-04-03 22:02:56 +02:00
parent 4db7da7a4c
commit 022a271565
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/lib/uTop_main.ml
View File

@ -807,7 +807,7 @@ module Emacs(M : sig end) = struct
| None -> | None ->
let success = process_checked_phrase phrase in let success = process_checked_phrase phrase in
if success then if success then
loop phrases loop more_phrases
else else
() ()
end end
@ -854,7 +854,7 @@ module Emacs(M : sig end) = struct
loop_commands history_prev history_next loop_commands history_prev history_next
else else
loop () loop ()
| Some ("input-multi", arg) -> | Some ("input-multi", _) ->
let continue = let continue =
try try
process_input_multi (); process_input_multi ();