From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: X-Original-To: caml-list@sympa.inria.fr Delivered-To: caml-list@sympa.inria.fr Received: from mail4-relais-sop.national.inria.fr (mail4-relais-sop.national.inria.fr [192.134.164.105]) by sympa.inria.fr (Postfix) with ESMTPS id 21DBD7EDC2 for ; Wed, 21 Nov 2012 02:08:03 +0100 (CET) Received-SPF: None (mail4-smtp-sop.national.inria.fr: no sender authenticity information available from domain of bobzhang1988@gmail.com) identity=pra; client-ip=209.85.223.182; receiver=mail4-smtp-sop.national.inria.fr; envelope-from="bobzhang1988@gmail.com"; x-sender="bobzhang1988@gmail.com"; x-conformance=sidf_compatible Received-SPF: Pass (mail4-smtp-sop.national.inria.fr: domain of bobzhang1988@gmail.com designates 209.85.223.182 as permitted sender) identity=mailfrom; client-ip=209.85.223.182; receiver=mail4-smtp-sop.national.inria.fr; envelope-from="bobzhang1988@gmail.com"; x-sender="bobzhang1988@gmail.com"; x-conformance=sidf_compatible; x-record-type="v=spf1" Received-SPF: None (mail4-smtp-sop.national.inria.fr: no sender authenticity information available from domain of postmaster@mail-ie0-f182.google.com) identity=helo; client-ip=209.85.223.182; receiver=mail4-smtp-sop.national.inria.fr; envelope-from="bobzhang1988@gmail.com"; x-sender="postmaster@mail-ie0-f182.google.com"; x-conformance=sidf_compatible X-IronPort-Anti-Spam-Filtered: true X-IronPort-Anti-Spam-Result: An0CAAkprFDRVd+2kWdsb2JhbABEwkoIFg4BAQEBCQkNBxIpgmUBGx4DEhBdAREBBQEiGxOHXwEDD51pgmmMMYFugQqFCAoZJw1ZiHUBBQyRCgOIXI0ijmEWKYQu X-IronPort-AV: E=Sophos;i="4.83,288,1352070000"; d="scan'208";a="163210207" Received: from mail-ie0-f182.google.com ([209.85.223.182]) by mail4-smtp-sop.national.inria.fr with ESMTP/TLS/RC4-SHA; 21 Nov 2012 02:07:54 +0100 Received: by mail-ie0-f182.google.com with SMTP id s9so5173186iec.27 for ; Tue, 20 Nov 2012 17:07:53 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113; h=mime-version:date:message-id:subject:from:to:content-type; bh=FtKO0eHTYe95Kqb3KPdNNpOypbh35OBXqKuOgGsnNwc=; b=QHStWxvJUTotmU6oGXkxSRhSg6sZXQ1GBIR/aOSStLZPmHa3Sy8E4nAZQqHHfLRc1h OGC8OK3FWILJCx2p2CLRdGLJzQJdLdEUz/6gs12+sQY4wRQHWS8qLO+CydlysChhdmlP pmmSz+7NVDnHxSDMUSQ+ruilOA/DgUSf+Y54oD7lEP09mOArVgBqW3DT8duNKwX+3vEq rFHo5PFfquoB+teVkVl+QWCqPoD6+r7X5MRhhC7MUjxlKnIhO0xiCUKptP4kEXlwojgq ELAr4Nt9pegwKNz4dfoB0TZ8eNt6UzAZlywf+mjzjGcZ7IXatmbvsAkapA38h9ehQCbU oknA== MIME-Version: 1.0 Received: by 10.42.51.142 with SMTP id e14mr11692262icg.2.1353460073468; Tue, 20 Nov 2012 17:07:53 -0800 (PST) Received: by 10.64.17.4 with HTTP; Tue, 20 Nov 2012 17:07:53 -0800 (PST) Date: Tue, 20 Nov 2012 20:07:53 -0500 Message-ID: From: bob zhang To: Caml List Content-Type: text/plain; charset=ISO-8859-1 Subject: [Caml-list] How to add a hook to Stream.junk? Hi List, Does anyone know any trick to add a hook to Stream.junk, I have tried different ways, but did not find any solution, yet I want to trigger an action each time when I junk a token from the stream. (copy the whole file from stdlib is fine, but I don't know how to make the type checker happy :-() -- Regards -- Bob