Return-Path: <john.harrison-request@uk.ac.cam.cl>
Delivery-Date: 
Received: from ted.cs.uidaho.edu (no rfc931) by swan.cl.cam.ac.uk 
          with SMTP (PP-6.4) outside ac.uk; Tue, 2 Feb 1993 15:57:47 +0000
Received: by ted.cs.uidaho.edu (16.6/1.34) id AA02625;
          Tue, 2 Feb 93 07:36:16 -0800
Sender: info-hol-request@edu.uidaho.cs.ted
Errors-To: info-hol-request@edu.uidaho.cs.ted
Precedence: bulk
Received: from air52.larc.nasa.gov by ted.cs.uidaho.edu (16.6/1.34) id AA02620;
          Tue, 2 Feb 93 07:36:10 -0800
Received: by air52.larc.nasa.gov (5.65.1/lanleaf2.4) id AA23594;
          Tue, 2 Feb 93 10:38:47 -0500
Message-Id: <9302021538.AA23594@air52.larc.nasa.gov>
Date: Tue, 2 Feb 93 10:38:47 -0500
From: Victor "A." Carreno <vac@gov.nasa.larc.air16>
To: info-hol@edu.uidaho.cs.ted
Subject: sticky types
Cc: vac@gov.nasa.larc.air16


Hello to all:

I have never used sticky types. I thought it was not elegant. After writing
types over and over again, I thought I'll give it a go. But it appears the
sticky does not want to stick. 

Any hints on what I am doing wrong?

Victor.

#set_sticky_type(`A`,":num -> bool");;
() : void

#"A t";;
Indeterminate types:  "A:?1 -> ?2"

evaluation failed     types indeterminate in quotation

#sticky_list();;
[(`A`, ":num -> bool"); (`B`, ":num -> bool")] : (string # type) list

#set_flag (`sticky`,true);;
false : bool

#"(A:num -> bool) t";;
"A t" : term

#"A t";;
Indeterminate types:  "A:num -> ?"

evaluation failed     types indeterminate in quotation

#sticky_list();;
[(`A`, ":num -> bool");
 (`B`, ":num -> bool");
 (`t`, ":num")]
: (string # type) list