anchor.diff:  
       member this.Compilation = comp
   
  -    member this.CompileReflectedDefinitions(asm: Assembly) =
  +    member this.CompileReflectedDefinitions(asm: Assembly, ?treatReflectedDefinitionAsJavaScript: bool) =
  +        let treatReflectedDefinitionAsJavaScript = defaultArg treatReflectedDefinitionAsJavaScript true
           comp.AssemblyName <- asm.FullName
           let asmAnnot = A.attrReader.GetAssemblyAnnot(asm.CustomAttributes)
           let rootTypeAnnot = asmAnnot.RootTypeAnnot
  
positive.code:                         with e ->
                              error ("Error parsing inline JavaScript: " + e.Message)
                      | A.MemberKind.Constant c ->
                          //checkNotAbstract() 
                          addMethod mAnnot mdef N.Inline true (Value c)                        
                      | A.MemberKind.Direct (js, dollarVars) ->
                          let vars = getVars()
  
negative.code:                     | A.MemberKind.OptionalField
                      | A.MemberKind.Constant _ -> failwith "attribute not allowed on constructors"
                  | Member.StaticConstructor ->
                      if treatReflectedDefinitionAsJavaScript then
                          jsMember false
  
              for m in t.GetMethods(Reflection.AllMethodsFlags) do
                  readMember m
  