standard XQuery 3.1

README.md

@@ -52,6 +52,33 @@ return
 :)
 ```
 
+## Pure XQuery 3.1
+
+Using pure, standard XQuery 3.1, the above examples can be written as
+
+```xquery
+import module namespace mem-op = "http://maxdewpoint.blogspot.com/memory-operations" at "memory-operations-pure-xquery.xqy";
+mem-op:copy(fn:root($file)) 
+=> mem-op:replace($file/title, element title {"my new title"}) 
+=> mem-op:insert-child($file, attribute new-attribute {"my new attribute"}) 
+=> mem-op:execute()
+```
+
+and
+
+```xquery
+import module namespace mem-op = "http://maxdewpoint.blogspot.com/memory-operations" at "memory-operations-pure-xquery.xqy";
+let $oldx := /a/b/x
+return
+	($oldx,
+	mem-op:copy($oldx) 
+  => mem-op:rename($oldx, fn:QName("","newx"))
+  => mem-op:replace-value($oldx, $oldx * 5)
+  => mem-op:execute()
+	)
+```	
+
+
 ## Other Operations
  ```xquery
 (: See http://www.w3.org/TR/xquery-update-10/#id-delete :)

memory-operations-pure-xquery.xqy

@@ -1,4 +1,4 @@
-xquery version "3.0";
+xquery version "3.1";
 
 (:~
 Copyright (c) 2016 Ryan Dew
@@ -149,7 +149,7 @@ as map(*)?
 {
   let $function-key as xs:string := mem-op:function-key($transform-function)
   return 
-    map:new((
+    map:merge((
       mem-op:queue(
         $transaction-map,
         $nodes-to-change,
@@ -160,7 +160,7 @@ as map(*)?
         $function-key,
         $transform-function
       )
-    ))
+    ), map {"duplicates": "use-last"})
 };
 
 (: Select the root to return after transaction :)
@@ -206,7 +206,7 @@ as map(*)
     return
     (
     mem-op:all-nodes-from-same-doc($nodes-to-modify,map:get($transaction-map,"copy")),
-    map:new((
+    map:merge((
       $transaction-map,
       map:entry(
         "operation",
@@ -234,7 +234,7 @@ as map(*)
          (: Ensure nodes to modifier nodes are accummulated :)
          map:get($transaction-map, "modifier-nodes"))
       )
-    ))
+    ), map {"duplicates": "use-last"})
     )
   else
     $transaction-map