Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Annotation of /sml/trunk/src/system/smlnj/cm/fetch-cm.sml
ViewVC logotype

Annotation of /sml/trunk/src/system/smlnj/cm/fetch-cm.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 805 - (view) (download)

1 : blume 805 (*
2 :     * Defining the top-level structure CM by fetching it from CM0.
3 :     *
4 :     * (C) 2000 Lucent Technologies, Bell Laboratories
5 :     *
6 :     * Author: Matthias Blume (blume@kurims.kyoto-u.ac.jp)
7 :     *)
8 :     local
9 :     (* These two are here just pro-forma to prevent CM from optimizing
10 :     * the two libraries away before they can be used for pickling.
11 :     * See the comment in full.cm. *)
12 :     structure SrcPath = SrcPath (* ref to $cm/paths/srcpath-lib.cm *)
13 :     structure String = String (* ref to $/basis.cm *)
14 :     in
15 :     structure CM :> CM = CM0.CM
16 :     end
17 :    

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