diff options
| author | Robert J. Simmons <robsimmons@gmail.com> | 2011-08-26 02:03:18 -0400 |
|---|---|---|
| committer | Robert J. Simmons <robsimmons@gmail.com> | 2011-08-26 02:03:18 -0400 |
| commit | b9784ede3288f23c9cf85071b98daaee89ec6da2 (patch) | |
| tree | 23da941d28080cc63a1afcf6da83a42f84abeaba /tests/examplefiles/example.sml | |
| parent | 6d43d3f4192438c23c47256f15a7e2305e8f193c (diff) | |
| download | pygments-b9784ede3288f23c9cf85071b98daaee89ec6da2.tar.gz | |
More changes to better capture StrId distinction
Diffstat (limited to 'tests/examplefiles/example.sml')
| -rw-r--r-- | tests/examplefiles/example.sml | 19 |
1 files changed, 14 insertions, 5 deletions
diff --git a/tests/examplefiles/example.sml b/tests/examplefiles/example.sml index 07ac6081..9a2d9f7f 100644 --- a/tests/examplefiles/example.sml +++ b/tests/examplefiles/example.sml @@ -1,15 +1,24 @@ (*(*(*(*(* This file is all pretty strange Standard ML *)*)*)*) (**)*) (* Robert J. Simmons *) -signature BA_Z = sig end +signature BA_Z = sig + val s: int +end -structure **$*#$ = struct (* What (* A * strange * name *) for ) a ( struct *) +structure b______ = struct (* What (* A * strange * name *) for ) a ( struct *) -structure Bar :> BA_Z = struct end -structure !%&$#+-/:<=>?@\~`^|* :> BA_Z = struct end +val !%&$#+-/:<=>?@\~`^|* = 3 + +structure baz = struct + structure Bar = struct + val foo = !%&$#+-/:<=>?@\~`^|* + end +end + +open baz val$$$ = fn x => fn y => fn z => fn w => w -val (foo, ++, bar, ||) = (4, 4, 5, 5) +val (foo, ++, bar, ||) = (4, baz.Bar.foo, !%&$#+-/:<=>?@\~`^|*, Bar.foo) val _ = $$$foo++bar|| val x : ' list = [] |