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/compiler/FLINT/kernel/lambdavar.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/FLINT/kernel/lambdavar.sml

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

revision 732, Mon Nov 13 21:59:12 2000 UTC revision 733, Fri Nov 17 05:13:45 2000 UTC
# Line 7  Line 7 
7  local  local
8    
9  structure S = Symbol  structure S = Symbol
10  structure IM = Intmap  structure IM = IntHashTable
11    
12  in  in
13    
# Line 16  Line 16 
16  val varcount = ref 0  val varcount = ref 0
17    
18  exception NoLvarName  exception NoLvarName
19  val lvarNames : string IM.intmap = IM.new(32, NoLvarName)  val lvarNames : string IM.hash_table = IM.mkTable(32, NoLvarName)
20  val name = IM.map lvarNames  val name = IM.lookup lvarNames
21  val giveLvarName = IM.add lvarNames  val giveLvarName = IM.insert lvarNames
22    
23  type lvar = int      (* lambda variable id number *)  type lvar = int      (* lambda variable id number *)
24    

Legend:
Removed from v.732  
changed lines
  Added in v.733

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