Commits

arkdro  committed 804baeb

remove debug print

  • Participants
  • Parent commits 871aaee

Comments (0)

Files changed (1)

File ocaml/odn/n1.ml

 
 let handle_payload = function
     | Eterm.ET_tuple [|(Eterm.ET_atom "divide"); x1; x2;|] ->
-      Trace.dbg "handle_payload" "divide\n%!";
       op_divide x1 x2
     | Eterm.ET_tuple [|(Eterm.ET_atom "subtract"); x1; x2;|] ->
-      Trace.dbg "handle_payload" "subtract\n%!";
       op_subtract x1 x2
     | Eterm.ET_tuple [|(Eterm.ET_atom "add"); x1; x2;|] ->
-      Trace.dbg "handle_payload" "add\n%!";
       op_add x1 x2
     | Eterm.ET_tuple [|(Eterm.ET_atom "multiply"); x1; x2;|] ->
-      Trace.dbg "handle_payload" "multiply\n%!";
       op_multiply x1 x2
     | Eterm.ET_tuple [|(Eterm.ET_atom "mult_list"); Eterm.ET_list lst;|] ->
-      Trace.dbg "handle_payload" "mult list\n%!";
       op_multiply_list lst
     | Eterm.ET_tuple [|(Eterm.ET_atom "sum_list"); Eterm.ET_list lst;|] ->
-      Trace.dbg "handle_payload" "sum list\n%!";
       op_sum_list lst
     | other ->
       Trace.dbg "handle_payload" "other\n%s\n%!" (Eterm.to_string other);