From mboxrd@z Thu Jan  1 00:00:00 1970
Received: (from weis@localhost) by pauillac.inria.fr (8.7.6/8.7.3) id IAA22024 for caml-redistribution; Mon, 12 Apr 1999 08:42:48 +0200 (MET DST)
Received: from nez-perce.inria.fr (nez-perce.inria.fr [192.93.2.78]) by pauillac.inria.fr (8.7.6/8.7.3) with ESMTP id XAA06284 for <caml-list@pauillac.inria.fr>; Fri, 9 Apr 1999 23:12:37 +0200 (MET DST)
Received: from miss.wu-wien.ac.at (miss.wu-wien.ac.at [137.208.107.17])
	by nez-perce.inria.fr (8.8.7/8.8.7) with ESMTP id XAA29273
	for <caml-list@inria.fr>; Fri, 9 Apr 1999 23:12:35 +0200 (MET DST)
Received: (from mottl@localhost)
	by miss.wu-wien.ac.at (8.9.0/8.9.0) id XAA23222
	for caml-list@inria.fr; Fri, 9 Apr 1999 23:12:30 +0200 (MET DST)
From: Markus Mottl <mottl@miss.wu-wien.ac.at>
Message-Id: <199904092112.XAA23222@miss.wu-wien.ac.at>
Subject: stack module with "top"
To: caml-list@inria.fr (OCAML)
Date: Fri, 9 Apr 1999 23:12:29 +0100 (MET DST)
X-Mailer: ELM [version 2.4 PL21]
MIME-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 8bit
Sender: weis

Hello,

Just a very small feature request: wouldn't it be nice to have a
"top"-function in the standard stack-module?

E.g.:

let top s =
  match s.c with
    hd::_ -> hd
  | []    -> raise Empty

Best regards,
Markus Mottl

-- 
Markus Mottl, mottl@miss.wu-wien.ac.at, http://miss.wu-wien.ac.at/~mottl