1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
{8}(*
(** nested comment 1 **)
(*
nested comment 2
(*
nested comment 3
(*
nested comment 4
(*
nested comment 5
*)
*)
*)
*)
*){0}
{9}// declare a namespace{0}
{9}// for the module{0}
{1}namespace{0} {6}Issue93{0}
{1}module{0} {6}NestedComments{0} {12}={0}
{1}open{0} {3}FSharp{0}.{6}Quotations{0}
{1}open{0} {3}FSharp{0}.{6}Quotations{0}.{6}Patterns{0}
{9}// print the arguments{0}
{9}// of an evaluated expression{0}
{8}(* Example:
(*
printArgs <@ 1 + 2 @> ;;
// 1
// 2
*)
*){0}
{1}let{0} {6}printArgs{0} {6}expr{0} {12}={0}
{1}let{0} {6}getVal{0} {12}={0} {1}function{0} {6}Value{0} {12}({6}v{12},{0} {6}_{12}){0} {12}->{0} {1}downcast{0} {6}v{0} {12}|{0} {6}_{0} {12}->{0} {1}null{0}
{1}match{0} {6}expr{0} {1}with{0}
{12}|{0} {6}Call{0} {12}({6}_{12},{0} {6}_{12},{0} {6}args{12}){0} {12}->{0}
{3}List{0}.{2}map{0} {6}getVal{0} {6}args{0} {12}|>{0} {3}List{0}.{2}iter{0} {12}({2}printfn{0} {15}"{19}%A{15}"{12}){0}
{12}|{0} {6}_{0} {12}->{0}
{2}printfn{0} {15}"not an evaluated expression"{0}
{8}(* Example:
(*
let constExpr = <@ true @> ;;
printArgs constExpr ;;
*)
*){0}
{9}// Prints:{0}
{9}// "not an evaluated expression"{0}
|
