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

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

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

revision 309, Wed Jun 2 03:21:57 1999 UTC revision 310, Wed Jun 2 07:28:27 1999 UTC
# Line 303  Line 303 
303              val targets = map mkTarget targetfiles              val targets = map mkTarget targetfiles
304              fun runcmd () = let              fun runcmd () = let
305                  val cmd = concat [command NONE, " ", f]                  val cmd = concat [command NONE, " ", f]
306                  val _ = Say.vsay (concat ["[", cmd, "]\n"])                  val _ = Say.vsay ["[", cmd, "]\n"]
307              in              in
308                  if OS.Process.system cmd = OS.Process.success then ()                  if OS.Process.system cmd = OS.Process.success then ()
309                  else raise ToolError { tool = tool, msg = cmd }                  else raise ToolError { tool = tool, msg = cmd }

Legend:
Removed from v.309  
changed lines
  Added in v.310

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