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

Diff of /sml/trunk/src/ml-yacc/src/absyn.sml

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

revision 514, Thu Dec 16 08:32:57 1999 UTC revision 515, Sun Jan 9 09:59:14 2000 UTC
# Line 1  Line 1 
1  (* ML-Yacc Parser Generator (c) 1991 Andrew W. Appel, David R. Tarditi  (* ML-Yacc Parser Generator (c) 1991 Andrew W. Appel, David R. Tarditi
2   *   *
3   * $Log$   * $Log$
4     * Revision 1.2  2000/01/09 09:59:14  blume
5     * pickler bug fixes; some cosmetic changes
6     *
7   * Revision 1.1.1.10  1999/04/17 18:56:11  monnier   * Revision 1.1.1.10  1999/04/17 18:56:11  monnier
8   * version 110.16   * version 110.16
9   *   *
# Line 160  Line 163 
163                   | f (PAPP(a,PVAR b)) = [a," ",b]                   | f (PAPP(a,PVAR b)) = [a," ",b]
164                   | f (PAPP(a,b)) = List.concat [lp,[a],sp,f b,rp]                   | f (PAPP(a,b)) = List.concat [lp,[a],sp,f b,rp]
165                   | f (PINT i) = [Int.toString i]                   | f (PINT i) = [Int.toString i]
                  | f (PLIST nil) = ["<bogus-list>"]  
166                   | f (PLIST l) =                   | f (PLIST l) =
167                        let fun scan (h :: nil) = [f h]                        let fun scan [h] = [f h]
168                              | scan (h :: t) = f h :: ["::"] :: scan t                              | scan (h :: t) = f h :: ["::"] :: scan t
169                                | scan [] = [["<bogus-list>"]]
170                        in List.concat (scan l)                        in List.concat (scan l)
171                        end                        end
172                   | f (PTUPLE (a::r)) =                   | f (PTUPLE (a::r)) =

Legend:
Removed from v.514  
changed lines
  Added in v.515

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