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 1471, Mon Mar 29 22:45:55 2004 UTC revision 1472, Sun Apr 4 07:17:07 2004 UTC
# Line 1  Line 1 
1  (* copyright 1999 YALE FLINT project *)  (* Copyright 1999, 2004 Stefan Monnier <monnier@gnu.org> *)
 (* monnier@cs.yale.edu *)  
2    
3  (let val a = 1 val b = 2  (let val a = 1 val b = 2
4       val c = 3       val c = 3
5   in 1   in 1
6   end);   end);
7    
8    (* sml-mode here treats the second `=' as an equal op because it assumes
9     * that the first is the definitional equal for the structure.  FIXME!  *)
10    functor foo (structure s : S) where type t = s.t =
11    struct
12    val bar = 0
13    val ber = 1;
14    val sdfg = 1
15    end
16    
17  (x := 1;  (x := 1;
18   case x of   case x of
19       FOO => 1       FOO => 1

Legend:
Removed from v.1471  
changed lines
  Added in v.1472

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