Commits

Anonymous committed 0b80f66

+ 'dump's

Comments (0)

Files changed (2)

     value show = string_of_int
     ;
 
+    value dump = string_of_int
+    ;
+
     module Ops_
      =
       struct

src/cd_Strings.ml

             include ONEBYTE;
             include TFUNCS;
 
+            value dump : string -> string;
           end
          =
           struct
             include Onebyte;
             include TFuncs;
 
+            value dump s = "\"" ^ String.escaped s ^ "\""
+            ;
+
           end
         ;