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 700, Thu Aug 24 20:35:39 2000 UTC revision 878, Wed Jul 18 17:43:27 2001 UTC
# Line 22  Line 22 
22        = FooB of int        = FooB of int
23        | FooA of bool * int        | FooA of bool * int
24    
25        datatype foo = FOO | BAR of baz
26             and baz = BAZ | QUUX of foo
27    
28        datatype foo = FOO
29                     | BAR of baz
30             and baz = BAZ
31                     | QUUX of foo
32    
33        datatype foo = datatype M.foo
34        val _ = 42
35    
36        signature S = S' where type foo = int
37        val _ = 42
38    
39        val foo = [ "blah"
40                  , let val x = f 42 in g (x,x,44) end
41                  , foldl (fn ((p,q),s) => g (p,q,Vector.length q) ^ ":" ^ s)
42                    "" (Beeblebrox.masterCountList mlist2)
43                  , if null mlist2 then ";" else ""
44                  ]
45    
46        fun foo (true::rest)
47          = 1 + 2 * foo rest
48          | foo (false::rest)
49          = 0 + 2 * foo rest
50    
51      val x = if foo then      val x = if foo then
52                  1                  1
53              else if bar then              else if bar then
# Line 51  Line 77 
77  end  end
78    
79  let  let
80    in a
81    ; b
82    end
83    
84    let
85    in
86        a
87      ; b
88    end
89    
90    let
91  in if a then  in if a then
92         b         b
93     else     else

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

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