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

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

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

revision 285, Wed May 19 23:31:25 1999 UTC revision 286, Fri May 21 07:47:16 1999 UTC
# Line 10  Line 10 
10    in    in
11      structure CM = struct      structure CM = struct
12    
13          fun parse s = let          fun parse cfg s = let
14              val c = AbsPath.cwdContext ()              val c = AbsPath.cwdContext ()
15              val p = AbsPath.native { context = AbsPath.cwdContext (),              val p = AbsPath.native { context = AbsPath.cwdContext (),
16                                       spec = s }                                       spec = s }
17          in          in
18              CMParse.parse p              CMParse.parse cfg p
19          end          end
20    
21            val configuration = Primitive.configuration
22      end      end
23    
24      structure CMB = struct      structure CMB = struct

Legend:
Removed from v.285  
changed lines
  Added in v.286

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