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/Semant/modules/module-plists.sml
ViewVC logotype

Diff of /sml/branches/primop-branch-3/compiler/Semant/modules/module-plists.sml

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

revision 2560, Wed May 16 22:24:49 2007 UTC revision 2561, Thu May 17 03:41:11 2007 UTC
# Line 2  Line 2 
2   *   *
3   * (C) 2001 Lucent Technologies, Bell Labs   * (C) 2001 Lucent Technologies, Bell Labs
4   *)   *)
5  structure ModulePropLists = struct  
6    structure ModulePropLists =
7    struct
8    
9      val { getFn = strEntityLty, setFn = setStrEntityLty, ... } = let      val { getFn = strEntityLty, setFn = setStrEntityLty, ... } = let
10          fun holder (e: Modules.strEntity) = #properties e          fun holder (e: Modules.strEntity) = #properties e
# Line 38  Line 40 
40      in      in
41          PropList.newProp (holder, init)          PropList.newProp (holder, init)
42      end      end
43  end  
44    end (* structure ModulePropLists *)

Legend:
Removed from v.2560  
changed lines
  Added in v.2561

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