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/bug1391.1.out
ViewVC logotype

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2462 - (download) (annotate)
Sat Apr 28 21:14:48 2007 UTC (12 years, 5 months ago) by gkuan
File size: 679 byte(s)
post-110.63 elab/flint revision regression tests and outputs
val it = () : unit
signature SIG1 =
  sig
    datatype ('a,'b) dt = C of ('a,'b) dt
  end
signature SIG2 =
  sig
    structure Struct1 :
      sig
        datatype ('a,'b) dt = C of ('a,'b) dt
      end
    datatype dt = datatype Struct1.dt
  end
signature SIG3 =
  sig
    structure Struct2 :
      sig
        structure Struct1 : <sig>
        datatype dt = datatype Struct1.dt
      end
    val f : (unit,unit) Struct2.Struct1.dt -> unit
  end
functor Fun(<param>: sig
                       structure Struct2 : <sig>
                     end) :
           sig
             structure Struct2 : <sig>
             val f : (unit,unit) Struct2.Struct1.dt -> unit
           end


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