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/primop-branch-3/compiler/ElabData/modules/moduleutil.sml
ViewVC logotype

Diff of /sml/branches/primop-branch-3/compiler/ElabData/modules/moduleutil.sml

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

revision 3350, Sat May 16 11:44:37 2009 UTC revision 3351, Sat May 16 13:24:43 2009 UTC
# Line 572  Line 572 
572                    of SIG _ =>                    of SIG _ =>
573                       (case EE.look(entities,ev)                       (case EE.look(entities,ev)
574                          of STRent nr =>                          of STRent nr =>
575                              let val i = MU.strId2(s,nr)                              let val i = strId2(s,nr)
576                              in case EPC.lookStrEntPath (epc, i)                              in case EPC.lookStrEntPath (epc, i)
577                                   of SOME _ => ()                                   of SOME _ => ()
578                                    | _ => (EPC.bindStrEntVar (epc,i,ev);                                    | _ => (EPC.bindStrEntVar (epc,i,ev);
# Line 589  Line 589 
589                    of FSIG _ =>                    of FSIG _ =>
590                       (case EE.look(entities,ev)                       (case EE.look(entities,ev)
591                          of FCTent nr =>                          of FCTent nr =>
592                              let val i = MU.fctId2(s,nr)                              let val i = fctId2(s,nr)
593                               in EPC.bindFctEntVar(epc,i,ev)                               in EPC.bindFctEntVar(epc,i,ev)
594                              end                              end
595                           | ERRORent => ()                           | ERRORent => ()

Legend:
Removed from v.3350  
changed lines
  Added in v.3351

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