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

Erreurs de syntaxe 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1304 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 1997-02-25 15:46:23 +00:00
parent 867222bf4f
commit 0756477380
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
otherlibs/num/big_int.ml
View File

@ -341,18 +341,18 @@ let string_of_big_int bi =
let sys_big_int_of_string s ofs len = let sys_big_int_of_string s ofs len =
let (sign, nat) = let (sign, nat) =
match nth_char s ofs with match s.[ofs] with
`-` -> if len > 1 '-' -> if len > 1
then (-1, sys_nat_of_string 10 s (ofs+1) (len-1)) then (-1, sys_nat_of_string 10 s (ofs+1) (len-1))
else failwith "sys_big_int_of_string" else failwith "sys_big_int_of_string"
| `+` -> if len > 1 | '+' -> if len > 1
then (1, sys_nat_of_string 10 s (ofs+1) (len-1)) then (1, sys_nat_of_string 10 s (ofs+1) (len-1))
else failwith "sys_big_int_of_string" else failwith "sys_big_int_of_string"
| _ -> if len > 0 | _ -> if len > 0
then (1, sys_nat_of_string 10 s ofs len) then (1, sys_nat_of_string 10 s ofs len)
else failwith "sys_big_int_of_string" in else failwith "sys_big_int_of_string" in
{ Sign = if is_zero_nat nat 0 (length_nat nat) then 0 else sign; { sign = if is_zero_nat nat 0 (length_nat nat) then 0 else sign;
Abs_Value = nat } abs_value = nat }
let big_int_of_string s = let big_int_of_string s =
sys_big_int_of_string s 0 (String.length s) sys_big_int_of_string s 0 (String.length s)