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/instantiate.sml
ViewVC logotype

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

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

revision 23, Thu Mar 12 00:49:56 1998 UTC revision 24, Thu Mar 12 00:49:58 1998 UTC
# Line 1534  Line 1534 
1534            val arg_tks = map #2 arg_eps            val arg_tks = map #2 arg_eps
1535            val res_tks = map #2 res_eps            val res_tks = map #2 res_eps
1536    
1537         in LT.tkc_fun(arg_tks, LT.tkc_seq res_tks)         in LT.tkc_fun(LT.tkc_seq arg_tks, LT.tkc_seq res_tks)
1538        end        end
1539    
1540    | getTkFct _ = LT.tkc_fun([], LT.tkc_seq [])    | getTkFct _ = LT.tkc_fun(LT.tkc_seq [], LT.tkc_seq [])
1541    
1542  (*** the generic instantiation function ***)  (*** the generic instantiation function ***)
1543  and instGeneric{sign, entEnv, instKind, rpath, region,  and instGeneric{sign, entEnv, instKind, rpath, region,

Legend:
Removed from v.23  
changed lines
  Added in v.24

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