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

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

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

revision 642, Thu May 11 07:30:29 2000 UTC revision 643, Fri May 12 08:29:15 2000 UTC
# Line 167  Line 167 
167    
168      fun file_native (s, d) = SrcPath.native { context = d, spec = s }      fun file_native (s, d) = SrcPath.native { context = d, spec = s }
169      fun file_standard (gp: GeneralParams.info) (s, d, err) =      fun file_standard (gp: GeneralParams.info) (s, d, err) =
170          SrcPath.standard (#pcmode (#param gp)) { context = d, spec = s }          SrcPath.standard (#pcmode (#param gp))
171          handle SrcPath.BadAnchor "" =>                           { context = d, spec = s, err = err }
                (err "invalid empty anchor in path name"; file_native (s, d))  
              | SrcPath.BadAnchor a =>  
                (err (concat ["invalid anchor `", a, "' in path name"]);  
                 file_native (s, d))  
   
172      fun cm_symbol s = s      fun cm_symbol s = s
173      fun cm_version (s, error) =      fun cm_version (s, error) =
174          case Version.fromString s of          case Version.fromString s of

Legend:
Removed from v.642  
changed lines
  Added in v.643

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