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/tools/make/tool.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/tools/make/tool.sml

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

revision 872, Fri Jul 6 22:17:03 2001 UTC revision 873, Mon Jul 9 15:26:20 2001 UTC
# Line 17  Line 17 
17    
18          fun err m = raise ToolError { tool = tool, msg = m }          fun err m = raise ToolError { tool = tool, msg = m }
19    
20          fun rule { spec, context, native2pathmaker, defaultClassOf } = let          fun rule { spec, context, native2pathmaker, defaultClassOf, sysinfo } = let
21              val { name = str, mkpath, opts = too, ... } : spec = spec              val { name = str, mkpath, opts = too, ... } : spec = spec
22              val (tclass, topts, mopts) =              val (tclass, topts, mopts) =
23                  case too of                  case too of

Legend:
Removed from v.872  
changed lines
  Added in v.873

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