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
 [smlnj] / sml / trunk / sml-mode / testcases.sml

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

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