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