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

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

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

revision 734, Sun Nov 19 05:27:41 2000 UTC revision 735, Tue Nov 21 12:15:55 2000 UTC
# Line 299  Line 299 
299                  val _ = Say.vsay ["[scanning ", SrcPath.descr group, "]\n"]                  val _ = Say.vsay ["[scanning ", SrcPath.descr group, "]\n"]
300    
301                  val context = SrcPath.dir group                  val context = SrcPath.dir group
302                    val local_registry = CMSemant.newToolRegistry ()
303    
304                  fun work stream = let                  fun work stream = let
305                      val source =                      val source =
# Line 348  Line 349 
349                                          { name = name, mkpath = mkpath,                                          { name = name, mkpath = mkpath,
350                                            class = c, tooloptions = oto,                                            class = c, tooloptions = oto,
351                                            group = (group, (p1, p2)),                                            group = (group, (p1, p2)),
352                                              local_registry = local_registry,
353                                            context = context }                                            context = context }
354    
355                      (* Build the argument for the lexer; the lexer's local                      (* Build the argument for the lexer; the lexer's local

Legend:
Removed from v.734  
changed lines
  Added in v.735

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