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

Diff of /sml/trunk/src/cm/smlfile/smlinfo.sml

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

revision 432, Fri Sep 10 05:44:08 1999 UTC revision 433, Mon Sep 13 06:57:29 1999 UTC
# Line 221  Line 221 
221                   * the overhead of counting will make a noticeable                   * the overhead of counting will make a noticeable
222                   * difference.) *)                   * difference.) *)
223                  val ntrees = countParseTrees ()                  val ntrees = countParseTrees ()
224                  val treelimit = EnvConfig.getSet StdConfig.parse_caching NONE                  val treelimit = #get StdConfig.parse_caching ()
225              in              in
226                  if ntrees < treelimit then                  if ntrees < treelimit then
227                      parsetree := pto                      parsetree := pto

Legend:
Removed from v.432  
changed lines
  Added in v.433

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