anchor.diff:      let parseNamedView = parseIdentifier |>> NamedView
   
       /// Parses the unit view (`emp`, for our purposes).
  -    let parseUnit = pstring "emp" >>% Unit
  +    let parseUnit = stringReturn "emp" Unit
   
       /// Parses a `basic` view (unit, if, named, or bracketed).
       let parseBasicView =
  
positive.code:                ]
  
      do parseViewRef :=
          chainl1 (tryWrapInApply parseBasicView)
                  // ^- <basic-view>
                  //  | <basic-view> ...
                  (pstring "*" .>> ws >>% fun x y -> Join(x, y))
                  //                 ... * <view>
  
      /// Parser for braced view statements.
  
negative.code:     /// This parser SOMETIMES parses whitespace afterwards.
      let parseFetchOrPostfix =
          parseLValue .>> ws >>= (
              fun id -> choice [ stringReturn "++" ( Postfix ( id, Increment ) )
                               ; stringReturn "--" ( Postfix ( id, Decrement ) )
                               ; pstring "=" >>. ws >>. parseFetch id
                               ]
          )
  