extraction driver: use %1.(%2)<-%3 instead of Array.set

otherwise, this is not optimized when compiling with -unsafe
(similarly for Array.get)
parent 1f0f1539
...@@ -10,7 +10,7 @@ end ...@@ -10,7 +10,7 @@ end
module HighOrd module HighOrd
syntax type (->) "%1 -> %2" syntax type (->) "%1 -> %2"
syntax val (@) "%1 %2" syntax val ( @ ) "%1 %2"
end end
theory option.Option theory option.Option
...@@ -351,8 +351,8 @@ module mach.array.Array63 ...@@ -351,8 +351,8 @@ module mach.array.Array63
syntax type array "(%1 array)" syntax type array "(%1 array)"
syntax val make "Array.make %1 %2" syntax val make "Array.make %1 %2"
syntax val ([]) "Array.get %1 %2" syntax val ([]) "%1.(%2)"
syntax val ([]<-) "Array.set %1 %2 %3" syntax val ([]<-) "%1.(%2) <- %3"
syntax val length "Array.length %1" syntax val length "Array.length %1"
syntax val append "Array.append %1 %2" syntax val append "Array.append %1 %2"
syntax val sub "Array.sub %1 %2 %3" syntax val sub "Array.sub %1 %2 %3"
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment