Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

comment out useless code in Str 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@10375 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Maxence Guesdon 2010-05-05 14:36:41 +00:00
parent 1b5c521bb7
commit ef925ce233
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
otherlibs/str/str.ml
View File

@ -29,7 +29,7 @@ module Charset =
struct struct
type t = string (* of length 32 *) type t = string (* of length 32 *)
let empty = String.make 32 '\000' (*let empty = String.make 32 '\000'*)
let full = String.make 32 '\255' let full = String.make 32 '\255'
let make_empty () = String.make 32 '\000' let make_empty () = String.make 32 '\000'
@ -44,9 +44,9 @@ module Charset =
let singleton c = let singleton c =
let s = make_empty () in add s c; s let s = make_empty () in add s c; s
let range c1 c2 = (*let range c1 c2 =
let s = make_empty () in add_range s c1 c2; s let s = make_empty () in add_range s c1 c2; s
*)
let complement s = let complement s =
let r = String.create 32 in let r = String.create 32 in
for i = 0 to 31 do for i = 0 to 31 do