File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff line change @@ -21,8 +21,11 @@ let () =
2121 let args = Sys. get_argv () in
2222 let ss, state = Run. default_state () in
2323 match args |> Array. to_list with
24- | [_; filename] -> let _state = Run. run_file filename (ss, state) in ()
2524 | [_] ->
2625 repl state ss
26+ | _ ::filenames ->
27+ let _ = List. fold_left ~init: (ss, state) ~f: (fun s f -> Run. run_file f s) filenames
28+ in
29+ ()
2730 | _ ->
2831 printf " Usage: 'rustscript <filename>' or just 'rustscript' for REPL\n "
Original file line number Diff line number Diff line change @@ -220,7 +220,7 @@ let gt(a, b) = a > b
220220let inspect(n) = inspect__builtin(n)
221221let print(n) = print__builtin(n)
222222let println(n) = println__builtin(n)
223- let scanln(n ) = scanln__builtin(n )
223+ let scanln() = scanln__builtin()
224224let to_string(n) = to_string__builtin(n)
225225let string_to_num(n) = string_to_num__builtin(n)
226226let string_to_int(n) = string_to_int__builtin(n)
You can’t perform that action at this time.
0 commit comments