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/trunk/src/cm/compile/generic.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/compile/generic.sml

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

revision 300, Thu May 27 22:01:36 1999 UTC revision 301, Fri May 28 09:43:39 1999 UTC
# Line 49  Line 49 
49                  loop i l                  loop i l
50              end              end
51    
52          fun bnode (gp: GP.info) = let          fun bnode (gp: GP.info) n = let
53    
54              val (glob, loc) = let              val (glob, loc) = let
55                  val globf = farbnode gp                  val globf = farbnode gp
# Line 69  Line 69 
69                      CT.dostable (bininfo, mkenv, gp)                      CT.dostable (bininfo, mkenv, gp)
70                  end                  end
71          in          in
72              bn              (* don't eta-reduce this -- it'll lead to an infinite loop! *)
73                bn n
74          end          end
75    
76          and farbnode gp (f, n) =          and farbnode gp (f, n) =
# Line 91  Line 92 
92              end              end
93    
94              val { smlinfo, localimports = li, globalimports = gi } = n              val { smlinfo, localimports = li, globalimports = gi } = n
95              val e = loc (glob (SOME (CT.pervasive gp)) gi) li              val desc = SmlInfo.fullSpec smlinfo
96                val pe = SOME (CT.pervasive gp)
97                val ge = glob pe gi
98                val e = loc ge li
99          in          in
100              case e of              case e of
101                  NONE => NONE                  NONE => NONE

Legend:
Removed from v.300  
changed lines
  Added in v.301

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