anchor.diff:  ]
   
   let curryingTests = ptestList "Currying translation test" [
  -    testCase "Nested functions. Carring 1." <| fun _ ->
  +    testCase "Nested functions.Carring 1." <| fun _ ->
           let command =
               <@ fun (range: Range1D) (buf: int clarray) ->
                   let f x y = x - y
  
positive.code:         checkCode command "Nested.Function.Carring2.gen" "Nested.Function.Carring2.cl"
  ]
  
  let localMemoryTests = ptestList "Test of local memory declaration functions." [
      testCase "Local int" <| fun _ ->
          let command =
              <@ fun (range: Range1D) ->
  
negative.code: 
          checkCode command "Nested.Function.Carring.gen" "Nested.Function.Carring.cl"
  
      testCase "Nested functions.Currying 2." <| fun _ ->
          let command =
              <@ fun (range: Range1D) (buf: int clarray) ->
                  let f x y =
  