Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] View of /tests/trunk/bugs/outputs.post-110.63/bug619.out
ViewVC logotype

View of /tests/trunk/bugs/outputs.post-110.63/bug619.out

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2567 - (download) (annotate)
Thu May 17 22:28:34 2007 UTC (12 years, 4 months ago) by dbm
File size: 913 byte(s)
changed outputs to agree with corrected printing of inferred functor result signatures; minor edits of some tests
val it = () : unit
signature SIG = sig exception Error of string end
functor F(X: sig exception Error of string end) :
         sig
           exception Error of string
           type Exp
           type Val
           val extend_one : ''a * 'b * (''a -> 'b) -> ''a -> 'b
           val extend_env : ''a list * 'b list * (''a -> 'b) -> ''a -> 'b
           val meaning : Exp -> 'a -> (Val -> unit) -> unit
           val meaninglis : Exp list -> 'a -> (Val list -> unit) -> unit
         end
structure A : SIG
structure B :
  sig
    exception Error of string
    datatype Exp = APP of Exp * Exp list
    datatype Val = FUNC of Val list -> (Val -> unit) -> unit
    val extend_one : ''a * 'b * (''a -> 'b) -> ''a -> 'b
    val extend_env : ''a list * 'b list * (''a -> 'b) -> ''a -> 'b
    val meaning : Exp -> 'a -> (Val -> unit) -> unit
    val meaninglis : Exp list -> 'a -> (Val list -> unit) -> unit
  end


root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0