Commits

UENISHI Kota  committed 0c35e71

hoge hoge

  • Participants
  • Parent commits 3aec550

Comments (0)

Files changed (1)

File termreader.ml

     begin match result with
       | Bert.Ok(term, remain)->
 	  Bert.print_erlterm term;
-	  print_endline "\nall read.";
+	  print_endline "\n==all read.";
       | _->
-	  print_endline "\nfailed in decoding.";
+	  print_endline "\n==failed in decoding.";
     end;;
 
 let _ = 
   let argv = Array.to_list Sys.argv in
+    print_string "==";
     match List.tl argv with
-      | [] -> [print_termfile "termwriter.bert"];
-      | list -> List.map print_termfile list;;
+      | [] -> 
+	  print_string "no files specified - ";
+	  [print_termfile "termwriter.bert"];
+      | list -> 
+	  List.map print_termfile list;;