diff options
author | No author <no_author@ocaml.org> | 1995-06-15 16:08:54 +0000 |
---|---|---|
committer | No author <no_author@ocaml.org> | 1995-06-15 16:08:54 +0000 |
commit | 77b1c8b89fd8940a63b17c41eb37161e5d159831 (patch) | |
tree | 43dbfb3982d9166b717199cb8faa97bdce30add7 /stdlib/stack.ml | |
parent | ba79d4bd1f01a70b892c69f6a5e6e86714a023d6 (diff) | |
download | ocaml-unlabeled-1.2.2.tar.gz |
This commit was manufactured by cvs2svn to create branchunlabeled-1.2.2
'unlabeled-1.2.2'.
git-svn-id: http://caml.inria.fr/svn/ocaml/branches/unlabeled-1.2.2@37 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'stdlib/stack.ml')
-rw-r--r-- | stdlib/stack.ml | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/stdlib/stack.ml b/stdlib/stack.ml deleted file mode 100644 index 8b1710cdd3..0000000000 --- a/stdlib/stack.ml +++ /dev/null @@ -1,18 +0,0 @@ -type 'a t = { mutable c : 'a list } - -exception Empty - -let new () = { c = [] } - -let clear s = s.c <- [] - -let push x s = s.c <- x :: s.c - -let pop s = - match s.c with - hd::tl -> s.c <- tl; hd - | [] -> raise Empty - -let length s = List.length s.c - -let iter f s = List.iter f s.c |