caml-list - the Caml user's mailing list
 help / color / mirror / Atom feed
From: Vincent Aravantinos <vincent.aravantinos@gmail.com>
To: Dario Teixeira <darioteixeira@yahoo.com>
Cc: caml-list@yquem.inria.fr
Subject: Re: [Caml-list] Structural subtyping problem
Date: Sun, 28 Mar 2010 19:03:08 +0200	[thread overview]
Message-ID: <49DFC32A-514B-4C2F-A871-4A4BDFE0E7DC@gmail.com> (raw)
In-Reply-To: <61102.44294.qm@web111503.mail.gq1.yahoo.com>

[-- Attachment #1: Type: text/plain, Size: 752 bytes --]

Hi, the following seems to do the trick  (?) :

Le 28 mars 10 à 18:38, Dario Teixeira a écrit :

> let rec step1 ?story () = match story with
> 	| Some s -> step2 s#title
> 	| None   -> step2 "title1"
>
>
> and step2 title =
> 	let story =
> 		object
> 			method title = title
> 			method count = 0
> 		end
> 	in step3 ~story
>
>
> and step3 ~story = match story#count with
> 	| 0 ->
>>
-		step1 ~story ()
+               step1 ~story:(story :> <title : string>) ()
> 	| 1 ->
> 		let story =
> 			object
> 				method title = "title2"
> 			end
> 		in step1 ~story ()
> 	| _ ->
> 		true

Cheers,
--
Vincent Aravantinos - PhD Student - Laboratory of Informatics of  
Grenoble
http://membres-lig.imag.fr/aravantinos/


[-- Attachment #2: Type: text/html, Size: 11464 bytes --]

  reply	other threads:[~2010-03-28 17:03 UTC|newest]

Thread overview: 6+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2010-03-28 16:38 Dario Teixeira
2010-03-28 17:03 ` Vincent Aravantinos [this message]
2010-03-28 17:07 ` [Caml-list] " Andreas Rossberg
2010-03-28 17:32 ` Stéphane Glondu
2010-03-28 19:20   ` Christophe TROESTLER
2010-03-28 20:17 ` Dario Teixeira

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=49DFC32A-514B-4C2F-A871-4A4BDFE0E7DC@gmail.com \
    --to=vincent.aravantinos@gmail.com \
    --cc=caml-list@yquem.inria.fr \
    --cc=darioteixeira@yahoo.com \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).