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 364, Fri Jul 2 07:33:12 1999 UTC revision 367, Sat Jul 3 04:59:01 1999 UTC
# Line 446  Line 446 
446          val grpSrcInfo = (errcons, anyerrors)          val grpSrcInfo = (errcons, anyerrors)
447          val gdescr = SrcPath.descr group          val gdescr = SrcPath.descr group
448          fun error l = EM.errorNoFile (errcons, anyerrors) SM.nullRegion          fun error l = EM.errorNoFile (errcons, anyerrors) SM.nullRegion
449              EM.COMPLAIN (concat (gdescr :: ": " :: l)) EM.nullErrorBody              EM.COMPLAIN (concat ("(stable) " :: gdescr :: ": " :: l))
450                EM.nullErrorBody
451    
452          exception Format          exception Format
453    
# Line 553  Line 554 
554              end              end
555    
556              fun r_abspath () =              fun r_abspath () =
557                  case SrcPath.unpickle pcmode (r_list r_string (), group) of                  SrcPath.unpickle pcmode (r_list r_string (), group)
558                      SOME p => p                  handle SrcPath.Format => raise Format
559                    | NONE => raise Format                       | SrcPath.BadAnchor a =>
560                           (error ["configuration anchor \"", a, "\" undefined"];
561                            raise Format)
562    
563    
564              val r_symbol = let              val r_symbol = let
565                  fun r_symbol_raw () = let                  fun r_symbol_raw () = let

Legend:
Removed from v.364  
changed lines
  Added in v.367

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