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/tests.obsolete/bug159.sml
ViewVC logotype

View of /tests/trunk/bugs/tests.obsolete/bug159.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2460 - (download) (annotate)
Sat Apr 28 20:18:10 2007 UTC (12 years, 2 months ago) by gkuan
File size: 565 byte(s)
(* bug 159 *)
(* caused Compiler bug: TypesUtil.lookTycPath while printing type of con ID *)
signature SYMTAB =
    sig
        type ident
    end

signature LEX =
    sig
        structure Symtab : SYMTAB

        datatype lexeme =
            ID of Symtab.ident
          | DELIM
    end

structure Symtab =
    struct
        type ident = string
    end

functor lex( symtab : SYMTAB ) =
    struct
        structure Symtab : SYMTAB = symtab
        datatype lexeme =
            ID of Symtab.ident
          | DELIM
    end

structure Lex : LEX = lex( Symtab )

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