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

View of /tests/trunk/bugs/outputs.post-110.63/bug409.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: 1574 byte(s)
changed outputs to agree with corrected printing of inferred functor result signatures; minor edits of some tests
val it = () : unit
signature BASICACCESS =
  sig
    type ('a,'b) index
    type ('a,'b) range
    val first : ('a,'b) range -> ('a,'b) index
    val succ : ('a,'b) index -> ('a,'b) index
    val done : ('a,'b) index -> bool
  end
functor GeneralIteration(<param>: sig
                                    structure Access : <sig>
                                  end) :
                        sig val apply : (('a,'b) index -> 'c)
                                        -> ('a,'b) range -> unit end
functor GeneralArray(<param>: sig
                                structure Index : <sig>
                              end) :
                    sig
                      type array
                      structure ValueIndex : <sig>
                      structure Value : <sig>
                      val array : (unit,'a) range * 'a -> (unit,'a) array
                      val apply : (('a,'b) ValueIndex.index -> 'c)
                                  -> ('a,'b) ValueIndex.range -> unit
                    end
structure BasicArrayIndex :
  sig
    type ('a,'b) index = int * int
    type ('a,'b) range = int
    val first : ('a,'b) range -> ('a,'b) index
    val succ : ('a,'b) index -> ('a,'b) index
    val done : ('a,'b) index -> bool
  end
structure Arrays :
  sig
    type ('a,'b) array = 'b Array.array * ('a,'b) BasicArrayIndex.range
    structure ValueIndex : <sig>
    structure Value : <sig>
    val array : (unit,'a) range * 'a -> (unit,'a) array
    val apply : (('a,'b) ValueIndex.index -> 'c)
                -> ('a,'b) ValueIndex.range -> unit
  end


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