Fixed a last error in the definition of merge

tests/poly/patricia.cd

@@ -66,7 +66,7 @@ let merge (c: 'a -> 'a -> 'a): (Dict,Dict) -> Dict =
           ; (Dict,Dict)\([],[]) -> Dict\[] 
           ; (Branch,Branch) -> Branch )
     | ([],t) | (t,[]) -> t
-    | (<leaf key=k>x , t) ->  insert c k x t         
+    | (<leaf key=k>x , t) ->  insert c k x t      
     | (t , <leaf key=k>x) ->  insert (swap c) k x t  
     | (<brch pre=p bit=m>[ s0 s1 ] , <brch pre=q bit=n>[ t0 t1 ])&(s,t) ->
         if (m=n) && (p=q) then  <brch pre=p bit=m>[ (aux(s0,t0)) (aux(s1,t1)) ]