equal
deleted
inserted
replaced
87 let fun nr i = if p (hp (loc i)) then (loc i, none) else nr (i+1); |
87 let fun nr i = if p (hp (loc i)) then (loc i, none) else nr (i+1); |
88 in nr 0 end; |
88 in nr 0 end; |
89 *} |
89 *} |
90 |
90 |
91 generate_code |
91 generate_code |
92 test = "example_prg\<turnstile>Norm (Map.empty, Map.empty) |
92 test = "example_prg\<turnstile>Norm (empty, empty) |
93 -(Expr (l1_name::=NewC list_name);; |
93 -(Expr (l1_name::=NewC list_name);; |
94 Expr ({list_name}(LAcc l1_name)..val_name:=Lit (Intg 1));; |
94 Expr ({list_name}(LAcc l1_name)..val_name:=Lit (Intg 1));; |
95 Expr (l2_name::=NewC list_name);; |
95 Expr (l2_name::=NewC list_name);; |
96 Expr ({list_name}(LAcc l2_name)..val_name:=Lit (Intg 2));; |
96 Expr ({list_name}(LAcc l2_name)..val_name:=Lit (Intg 2));; |
97 Expr (l3_name::=NewC list_name);; |
97 Expr (l3_name::=NewC list_name);; |