[hcoop/debian/mlton.git] / regression / command-line.sml

(* print out the command name and all of the command line arguments on separate
 lines *)

val _ =
   (print(CommandLine.name()) ;
    print "\n" ;
    app (fn s => (print s ; print "\n")) (CommandLine.arguments()))
Commit	Line	Data
7f918cf1 CE	1	(* print out the command name and all of the command line arguments on separate
	2	lines *)
	3
	4	val _ =
	5	(print(CommandLine.name()) ;
	6	print "\n" ;
	7	app (fn s => (print s ; print "\n")) (CommandLine.arguments()))