summaryrefslogtreecommitdiff
path: root/stdlib/stack.ml
diff options
context:
space:
mode:
authorNo author <no_author@ocaml.org>1995-06-15 16:08:54 +0000
committerNo author <no_author@ocaml.org>1995-06-15 16:08:54 +0000
commit77b1c8b89fd8940a63b17c41eb37161e5d159831 (patch)
tree43dbfb3982d9166b717199cb8faa97bdce30add7 /stdlib/stack.ml
parentba79d4bd1f01a70b892c69f6a5e6e86714a023d6 (diff)
downloadocaml-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.ml18
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