testsuite/tests/basic-private/length.mli


1
2
3
4
5
6
7
8
9
10
11
12
13

(* $Id$

A testbed file for private type abbreviation definitions.

We define a Length module to implement positive integers.

*)

type t = private int;;

val make : int -> t;;

external from : t -> int = "%identity";;