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

Diff of /sml/trunk/sml-mode/testcases.sml

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

revision 544, Tue Feb 22 22:56:38 2000 UTC revision 700, Thu Aug 24 20:35:39 2000 UTC
# Line 1  Line 1 
1  (* copyright 1999 YALE FLINT project *)  (* copyright 1999 YALE FLINT project *)
2  (* monnier@cs.yale.edu *)  (* monnier@cs.yale.edu *)
3    
4    (let val a = 1 val b = 2
5         val c = 3
6     in 1
7     end)
8    
9    (x := 1;
10     case x of
11         FOO => 1
12       | BAR => 2;
13     case x of
14         FOO => 1
15       | BAR =>
16         (case y of
17              FAR => 2
18            | FRA => 3);
19     hello)
20    
21  let datatype foobar  let datatype foobar
22        = FooB of int        = FooB of int
23        | FooA of bool * int        | FooA of bool * int

Legend:
Removed from v.544  
changed lines
  Added in v.700

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