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

Diff of /sml/trunk/src/cm/stable/stabilize.sml

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

revision 317, Fri Jun 4 09:00:10 1999 UTC revision 318, Mon Jun 7 09:32:09 1999 UTC
# Line 397  Line 397 
397    
398          exception Format          exception Format
399    
400            val pcmode = #pcmode (#param gp)
401          val policy = #fnpolicy (#param gp)          val policy = #fnpolicy (#param gp)
402          val spath = FilenamePolicy.mkStablePath policy group          val spath = FilenamePolicy.mkStablePath policy group
403          val _ = Say.vsay ["[checking stable ", gname, "]\n"]          val _ = Say.vsay ["[checking stable ", gname, "]\n"]
# Line 497  Line 498 
498    
499          val r_abspath = let          val r_abspath = let
500              fun r_abspath_raw () =              fun r_abspath_raw () =
501                  case AbsPath.unpickle (r_list r_string ()) of                  case AbsPath.unpickle pcmode (r_list r_string ()) of
502                      SOME p => p                      SOME p => p
503                    | NONE => raise Format                    | NONE => raise Format
504              fun unUAP (UAP x) = x              fun unUAP (UAP x) = x

Legend:
Removed from v.317  
changed lines
  Added in v.318

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