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/branches/SMLNJ/src/ml-yacc/src/yacc.sml
ViewVC logotype

Diff of /sml/branches/SMLNJ/src/ml-yacc/src/yacc.sml

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

revision 501, Tue Dec 7 15:59:36 1999 UTC revision 502, Tue Dec 7 17:56:19 1999 UTC
# Line 1  Line 1 
1  (* ML-Yacc Parser Generator (c) 1989, 1990 Andrew W. Appel, David R. Tarditi  (* ML-Yacc Parser Generator (c) 1989, 1990 Andrew W. Appel, David R. Tarditi
2   *   *
3   * $Log$   * $Log$
4   * Revision 1.1.1.11  1999/12/07 15:40:30  monnier   * Revision 1.1.1.12  1999/12/07 17:56:19  monnier
5   * version 110.25   * version 110.25.1
6     *
7     * Revision 1.3  1999/12/07 14:24:18  george
8     * *** empty log message ***
9     *
10     * Revision 1.2  1999/12/02 17:26:11  george
11     * *** empty log message ***
12   *   *
13   * Revision 1.1.1.1  1999/07/15 17:52:56  george   * Revision 1.1.1.1  1999/07/15 17:52:56  george
14   *  Version 110.20   *  Version 110.20
# Line 241  Line 247 
247    
248    
249           fun printChange () =           fun printChange () =
250              (sayln "val preferred_change = ";              (sayln "val preferred_change : (term list * term list) list = ";
251               app (fn (d,i) =>               app (fn (d,i) =>
252                      (say"("; printTermList d; say ","; printTermList i;                      (say"("; printTermList d; say ","; printTermList i;
253                       sayln ")::"                       sayln ")::"
# Line 300  Line 306 
306              printBoolCase noshift;              printBoolCase noshift;
307              printNames ();              printNames ();
308              printErrValues value;              printErrValues value;
309              say "val terms = ";              say "val terms : term list = ";
310              printTermList ecTerms;              printTermList ecTerms;
311              sayln "end"              sayln "end"
312          end          end

Legend:
Removed from v.501  
changed lines
  Added in v.502

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