Permalink
Browse files

remove $Id markers

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@14620 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
  • Loading branch information...
1 parent ec52bae commit 3e9a3ad147cf42155a6581b0de077d61a8d4776b Damien Doligez committed Apr 17, 2014
@@ -11,8 +11,6 @@
(* *)
(***********************************************************************)
-(* $Id$ *)
-
let error_when_null_denominator_flag = ref true;;
let normalize_ratio_flag = ref false;;
@@ -11,8 +11,6 @@
(* *)
(***********************************************************************)
-(* $Id$ *)
-
val error_when_null_denominator_flag : bool ref
val normalize_ratio_flag : bool ref
val normalize_ratio_when_printing_flag : bool ref
@@ -11,8 +11,6 @@
(* *)
(***********************************************************************)
-(* $Id$ *)
-
open Arith_flags;;
let get_error_when_null_denominator () =
@@ -11,8 +11,6 @@
(* *)
(***********************************************************************)
-(* $Id$ *)
-
(** Flags that control rational arithmetic. *)
val arith_status: unit -> unit
View
@@ -11,8 +11,6 @@
(* *)
(***********************************************************************)
-(* $Id$ *)
-
open Int_misc
open Nat
@@ -11,8 +11,6 @@
(* *)
(***********************************************************************)
-(* $Id$ *)
-
(** Operations on arbitrary-precision integers.
Big integers (type [big_int]) are signed integers of arbitrary size.
@@ -11,8 +11,6 @@
(* *)
(***********************************************************************)
-(* $Id$ *)
-
(* Some extra operations on integers *)
let rec gcd_int i1 i2 =
@@ -11,8 +11,6 @@
(* *)
(***********************************************************************)
-(* $Id$ *)
-
(* Some extra operations on integers *)
val gcd_int: int -> int -> int
View
@@ -11,8 +11,6 @@
(* *)
(***********************************************************************)
-(* $Id$ *)
-
open Int_misc
type nat;;
View
@@ -11,8 +11,6 @@
(* *)
(***********************************************************************)
-(* $Id$ *)
-
(* Module [Nat]: operations on natural numbers *)
type nat
View
@@ -11,8 +11,6 @@
(* *)
(***********************************************************************)
-(* $Id$ *)
-
open Int_misc
open Nat
open Big_int
View
@@ -11,8 +11,6 @@
(* *)
(***********************************************************************)
-(* $Id$ *)
-
(** Operation on arbitrary-precision numbers.
Numbers (type [num]) are arbitrary-precision rational numbers,
View
@@ -11,8 +11,6 @@
(* *)
(***********************************************************************)
-(* $Id$ *)
-
(** Operation on rational numbers.
This module is used to support the implementation of {!Num} and

0 comments on commit 3e9a3ad

Please sign in to comment.