+1 -1

src/bin/main.ml

reviewed

··· 55 55 let rest = Arg.(value & pos_right 0 string [] & info []) 56 56 57 57 let cmd env = 58 58 - let doc = "A shell." in 58 58 + let doc = "Mere's shell." in 59 59 let man = 60 60 [ 61 61 `S Manpage.s_description;

+1 -3

src/lib/built_ins.ml

reviewed

··· 30 30 type merry = [ `Async ] 31 31 type option = [ posix | merry ] 32 32 33 33 - let posix_to_letter = function 34 34 - | `Noclobber -> "C" 35 35 - | _ -> "" 33 33 + let posix_to_letter = function `Noclobber -> "C" | _ -> "" 36 34 37 35 let to_letters t = 38 36 let nc = if t.noclobber then posix_to_letter `Noclobber else "" in

+2 -1

src/lib/eval.ml

reviewed

··· 607 607 | Ast.VariableAtom ("-", NoAttribute) -> 608 608 let i = if ctx.interactive then "i" else "" in 609 609 expand 610 610 - ([ Ast.WordName (Built_ins.Options.to_letters ctx.options ^ i) ] :: acc) 610 610 + ([ Ast.WordName (Built_ins.Options.to_letters ctx.options ^ i) ] 611 611 + :: acc) 611 612 ctx rest 612 613 | Ast.VariableAtom (n, NoAttribute) 613 614 when Option.is_some (int_of_string_opt n) -> (