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

SCM Repository

[smlnj] Diff of /sml/branches/SMLNJ/src/compiler/Semant/modules/moduleutil.sml
ViewVC logotype

Diff of /sml/branches/SMLNJ/src/compiler/Semant/modules/moduleutil.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 166, Sat Nov 7 20:11:41 1998 UTC revision 167, Sat Nov 7 20:11:41 1998 UTC
# Line 205  Line 205 
205    
206  fun mkTyc(sym, sp, SIG{elements,...}, sInfo) =  fun mkTyc(sym, sp, SIG{elements,...}, sInfo) =
207        (case getSpec (elements, sym)        (case getSpec (elements, sym)
208          of TYCspec{spec,entVar=ev,scope} =>          of TYCspec{spec,entVar=ev,repl,scope} =>
209               (case sInfo               (case sInfo
210                 of SIGINFO ep =>                 of SIGINFO ep =>
211                      T.PATHtyc{arity=TU.tyconArity spec, entPath=rev(ev::ep),                      T.PATHtyc{arity=TU.tyconArity spec, entPath=rev(ev::ep),
# Line 474  Line 474 
474  end (* structure ModuleUtil *)  end (* structure ModuleUtil *)
475    
476  (*  (*
477   * $Log$   * $Log: moduleutil.sml,v $
478     * Revision 1.3  1998/05/23 14:10:10  george
479     *   Fixed RCS keyword syntax
480     *
481   *)   *)

Legend:
Removed from v.166  
changed lines
  Added in v.167

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