diff --git a/ghcjs-dom.cabal b/ghcjs-dom.cabal
--- a/ghcjs-dom.cabal
+++ b/ghcjs-dom.cabal
@@ -1,5 +1,5 @@
 name: ghcjs-dom
-version: 0.0.4
+version: 0.0.6
 cabal-version: >=1.10
 build-type: Simple
 license: MIT
@@ -16,6 +16,10 @@
   type:         git
   location:     https://github.com/ghcjs/ghcjs-dom
 
+flag ghcjs
+    description: Tell cabal we are using ghcjs (work around until hackage supports impl(ghcjs))
+    default: True
+
 flag jsffi
     description: Use JavaScriptFFI extension for GHCJS JavaScript output
     default: True
@@ -174,11 +178,12 @@
           -- GHCJS.DOM.WebKitAnimationList
 
 --    if impl(ghcjs) && flag(jsffi)
---        cpp-options: -DUSE_JAVASCRIPTFFI
---        build-depends: ghcjs-base
+    if flag(ghcjs) && flag(jsffi)
+        cpp-options: -DUSE_JAVASCRIPTFFI
+        build-depends: ghcjs-base
 
 --    if !impl(ghcjs) || flag(webkit)
-    if impl(ghc)
+    if !flag(ghcjs) || flag(webkit)
         cpp-options: -DUSE_WEBKIT
         build-depends:  glib >=0.12.3.1 && <0.13, transformers >=0.3.0.0 && <0.4
         if flag(gtk3)
diff --git a/src/GHCJS/DOM.hs b/src/GHCJS/DOM.hs
--- a/src/GHCJS/DOM.hs
+++ b/src/GHCJS/DOM.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP, ForeignFunctionInterface #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE JavaScriptFFI #-}
 #endif
 module GHCJS.DOM (
@@ -12,7 +12,7 @@
 , postGUIAsync
 ) where
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 import GHCJS.Types (JSRef(..))
 import Control.Applicative ((<$>))
 #else
@@ -42,14 +42,14 @@
 import System.Environment (getArgs)
 import Data.List (isSuffixOf)
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 postGUIAsync :: IO () -> IO ()
 postGUIAsync = id
 
 postGUISync :: IO a -> IO a
 postGUISync = id
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$r = window"
   ghcjs_currentWindow :: IO (JSRef DOMWindow)
 foreign import javascript unsafe "$r = document"
@@ -102,7 +102,7 @@
       makeDefaultWebView userAgentKey main
 
 makeDefaultWebView :: String -> (WebView -> IO ()) -> IO ()
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 makeDefaultWebView _ _ = error "Unsupported makeDefaultWebView"
 #else
 makeDefaultWebView userAgentKey main = do
diff --git a/src/GHCJS/DOM/Attr.hs b/src/GHCJS/DOM/Attr.hs
--- a/src/GHCJS/DOM/Attr.hs
+++ b/src/GHCJS/DOM/Attr.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.Attr
        (ghcjs_dom_attr_get_name, attrGetName,
@@ -24,7 +24,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"name\"]"
         ghcjs_dom_attr_get_name :: JSRef DOMAttr -> IO JSString
 #else 
@@ -39,7 +39,7 @@
       (ghcjs_dom_attr_get_name (unDOMAttr (toDOMAttr self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"specified\"] ? 1 : 0)"
         ghcjs_dom_attr_get_specified :: JSRef DOMAttr -> IO Bool
 #else 
@@ -52,7 +52,7 @@
   = ghcjs_dom_attr_get_specified (unDOMAttr (toDOMAttr self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"value\"] = $2;"
         ghcjs_dom_attr_set_value :: JSRef DOMAttr -> JSString -> IO ()
 #else 
@@ -67,7 +67,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"value\"]"
         ghcjs_dom_attr_get_value :: JSRef DOMAttr -> IO JSString
 #else 
@@ -82,7 +82,7 @@
       (ghcjs_dom_attr_get_value (unDOMAttr (toDOMAttr self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"ownerElement\"]"
         ghcjs_dom_attr_get_owner_element ::
         JSRef DOMAttr -> IO (JSRef Element)
@@ -99,7 +99,7 @@
       (ghcjs_dom_attr_get_owner_element (unDOMAttr (toDOMAttr self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"isId\"] ? 1 : 0)"
         ghcjs_dom_attr_get_is_id :: JSRef DOMAttr -> IO Bool
 #else 
diff --git a/src/GHCJS/DOM/BarProp.hs b/src/GHCJS/DOM/BarProp.hs
--- a/src/GHCJS/DOM/BarProp.hs
+++ b/src/GHCJS/DOM/BarProp.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.BarProp
        (ghcjs_dom_bar_prop_get_visible, barPropGetVisible, BarProp,
@@ -20,7 +20,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"visible\"] ? 1 : 0)"
         ghcjs_dom_bar_prop_get_visible :: JSRef BarProp -> IO Bool
 #else 
diff --git a/src/GHCJS/DOM/Blob.hs b/src/GHCJS/DOM/Blob.hs
--- a/src/GHCJS/DOM/Blob.hs
+++ b/src/GHCJS/DOM/Blob.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.Blob
        (ghcjs_dom_blob_get_size, blobGetSize, Blob, IsBlob, castToBlob,
@@ -20,7 +20,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"size\"]"
         ghcjs_dom_blob_get_size :: JSRef Blob -> IO Double
 #else 
diff --git a/src/GHCJS/DOM/CSSRule.hs b/src/GHCJS/DOM/CSSRule.hs
--- a/src/GHCJS/DOM/CSSRule.hs
+++ b/src/GHCJS/DOM/CSSRule.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.CSSRule
        (cUNKNOWN_RULE, cSTYLE_RULE, cCHARSET_RULE, cIMPORT_RULE,
@@ -35,7 +35,7 @@
 cWEBKIT_KEYFRAME_RULE = 8
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"cssText\"] = $2;"
         ghcjs_dom_css_rule_set_css_text ::
         JSRef CSSRule -> JSString -> IO ()
@@ -52,7 +52,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"cssText\"]"
         ghcjs_dom_css_rule_get_css_text :: JSRef CSSRule -> IO JSString
 #else 
@@ -67,7 +67,7 @@
       (ghcjs_dom_css_rule_get_css_text (unCSSRule (toCSSRule self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"parentStyleSheet\"]"
         ghcjs_dom_css_rule_get_parent_style_sheet ::
         JSRef CSSRule -> IO (JSRef CSSStyleSheet)
@@ -85,7 +85,7 @@
          (unCSSRule (toCSSRule self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"parentRule\"]"
         ghcjs_dom_css_rule_get_parent_rule ::
         JSRef CSSRule -> IO (JSRef CSSRule)
diff --git a/src/GHCJS/DOM/CSSRuleList.hs b/src/GHCJS/DOM/CSSRuleList.hs
--- a/src/GHCJS/DOM/CSSRuleList.hs
+++ b/src/GHCJS/DOM/CSSRuleList.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.CSSRuleList
        (ghcjs_dom_css_rule_list_item, cssRuleListItem,
@@ -22,7 +22,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"item\"]($2)"
         ghcjs_dom_css_rule_list_item ::
         JSRef CSSRuleList -> Word -> IO (JSRef CSSRule)
@@ -40,7 +40,7 @@
          index)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"length\"]"
         ghcjs_dom_css_rule_list_get_length :: JSRef CSSRuleList -> IO Word
 #else 
diff --git a/src/GHCJS/DOM/CSSStyleDeclaration.hs b/src/GHCJS/DOM/CSSStyleDeclaration.hs
--- a/src/GHCJS/DOM/CSSStyleDeclaration.hs
+++ b/src/GHCJS/DOM/CSSStyleDeclaration.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.CSSStyleDeclaration
        (ghcjs_dom_css_style_declaration_get_property_value,
@@ -41,7 +41,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"getPropertyValue\"]($2)"
         ghcjs_dom_css_style_declaration_get_property_value ::
         JSRef CSSStyleDeclaration -> JSString -> IO JSString
@@ -63,7 +63,7 @@
          (toJSString propertyName))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"removeProperty\"]($2)"
         ghcjs_dom_css_style_declaration_remove_property ::
         JSRef CSSStyleDeclaration -> JSString -> IO JSString
@@ -85,7 +85,7 @@
          (toJSString propertyName))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"getPropertyPriority\"]($2)"
         ghcjs_dom_css_style_declaration_get_property_priority ::
         JSRef CSSStyleDeclaration -> JSString -> IO JSString
@@ -107,7 +107,7 @@
          (toJSString propertyName))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"setProperty\"]($2, $3, $4)"
         ghcjs_dom_css_style_declaration_set_property ::
         JSRef CSSStyleDeclaration ->
@@ -131,7 +131,7 @@
       (toJSString priority)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"item\"]($2)"
         ghcjs_dom_css_style_declaration_item ::
         JSRef CSSStyleDeclaration -> Word -> IO JSString
@@ -151,7 +151,7 @@
          index)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"getPropertyShorthand\"]($2)"
         ghcjs_dom_css_style_declaration_get_property_shorthand ::
         JSRef CSSStyleDeclaration -> JSString -> IO JSString
@@ -173,7 +173,7 @@
          (toJSString propertyName))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "($1[\"isPropertyImplicit\"]($2) ? 1 : 0)"
         ghcjs_dom_css_style_declaration_is_property_implicit ::
@@ -194,7 +194,7 @@
       (toJSString propertyName)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"cssText\"] = $2;"
         ghcjs_dom_css_style_declaration_set_css_text ::
         JSRef CSSStyleDeclaration -> JSString -> IO ()
@@ -213,7 +213,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"cssText\"]"
         ghcjs_dom_css_style_declaration_get_css_text ::
         JSRef CSSStyleDeclaration -> IO JSString
@@ -232,7 +232,7 @@
          (unCSSStyleDeclaration (toCSSStyleDeclaration self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"length\"]"
         ghcjs_dom_css_style_declaration_get_length ::
         JSRef CSSStyleDeclaration -> IO Word
@@ -249,7 +249,7 @@
       (unCSSStyleDeclaration (toCSSStyleDeclaration self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"parentRule\"]"
         ghcjs_dom_css_style_declaration_get_parent_rule ::
         JSRef CSSStyleDeclaration -> IO (JSRef CSSRule)
diff --git a/src/GHCJS/DOM/CSSStyleSheet.hs b/src/GHCJS/DOM/CSSStyleSheet.hs
--- a/src/GHCJS/DOM/CSSStyleSheet.hs
+++ b/src/GHCJS/DOM/CSSStyleSheet.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.CSSStyleSheet
        (ghcjs_dom_css_style_sheet_insert_rule, cssStyleSheetInsertRule,
@@ -27,7 +27,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"insertRule\"]($2, $3)"
         ghcjs_dom_css_style_sheet_insert_rule ::
         JSRef CSSStyleSheet -> JSString -> Word -> IO Word
@@ -47,7 +47,7 @@
       index
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"deleteRule\"]($2)"
         ghcjs_dom_css_style_sheet_delete_rule ::
         JSRef CSSStyleSheet -> Word -> IO ()
@@ -65,7 +65,7 @@
       index
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"addRule\"]($2, $3, $4)"
         ghcjs_dom_css_style_sheet_add_rule ::
         JSRef CSSStyleSheet -> JSString -> JSString -> Word -> IO Int
@@ -86,7 +86,7 @@
       index
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"removeRule\"]($2)"
         ghcjs_dom_css_style_sheet_remove_rule ::
         JSRef CSSStyleSheet -> Word -> IO ()
@@ -104,7 +104,7 @@
       index
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"ownerRule\"]"
         ghcjs_dom_css_style_sheet_get_owner_rule ::
         JSRef CSSStyleSheet -> IO (JSRef CSSRule)
@@ -122,7 +122,7 @@
          (unCSSStyleSheet (toCSSStyleSheet self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"cssRules\"]"
         ghcjs_dom_css_style_sheet_get_css_rules ::
         JSRef CSSStyleSheet -> IO (JSRef CSSRuleList)
@@ -140,7 +140,7 @@
          (unCSSStyleSheet (toCSSStyleSheet self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"rules\"]"
         ghcjs_dom_css_style_sheet_get_rules ::
         JSRef CSSStyleSheet -> IO (JSRef CSSRuleList)
diff --git a/src/GHCJS/DOM/CSSValue.hs b/src/GHCJS/DOM/CSSValue.hs
--- a/src/GHCJS/DOM/CSSValue.hs
+++ b/src/GHCJS/DOM/CSSValue.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.CSSValue
        (cCSS_INHERIT, cCSS_PRIMITIVE_VALUE, cCSS_VALUE_LIST, cCSS_CUSTOM,
@@ -27,7 +27,7 @@
 cCSS_CUSTOM = 3
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"cssText\"] = $2;"
         ghcjs_dom_css_value_set_css_text ::
         JSRef CSSValue -> JSString -> IO ()
@@ -44,7 +44,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"cssText\"]"
         ghcjs_dom_css_value_get_css_text :: JSRef CSSValue -> IO JSString
 #else 
@@ -59,7 +59,7 @@
       (ghcjs_dom_css_value_get_css_text (unCSSValue (toCSSValue self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"cssValueType\"]"
         ghcjs_dom_css_value_get_css_value_type :: JSRef CSSValue -> IO Word
 #else 
diff --git a/src/GHCJS/DOM/CharacterData.hs b/src/GHCJS/DOM/CharacterData.hs
--- a/src/GHCJS/DOM/CharacterData.hs
+++ b/src/GHCJS/DOM/CharacterData.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.CharacterData
        (ghcjs_dom_character_data_substring_data,
@@ -28,7 +28,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"substringData\"]($2, $3)"
         ghcjs_dom_character_data_substring_data ::
         JSRef CharacterData -> Word -> Word -> IO JSString
@@ -49,7 +49,7 @@
          length)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"appendData\"]($2)"
         ghcjs_dom_character_data_append_data ::
         JSRef CharacterData -> JSString -> IO ()
@@ -67,7 +67,7 @@
       (toJSString data')
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"insertData\"]($2, $3)"
         ghcjs_dom_character_data_insert_data ::
         JSRef CharacterData -> Word -> JSString -> IO ()
@@ -87,7 +87,7 @@
       (toJSString data')
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"deleteData\"]($2, $3)"
         ghcjs_dom_character_data_delete_data ::
         JSRef CharacterData -> Word -> Word -> IO ()
@@ -106,7 +106,7 @@
       length
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"replaceData\"]($2, $3, $4)"
         ghcjs_dom_character_data_replace_data ::
         JSRef CharacterData -> Word -> Word -> JSString -> IO ()
@@ -127,7 +127,7 @@
       (toJSString data')
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"data\"] = $2;"
         ghcjs_dom_character_data_set_data ::
         JSRef CharacterData -> JSString -> IO ()
@@ -145,7 +145,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"data\"]"
         ghcjs_dom_character_data_get_data ::
         JSRef CharacterData -> IO JSString
@@ -163,7 +163,7 @@
          (unCharacterData (toCharacterData self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"length\"]"
         ghcjs_dom_character_data_get_length ::
         JSRef CharacterData -> IO Word
diff --git a/src/GHCJS/DOM/Console.hs b/src/GHCJS/DOM/Console.hs
--- a/src/GHCJS/DOM/Console.hs
+++ b/src/GHCJS/DOM/Console.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.Console
        (ghcjs_dom_console_time, consoleTime, ghcjs_dom_console_group_end,
@@ -21,7 +21,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"time\"]($2)"
         ghcjs_dom_console_time :: JSRef Console -> JSString -> IO ()
 #else 
@@ -36,7 +36,7 @@
       (toJSString title)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"groupEnd\"]()"
         ghcjs_dom_console_group_end :: JSRef Console -> IO ()
 #else 
diff --git a/src/GHCJS/DOM/Css.hs b/src/GHCJS/DOM/Css.hs
--- a/src/GHCJS/DOM/Css.hs
+++ b/src/GHCJS/DOM/Css.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.Css (CSSRule, IsCSSRule) where
  
diff --git a/src/GHCJS/DOM/DOMApplicationCache.hs b/src/GHCJS/DOM/DOMApplicationCache.hs
--- a/src/GHCJS/DOM/DOMApplicationCache.hs
+++ b/src/GHCJS/DOM/DOMApplicationCache.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.DOMApplicationCache
        (ghcjs_dom_dom_application_cache_update, domApplicationCacheUpdate,
@@ -33,7 +33,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"update\"]()"
         ghcjs_dom_dom_application_cache_update ::
         JSRef DOMApplicationCache -> IO ()
@@ -50,7 +50,7 @@
       (unDOMApplicationCache (toDOMApplicationCache self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"swapCache\"]()"
         ghcjs_dom_dom_application_cache_swap_cache ::
         JSRef DOMApplicationCache -> IO ()
@@ -67,7 +67,7 @@
       (unDOMApplicationCache (toDOMApplicationCache self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"abort\"]()"
         ghcjs_dom_dom_application_cache_abort ::
         JSRef DOMApplicationCache -> IO ()
@@ -84,7 +84,7 @@
       (unDOMApplicationCache (toDOMApplicationCache self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "($1[\"dispatchEvent\"]($2) ? 1 : 0)"
         ghcjs_dom_dom_application_cache_dispatch_event ::
@@ -110,7 +110,7 @@
 cOBSOLETE = 5
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"status\"]"
         ghcjs_dom_dom_application_cache_get_status ::
         JSRef DOMApplicationCache -> IO Word
diff --git a/src/GHCJS/DOM/DOMImplementation.hs b/src/GHCJS/DOM/DOMImplementation.hs
--- a/src/GHCJS/DOM/DOMImplementation.hs
+++ b/src/GHCJS/DOM/DOMImplementation.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.DOMImplementation
        (ghcjs_dom_dom_implementation_has_feature,
@@ -30,7 +30,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "($1[\"hasFeature\"]($2,\n$3) ? 1 : 0)"
         ghcjs_dom_dom_implementation_has_feature ::
@@ -53,7 +53,7 @@
       (toJSString version)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "$1[\"createDocumentType\"]($2, $3,\n$4)"
         ghcjs_dom_dom_implementation_create_document_type ::
@@ -84,7 +84,7 @@
          (toJSString systemId))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "$1[\"createDocument\"]($2, $3, $4)"
         ghcjs_dom_dom_implementation_create_document ::
@@ -115,7 +115,7 @@
          (maybe jsNull (unDocumentType . toDocumentType) doctype))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "$1[\"createCSSStyleSheet\"]($2,\n$3)"
         ghcjs_dom_dom_implementation_create_css_style_sheet ::
@@ -141,7 +141,7 @@
          (toJSString media))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"createHTMLDocument\"]($2)"
         ghcjs_dom_dom_implementation_create_html_document ::
         JSRef DOMImplementation -> JSString -> IO (JSRef HTMLDocument)
diff --git a/src/GHCJS/DOM/DOMMimeType.hs b/src/GHCJS/DOM/DOMMimeType.hs
--- a/src/GHCJS/DOM/DOMMimeType.hs
+++ b/src/GHCJS/DOM/DOMMimeType.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.DOMMimeType
        (ghcjs_dom_dom_mime_type_get_suffixes, domMimeTypeGetSuffixes,
@@ -23,7 +23,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"suffixes\"]"
         ghcjs_dom_dom_mime_type_get_suffixes ::
         JSRef DOMMimeType -> IO JSString
@@ -41,7 +41,7 @@
          (unDOMMimeType (toDOMMimeType self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"description\"]"
         ghcjs_dom_dom_mime_type_get_description ::
         JSRef DOMMimeType -> IO JSString
@@ -59,7 +59,7 @@
          (unDOMMimeType (toDOMMimeType self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"enabledPlugin\"]"
         ghcjs_dom_dom_mime_type_get_enabled_plugin ::
         JSRef DOMMimeType -> IO (JSRef DOMPlugin)
diff --git a/src/GHCJS/DOM/DOMMimeTypeArray.hs b/src/GHCJS/DOM/DOMMimeTypeArray.hs
--- a/src/GHCJS/DOM/DOMMimeTypeArray.hs
+++ b/src/GHCJS/DOM/DOMMimeTypeArray.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.DOMMimeTypeArray
        (ghcjs_dom_dom_mime_type_array_item, domMimeTypeArrayItem,
@@ -24,7 +24,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"item\"]($2)"
         ghcjs_dom_dom_mime_type_array_item ::
         JSRef DOMMimeTypeArray -> Word -> IO (JSRef DOMMimeType)
@@ -43,7 +43,7 @@
          index)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"namedItem\"]($2)"
         ghcjs_dom_dom_mime_type_array_named_item ::
         JSRef DOMMimeTypeArray -> JSString -> IO (JSRef DOMMimeType)
@@ -64,7 +64,7 @@
          (toJSString name))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"length\"]"
         ghcjs_dom_dom_mime_type_array_get_length ::
         JSRef DOMMimeTypeArray -> IO Word
diff --git a/src/GHCJS/DOM/DOMNamedFlowCollection.hs b/src/GHCJS/DOM/DOMNamedFlowCollection.hs
--- a/src/GHCJS/DOM/DOMNamedFlowCollection.hs
+++ b/src/GHCJS/DOM/DOMNamedFlowCollection.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.DOMNamedFlowCollection
        (ghcjs_dom_dom_named_flow_collection_item,
@@ -26,7 +26,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"item\"]($2)"
         ghcjs_dom_dom_named_flow_collection_item ::
         JSRef DOMNamedFlowCollection -> Word -> IO (JSRef WebKitNamedFlow)
@@ -47,7 +47,7 @@
          index)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"namedItem\"]($2)"
         ghcjs_dom_dom_named_flow_collection_named_item ::
         JSRef DOMNamedFlowCollection ->
@@ -69,7 +69,7 @@
          (toJSString name))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"length\"]"
         ghcjs_dom_dom_named_flow_collection_get_length ::
         JSRef DOMNamedFlowCollection -> IO Word
diff --git a/src/GHCJS/DOM/DOMPlugin.hs b/src/GHCJS/DOM/DOMPlugin.hs
--- a/src/GHCJS/DOM/DOMPlugin.hs
+++ b/src/GHCJS/DOM/DOMPlugin.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.DOMPlugin
        (ghcjs_dom_dom_plugin_item, domPluginItem,
@@ -25,7 +25,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"item\"]($2)"
         ghcjs_dom_dom_plugin_item ::
         JSRef DOMPlugin -> Word -> IO (JSRef DOMMimeType)
@@ -42,7 +42,7 @@
       (ghcjs_dom_dom_plugin_item (unDOMPlugin (toDOMPlugin self)) index)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"namedItem\"]($2)"
         ghcjs_dom_dom_plugin_named_item ::
         JSRef DOMPlugin -> JSString -> IO (JSRef DOMMimeType)
@@ -61,7 +61,7 @@
          (toJSString name))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"name\"]"
         ghcjs_dom_dom_plugin_get_name :: JSRef DOMPlugin -> IO JSString
 #else 
@@ -76,7 +76,7 @@
       (ghcjs_dom_dom_plugin_get_name (unDOMPlugin (toDOMPlugin self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"filename\"]"
         ghcjs_dom_dom_plugin_get_filename :: JSRef DOMPlugin -> IO JSString
 #else 
@@ -92,7 +92,7 @@
          (unDOMPlugin (toDOMPlugin self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"description\"]"
         ghcjs_dom_dom_plugin_get_description ::
         JSRef DOMPlugin -> IO JSString
@@ -110,7 +110,7 @@
          (unDOMPlugin (toDOMPlugin self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"length\"]"
         ghcjs_dom_dom_plugin_get_length :: JSRef DOMPlugin -> IO Word
 #else 
diff --git a/src/GHCJS/DOM/DOMPluginArray.hs b/src/GHCJS/DOM/DOMPluginArray.hs
--- a/src/GHCJS/DOM/DOMPluginArray.hs
+++ b/src/GHCJS/DOM/DOMPluginArray.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.DOMPluginArray
        (ghcjs_dom_dom_plugin_array_item, domPluginArrayItem,
@@ -24,7 +24,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"item\"]($2)"
         ghcjs_dom_dom_plugin_array_item ::
         JSRef DOMPluginArray -> Word -> IO (JSRef DOMPlugin)
@@ -43,7 +43,7 @@
          index)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"namedItem\"]($2)"
         ghcjs_dom_dom_plugin_array_named_item ::
         JSRef DOMPluginArray -> JSString -> IO (JSRef DOMPlugin)
@@ -63,7 +63,7 @@
          (toJSString name))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"refresh\"]($2)"
         ghcjs_dom_dom_plugin_array_refresh ::
         JSRef DOMPluginArray -> Bool -> IO ()
@@ -81,7 +81,7 @@
       reload
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"length\"]"
         ghcjs_dom_dom_plugin_array_get_length ::
         JSRef DOMPluginArray -> IO Word
diff --git a/src/GHCJS/DOM/DOMSecurityPolicy.hs b/src/GHCJS/DOM/DOMSecurityPolicy.hs
--- a/src/GHCJS/DOM/DOMSecurityPolicy.hs
+++ b/src/GHCJS/DOM/DOMSecurityPolicy.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.DOMSecurityPolicy
        (ghcjs_dom_dom_security_policy_allows_connection_to,
@@ -50,7 +50,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "($1[\"allowsConnectionTo\"]($2) ? 1 : 0)"
         ghcjs_dom_dom_security_policy_allows_connection_to ::
@@ -70,7 +70,7 @@
       (toJSString url)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "($1[\"allowsFontFrom\"]($2) ? 1 : 0)"
         ghcjs_dom_dom_security_policy_allows_font_from ::
@@ -90,7 +90,7 @@
       (toJSString url)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "($1[\"allowsFormAction\"]($2) ? 1 : 0)"
         ghcjs_dom_dom_security_policy_allows_form_action ::
@@ -110,7 +110,7 @@
       (toJSString url)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "($1[\"allowsFrameFrom\"]($2) ? 1 : 0)"
         ghcjs_dom_dom_security_policy_allows_frame_from ::
@@ -130,7 +130,7 @@
       (toJSString url)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "($1[\"allowsImageFrom\"]($2) ? 1 : 0)"
         ghcjs_dom_dom_security_policy_allows_image_from ::
@@ -150,7 +150,7 @@
       (toJSString url)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "($1[\"allowsMediaFrom\"]($2) ? 1 : 0)"
         ghcjs_dom_dom_security_policy_allows_media_from ::
@@ -170,7 +170,7 @@
       (toJSString url)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "($1[\"allowsObjectFrom\"]($2) ? 1 : 0)"
         ghcjs_dom_dom_security_policy_allows_object_from ::
@@ -190,7 +190,7 @@
       (toJSString url)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "($1[\"allowsPluginType\"]($2) ? 1 : 0)"
         ghcjs_dom_dom_security_policy_allows_plugin_type ::
@@ -210,7 +210,7 @@
       (toJSString type')
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "($1[\"allowsScriptFrom\"]($2) ? 1 : 0)"
         ghcjs_dom_dom_security_policy_allows_script_from ::
@@ -230,7 +230,7 @@
       (toJSString url)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "($1[\"allowsStyleFrom\"]($2) ? 1 : 0)"
         ghcjs_dom_dom_security_policy_allows_style_from ::
@@ -250,7 +250,7 @@
       (toJSString url)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"allowsEval\"] ? 1 : 0)"
         ghcjs_dom_dom_security_policy_get_allows_eval ::
         JSRef DOMSecurityPolicy -> IO Bool
@@ -267,7 +267,7 @@
       (unDOMSecurityPolicy (toDOMSecurityPolicy self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "($1[\"allowsInlineScript\"] ? 1 : 0)"
         ghcjs_dom_dom_security_policy_get_allows_inline_script ::
@@ -285,7 +285,7 @@
       (unDOMSecurityPolicy (toDOMSecurityPolicy self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "($1[\"allowsInlineStyle\"] ? 1 : 0)"
         ghcjs_dom_dom_security_policy_get_allows_inline_style ::
@@ -303,7 +303,7 @@
       (unDOMSecurityPolicy (toDOMSecurityPolicy self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"isActive\"] ? 1 : 0)"
         ghcjs_dom_dom_security_policy_get_is_active ::
         JSRef DOMSecurityPolicy -> IO Bool
@@ -320,7 +320,7 @@
       (unDOMSecurityPolicy (toDOMSecurityPolicy self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"reportURIs\"]"
         ghcjs_dom_dom_security_policy_get_report_ur_is ::
         JSRef DOMSecurityPolicy -> IO (JSRef DOMStringList)
diff --git a/src/GHCJS/DOM/DOMSelection.hs b/src/GHCJS/DOM/DOMSelection.hs
--- a/src/GHCJS/DOM/DOMSelection.hs
+++ b/src/GHCJS/DOM/DOMSelection.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.DOMSelection
        (ghcjs_dom_dom_selection_collapse, domSelectionCollapse,
@@ -50,7 +50,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"collapse\"]($2, $3)"
         ghcjs_dom_dom_selection_collapse ::
         JSRef DOMSelection -> JSRef Node -> Int -> IO ()
@@ -70,7 +70,7 @@
       index
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"collapseToEnd\"]()"
         ghcjs_dom_dom_selection_collapse_to_end ::
         JSRef DOMSelection -> IO ()
@@ -86,7 +86,7 @@
       (unDOMSelection (toDOMSelection self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"collapseToStart\"]()"
         ghcjs_dom_dom_selection_collapse_to_start ::
         JSRef DOMSelection -> IO ()
@@ -103,7 +103,7 @@
       (unDOMSelection (toDOMSelection self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"deleteFromDocument\"]()"
         ghcjs_dom_dom_selection_delete_from_document ::
         JSRef DOMSelection -> IO ()
@@ -120,7 +120,7 @@
       (unDOMSelection (toDOMSelection self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "($1[\"containsNode\"]($2,\n$3) ? 1 : 0)"
         ghcjs_dom_dom_selection_contains_node ::
@@ -141,7 +141,7 @@
       allowPartial
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"selectAllChildren\"]($2)"
         ghcjs_dom_dom_selection_select_all_children ::
         JSRef DOMSelection -> JSRef Node -> IO ()
@@ -159,7 +159,7 @@
       (maybe jsNull (unNode . toNode) node)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"extend\"]($2, $3)"
         ghcjs_dom_dom_selection_extend ::
         JSRef DOMSelection -> JSRef Node -> Int -> IO ()
@@ -179,7 +179,7 @@
       offset
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"getRangeAt\"]($2)"
         ghcjs_dom_dom_selection_get_range_at ::
         JSRef DOMSelection -> Int -> IO (JSRef DOMRange)
@@ -198,7 +198,7 @@
          index)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"removeAllRanges\"]()"
         ghcjs_dom_dom_selection_remove_all_ranges ::
         JSRef DOMSelection -> IO ()
@@ -215,7 +215,7 @@
       (unDOMSelection (toDOMSelection self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"addRange\"]($2)"
         ghcjs_dom_dom_selection_add_range ::
         JSRef DOMSelection -> JSRef DOMRange -> IO ()
@@ -234,7 +234,7 @@
       (maybe jsNull (unDOMRange . toDOMRange) range)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"modify\"]($2, $3, $4)"
         ghcjs_dom_dom_selection_modify ::
         JSRef DOMSelection -> JSString -> JSString -> JSString -> IO ()
@@ -256,7 +256,7 @@
       (toJSString granularity)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "$1[\"setBaseAndExtent\"]($2, $3,\n$4, $5)"
         ghcjs_dom_dom_selection_set_base_and_extent ::
@@ -282,7 +282,7 @@
       extentOffset
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"setPosition\"]($2, $3)"
         ghcjs_dom_dom_selection_set_position ::
         JSRef DOMSelection -> JSRef Node -> Int -> IO ()
@@ -302,7 +302,7 @@
       offset
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"empty\"]()"
         ghcjs_dom_dom_selection_empty :: JSRef DOMSelection -> IO ()
 #else 
@@ -316,7 +316,7 @@
       (unDOMSelection (toDOMSelection self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"anchorNode\"]"
         ghcjs_dom_dom_selection_get_anchor_node ::
         JSRef DOMSelection -> IO (JSRef Node)
@@ -334,7 +334,7 @@
          (unDOMSelection (toDOMSelection self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"anchorOffset\"]"
         ghcjs_dom_dom_selection_get_anchor_offset ::
         JSRef DOMSelection -> IO Int
@@ -351,7 +351,7 @@
       (unDOMSelection (toDOMSelection self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"focusNode\"]"
         ghcjs_dom_dom_selection_get_focus_node ::
         JSRef DOMSelection -> IO (JSRef Node)
@@ -369,7 +369,7 @@
          (unDOMSelection (toDOMSelection self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"focusOffset\"]"
         ghcjs_dom_dom_selection_get_focus_offset ::
         JSRef DOMSelection -> IO Int
@@ -386,7 +386,7 @@
       (unDOMSelection (toDOMSelection self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"isCollapsed\"] ? 1 : 0)"
         ghcjs_dom_dom_selection_get_is_collapsed ::
         JSRef DOMSelection -> IO Bool
@@ -403,7 +403,7 @@
       (unDOMSelection (toDOMSelection self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"rangeCount\"]"
         ghcjs_dom_dom_selection_get_range_count ::
         JSRef DOMSelection -> IO Int
@@ -420,7 +420,7 @@
       (unDOMSelection (toDOMSelection self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"baseNode\"]"
         ghcjs_dom_dom_selection_get_base_node ::
         JSRef DOMSelection -> IO (JSRef Node)
@@ -438,7 +438,7 @@
          (unDOMSelection (toDOMSelection self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"baseOffset\"]"
         ghcjs_dom_dom_selection_get_base_offset ::
         JSRef DOMSelection -> IO Int
@@ -455,7 +455,7 @@
       (unDOMSelection (toDOMSelection self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"extentNode\"]"
         ghcjs_dom_dom_selection_get_extent_node ::
         JSRef DOMSelection -> IO (JSRef Node)
@@ -473,7 +473,7 @@
          (unDOMSelection (toDOMSelection self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"extentOffset\"]"
         ghcjs_dom_dom_selection_get_extent_offset ::
         JSRef DOMSelection -> IO Int
diff --git a/src/GHCJS/DOM/DOMSettableTokenList.hs b/src/GHCJS/DOM/DOMSettableTokenList.hs
--- a/src/GHCJS/DOM/DOMSettableTokenList.hs
+++ b/src/GHCJS/DOM/DOMSettableTokenList.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.DOMSettableTokenList
        (ghcjs_dom_dom_settable_token_list_set_value,
@@ -24,7 +24,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"value\"] = $2;"
         ghcjs_dom_dom_settable_token_list_set_value ::
         JSRef DOMSettableTokenList -> JSString -> IO ()
@@ -43,7 +43,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"value\"]"
         ghcjs_dom_dom_settable_token_list_get_value ::
         JSRef DOMSettableTokenList -> IO JSString
diff --git a/src/GHCJS/DOM/DOMStringList.hs b/src/GHCJS/DOM/DOMStringList.hs
--- a/src/GHCJS/DOM/DOMStringList.hs
+++ b/src/GHCJS/DOM/DOMStringList.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.DOMStringList
        (ghcjs_dom_dom_string_list_item, domStringListItem,
@@ -23,7 +23,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"item\"]($2)"
         ghcjs_dom_dom_string_list_item ::
         JSRef DOMStringList -> Word -> IO JSString
@@ -43,7 +43,7 @@
          index)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"contains\"]($2) ? 1 : 0)"
         ghcjs_dom_dom_string_list_contains ::
         JSRef DOMStringList -> JSString -> IO Bool
@@ -62,7 +62,7 @@
       (toJSString string)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"length\"]"
         ghcjs_dom_dom_string_list_get_length ::
         JSRef DOMStringList -> IO Word
diff --git a/src/GHCJS/DOM/DOMTokenList.hs b/src/GHCJS/DOM/DOMTokenList.hs
--- a/src/GHCJS/DOM/DOMTokenList.hs
+++ b/src/GHCJS/DOM/DOMTokenList.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.DOMTokenList
        (ghcjs_dom_dom_token_list_item, domTokenListItem,
@@ -26,7 +26,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"item\"]($2)"
         ghcjs_dom_dom_token_list_item ::
         JSRef DOMTokenList -> Word -> IO JSString
@@ -46,7 +46,7 @@
          index)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"contains\"]($2) ? 1 : 0)"
         ghcjs_dom_dom_token_list_contains ::
         JSRef DOMTokenList -> JSString -> IO Bool
@@ -64,7 +64,7 @@
       (toJSString token)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"add\"]($2)"
         ghcjs_dom_dom_token_list_add ::
         JSRef DOMTokenList -> JSString -> IO ()
@@ -82,7 +82,7 @@
       (toJSString token)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"remove\"]($2)"
         ghcjs_dom_dom_token_list_remove ::
         JSRef DOMTokenList -> JSString -> IO ()
@@ -100,7 +100,7 @@
       (toJSString token)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"toggle\"]($2) ? 1 : 0)"
         ghcjs_dom_dom_token_list_toggle ::
         JSRef DOMTokenList -> JSString -> IO Bool
@@ -118,7 +118,7 @@
       (toJSString token)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"length\"]"
         ghcjs_dom_dom_token_list_get_length ::
         JSRef DOMTokenList -> IO Word
diff --git a/src/GHCJS/DOM/DOMWindow.hs b/src/GHCJS/DOM/DOMWindow.hs
--- a/src/GHCJS/DOM/DOMWindow.hs
+++ b/src/GHCJS/DOM/DOMWindow.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.DOMWindow
        (ghcjs_dom_dom_window_get_selection, domWindowGetSelection,
@@ -121,7 +121,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"getSelection\"]()"
         ghcjs_dom_dom_window_get_selection ::
         JSRef DOMWindow -> IO (JSRef DOMSelection)
@@ -139,7 +139,7 @@
          (unDOMWindow (toDOMWindow self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"blur\"]()"
         ghcjs_dom_dom_window_blur :: JSRef DOMWindow -> IO ()
 #else 
@@ -152,7 +152,7 @@
   = ghcjs_dom_dom_window_blur (unDOMWindow (toDOMWindow self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"print\"]()"
         ghcjs_dom_dom_window_print :: JSRef DOMWindow -> IO ()
 #else 
@@ -165,7 +165,7 @@
   = ghcjs_dom_dom_window_print (unDOMWindow (toDOMWindow self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"stop\"]()"
         ghcjs_dom_dom_window_stop :: JSRef DOMWindow -> IO ()
 #else 
@@ -178,7 +178,7 @@
   = ghcjs_dom_dom_window_stop (unDOMWindow (toDOMWindow self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"alert\"]($2)"
         ghcjs_dom_dom_window_alert :: JSRef DOMWindow -> JSString -> IO ()
 #else 
@@ -193,7 +193,7 @@
       (toJSString message)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"confirm\"]($2) ? 1 : 0)"
         ghcjs_dom_dom_window_confirm ::
         JSRef DOMWindow -> JSString -> IO Bool
@@ -211,7 +211,7 @@
       (toJSString message)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"prompt\"]($2, $3)"
         ghcjs_dom_dom_window_prompt ::
         JSRef DOMWindow -> JSString -> JSString -> IO JSString
@@ -232,7 +232,7 @@
          (toJSString defaultValue))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "($1[\"find\"]($2, $3, $4, $5, $6,\n$7, $8) ? 1 : 0)"
         ghcjs_dom_dom_window_find ::
@@ -261,7 +261,7 @@
       showDialog
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"scrollBy\"]($2, $3)"
         ghcjs_dom_dom_window_scroll_by ::
         JSRef DOMWindow -> Int -> Int -> IO ()
@@ -278,7 +278,7 @@
       y
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"scrollTo\"]($2, $3)"
         ghcjs_dom_dom_window_scroll_to ::
         JSRef DOMWindow -> Int -> Int -> IO ()
@@ -295,7 +295,7 @@
       y
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"scroll\"]($2, $3)"
         ghcjs_dom_dom_window_scroll ::
         JSRef DOMWindow -> Int -> Int -> IO ()
@@ -311,7 +311,7 @@
   = ghcjs_dom_dom_window_scroll (unDOMWindow (toDOMWindow self)) x y
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"moveBy\"]($2, $3)"
         ghcjs_dom_dom_window_move_by ::
         JSRef DOMWindow -> Float -> Float -> IO ()
@@ -327,7 +327,7 @@
   = ghcjs_dom_dom_window_move_by (unDOMWindow (toDOMWindow self)) x y
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"moveTo\"]($2, $3)"
         ghcjs_dom_dom_window_move_to ::
         JSRef DOMWindow -> Float -> Float -> IO ()
@@ -343,7 +343,7 @@
   = ghcjs_dom_dom_window_move_to (unDOMWindow (toDOMWindow self)) x y
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"resizeBy\"]($2, $3)"
         ghcjs_dom_dom_window_resize_by ::
         JSRef DOMWindow -> Float -> Float -> IO ()
@@ -360,7 +360,7 @@
       y
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"resizeTo\"]($2, $3)"
         ghcjs_dom_dom_window_resize_to ::
         JSRef DOMWindow -> Float -> Float -> IO ()
@@ -378,7 +378,7 @@
       height
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"matchMedia\"]($2)"
         ghcjs_dom_dom_window_match_media ::
         JSRef DOMWindow -> JSString -> IO (JSRef MediaQueryList)
@@ -397,7 +397,7 @@
          (toJSString query))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"getComputedStyle\"]($2, $3)"
         ghcjs_dom_dom_window_get_computed_style ::
         JSRef DOMWindow ->
@@ -422,7 +422,7 @@
          (toJSString pseudoElement))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "$1[\"webkitConvertPointFromPageToNode\"]($2,\n$3)"
         ghcjs_dom_dom_window_webkit_convert_point_from_page_to_node ::
@@ -449,7 +449,7 @@
          (maybe jsNull (unWebKitPoint . toWebKitPoint) p))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "$1[\"webkitConvertPointFromNodeToPage\"]($2,\n$3)"
         ghcjs_dom_dom_window_webkit_convert_point_from_node_to_page ::
@@ -476,7 +476,7 @@
          (maybe jsNull (unWebKitPoint . toWebKitPoint) p))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "($1[\"dispatchEvent\"]($2) ? 1 : 0)"
         ghcjs_dom_dom_window_dispatch_event ::
@@ -495,7 +495,7 @@
       (maybe jsNull (unEvent . toEvent) evt)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"captureEvents\"]()"
         ghcjs_dom_dom_window_capture_events :: JSRef DOMWindow -> IO ()
 #else 
@@ -509,7 +509,7 @@
       (unDOMWindow (toDOMWindow self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"releaseEvents\"]()"
         ghcjs_dom_dom_window_release_events :: JSRef DOMWindow -> IO ()
 #else 
@@ -523,7 +523,7 @@
       (unDOMWindow (toDOMWindow self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"screen\"]"
         ghcjs_dom_dom_window_get_screen ::
         JSRef DOMWindow -> IO (JSRef DOMScreen)
@@ -540,7 +540,7 @@
       (ghcjs_dom_dom_window_get_screen (unDOMWindow (toDOMWindow self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"history\"]"
         ghcjs_dom_dom_window_get_history ::
         JSRef DOMWindow -> IO (JSRef History)
@@ -557,7 +557,7 @@
       (ghcjs_dom_dom_window_get_history (unDOMWindow (toDOMWindow self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"locationbar\"]"
         ghcjs_dom_dom_window_get_locationbar ::
         JSRef DOMWindow -> IO (JSRef BarProp)
@@ -575,7 +575,7 @@
          (unDOMWindow (toDOMWindow self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"menubar\"]"
         ghcjs_dom_dom_window_get_menubar ::
         JSRef DOMWindow -> IO (JSRef BarProp)
@@ -592,7 +592,7 @@
       (ghcjs_dom_dom_window_get_menubar (unDOMWindow (toDOMWindow self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"personalbar\"]"
         ghcjs_dom_dom_window_get_personalbar ::
         JSRef DOMWindow -> IO (JSRef BarProp)
@@ -610,7 +610,7 @@
          (unDOMWindow (toDOMWindow self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"scrollbars\"]"
         ghcjs_dom_dom_window_get_scrollbars ::
         JSRef DOMWindow -> IO (JSRef BarProp)
@@ -628,7 +628,7 @@
          (unDOMWindow (toDOMWindow self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"statusbar\"]"
         ghcjs_dom_dom_window_get_statusbar ::
         JSRef DOMWindow -> IO (JSRef BarProp)
@@ -646,7 +646,7 @@
          (unDOMWindow (toDOMWindow self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"toolbar\"]"
         ghcjs_dom_dom_window_get_toolbar ::
         JSRef DOMWindow -> IO (JSRef BarProp)
@@ -663,7 +663,7 @@
       (ghcjs_dom_dom_window_get_toolbar (unDOMWindow (toDOMWindow self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"navigator\"]"
         ghcjs_dom_dom_window_get_navigator ::
         JSRef DOMWindow -> IO (JSRef Navigator)
@@ -681,7 +681,7 @@
          (unDOMWindow (toDOMWindow self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"clientInformation\"]"
         ghcjs_dom_dom_window_get_client_information ::
         JSRef DOMWindow -> IO (JSRef Navigator)
@@ -699,7 +699,7 @@
          (unDOMWindow (toDOMWindow self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"frameElement\"]"
         ghcjs_dom_dom_window_get_frame_element ::
         JSRef DOMWindow -> IO (JSRef Element)
@@ -717,7 +717,7 @@
          (unDOMWindow (toDOMWindow self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "($1[\"offscreenBuffering\"] ? 1 : 0)"
         ghcjs_dom_dom_window_get_offscreen_buffering ::
@@ -735,7 +735,7 @@
       (unDOMWindow (toDOMWindow self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"outerHeight\"]"
         ghcjs_dom_dom_window_get_outer_height :: JSRef DOMWindow -> IO Int
 #else 
@@ -749,7 +749,7 @@
       (unDOMWindow (toDOMWindow self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"outerWidth\"]"
         ghcjs_dom_dom_window_get_outer_width :: JSRef DOMWindow -> IO Int
 #else 
@@ -763,7 +763,7 @@
       (unDOMWindow (toDOMWindow self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"innerHeight\"]"
         ghcjs_dom_dom_window_get_inner_height :: JSRef DOMWindow -> IO Int
 #else 
@@ -777,7 +777,7 @@
       (unDOMWindow (toDOMWindow self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"innerWidth\"]"
         ghcjs_dom_dom_window_get_inner_width :: JSRef DOMWindow -> IO Int
 #else 
@@ -791,7 +791,7 @@
       (unDOMWindow (toDOMWindow self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"screenX\"]"
         ghcjs_dom_dom_window_get_screen_x :: JSRef DOMWindow -> IO Int
 #else 
@@ -805,7 +805,7 @@
       (unDOMWindow (toDOMWindow self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"screenY\"]"
         ghcjs_dom_dom_window_get_screen_y :: JSRef DOMWindow -> IO Int
 #else 
@@ -819,7 +819,7 @@
       (unDOMWindow (toDOMWindow self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"screenLeft\"]"
         ghcjs_dom_dom_window_get_screen_left :: JSRef DOMWindow -> IO Int
 #else 
@@ -833,7 +833,7 @@
       (unDOMWindow (toDOMWindow self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"screenTop\"]"
         ghcjs_dom_dom_window_get_screen_top :: JSRef DOMWindow -> IO Int
 #else 
@@ -847,7 +847,7 @@
       (unDOMWindow (toDOMWindow self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"scrollX\"]"
         ghcjs_dom_dom_window_get_scroll_x :: JSRef DOMWindow -> IO Int
 #else 
@@ -861,7 +861,7 @@
       (unDOMWindow (toDOMWindow self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"scrollY\"]"
         ghcjs_dom_dom_window_get_scroll_y :: JSRef DOMWindow -> IO Int
 #else 
@@ -875,7 +875,7 @@
       (unDOMWindow (toDOMWindow self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"pageXOffset\"]"
         ghcjs_dom_dom_window_get_page_x_offset :: JSRef DOMWindow -> IO Int
 #else 
@@ -889,7 +889,7 @@
       (unDOMWindow (toDOMWindow self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"pageYOffset\"]"
         ghcjs_dom_dom_window_get_page_y_offset :: JSRef DOMWindow -> IO Int
 #else 
@@ -903,7 +903,7 @@
       (unDOMWindow (toDOMWindow self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"closed\"] ? 1 : 0)"
         ghcjs_dom_dom_window_get_closed :: JSRef DOMWindow -> IO Bool
 #else 
@@ -916,7 +916,7 @@
   = ghcjs_dom_dom_window_get_closed (unDOMWindow (toDOMWindow self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"length\"]"
         ghcjs_dom_dom_window_get_length :: JSRef DOMWindow -> IO Word
 #else 
@@ -929,7 +929,7 @@
   = ghcjs_dom_dom_window_get_length (unDOMWindow (toDOMWindow self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"name\"] = $2;"
         ghcjs_dom_dom_window_set_name ::
         JSRef DOMWindow -> JSString -> IO ()
@@ -946,7 +946,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"name\"]"
         ghcjs_dom_dom_window_get_name :: JSRef DOMWindow -> IO JSString
 #else 
@@ -961,7 +961,7 @@
       (ghcjs_dom_dom_window_get_name (unDOMWindow (toDOMWindow self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"status\"] = $2;"
         ghcjs_dom_dom_window_set_status ::
         JSRef DOMWindow -> JSString -> IO ()
@@ -978,7 +978,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"status\"]"
         ghcjs_dom_dom_window_get_status :: JSRef DOMWindow -> IO JSString
 #else 
@@ -993,7 +993,7 @@
       (ghcjs_dom_dom_window_get_status (unDOMWindow (toDOMWindow self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"defaultStatus\"] = $2;"
         ghcjs_dom_dom_window_set_default_status ::
         JSRef DOMWindow -> JSString -> IO ()
@@ -1011,7 +1011,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"defaultStatus\"]"
         ghcjs_dom_dom_window_get_default_status ::
         JSRef DOMWindow -> IO JSString
@@ -1029,7 +1029,7 @@
          (unDOMWindow (toDOMWindow self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"self\"]"
         ghcjs_dom_dom_window_get_self ::
         JSRef DOMWindow -> IO (JSRef DOMWindow)
@@ -1046,7 +1046,7 @@
       (ghcjs_dom_dom_window_get_self (unDOMWindow (toDOMWindow self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"window\"]"
         ghcjs_dom_dom_window_get_window ::
         JSRef DOMWindow -> IO (JSRef DOMWindow)
@@ -1063,7 +1063,7 @@
       (ghcjs_dom_dom_window_get_window (unDOMWindow (toDOMWindow self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"frames\"]"
         ghcjs_dom_dom_window_get_frames ::
         JSRef DOMWindow -> IO (JSRef DOMWindow)
@@ -1080,7 +1080,7 @@
       (ghcjs_dom_dom_window_get_frames (unDOMWindow (toDOMWindow self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"opener\"]"
         ghcjs_dom_dom_window_get_opener ::
         JSRef DOMWindow -> IO (JSRef DOMWindow)
@@ -1097,7 +1097,7 @@
       (ghcjs_dom_dom_window_get_opener (unDOMWindow (toDOMWindow self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"parent\"]"
         ghcjs_dom_dom_window_get_parent ::
         JSRef DOMWindow -> IO (JSRef DOMWindow)
@@ -1114,7 +1114,7 @@
       (ghcjs_dom_dom_window_get_parent (unDOMWindow (toDOMWindow self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"top\"]"
         ghcjs_dom_dom_window_get_top ::
         JSRef DOMWindow -> IO (JSRef DOMWindow)
@@ -1131,7 +1131,7 @@
       (ghcjs_dom_dom_window_get_top (unDOMWindow (toDOMWindow self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"document\"]"
         ghcjs_dom_dom_window_get_document ::
         JSRef DOMWindow -> IO (JSRef Document)
@@ -1149,7 +1149,7 @@
          (unDOMWindow (toDOMWindow self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"styleMedia\"]"
         ghcjs_dom_dom_window_get_style_media ::
         JSRef DOMWindow -> IO (JSRef StyleMedia)
@@ -1167,7 +1167,7 @@
          (unDOMWindow (toDOMWindow self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"devicePixelRatio\"]"
         ghcjs_dom_dom_window_get_device_pixel_ratio ::
         JSRef DOMWindow -> IO Double
@@ -1184,7 +1184,7 @@
       (unDOMWindow (toDOMWindow self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"applicationCache\"]"
         ghcjs_dom_dom_window_get_application_cache ::
         JSRef DOMWindow -> IO (JSRef DOMApplicationCache)
@@ -1202,7 +1202,7 @@
          (unDOMWindow (toDOMWindow self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"sessionStorage\"]"
         ghcjs_dom_dom_window_get_session_storage ::
         JSRef DOMWindow -> IO (JSRef Storage)
@@ -1220,7 +1220,7 @@
          (unDOMWindow (toDOMWindow self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"localStorage\"]"
         ghcjs_dom_dom_window_get_local_storage ::
         JSRef DOMWindow -> IO (JSRef Storage)
@@ -1238,7 +1238,7 @@
          (unDOMWindow (toDOMWindow self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"console\"]"
         ghcjs_dom_dom_window_get_console ::
         JSRef DOMWindow -> IO (JSRef Console)
@@ -1255,7 +1255,7 @@
       (ghcjs_dom_dom_window_get_console (unDOMWindow (toDOMWindow self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"CSS\"]"
         ghcjs_dom_dom_window_get_css ::
         JSRef DOMWindow -> IO (JSRef DOMWindowCSS)
diff --git a/src/GHCJS/DOM/DOMWindowCSS.hs b/src/GHCJS/DOM/DOMWindowCSS.hs
--- a/src/GHCJS/DOM/DOMWindowCSS.hs
+++ b/src/GHCJS/DOM/DOMWindowCSS.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.DOMWindowCSS
        (ghcjs_dom_dom_window_css_supports, domWindowCSSSupports,
@@ -21,17 +21,17 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe
         "($1[\"supports\"]($2, $3) ? 1 : 0)"
         ghcjs_dom_dom_window_css_supports ::
         JSRef DOMWindowCSS -> JSString -> JSString -> IO Bool
-#else 
+#else
 ghcjs_dom_dom_window_css_supports ::
                                     JSRef DOMWindowCSS -> JSString -> JSString -> IO Bool
 ghcjs_dom_dom_window_css_supports = undefined
 #endif
- 
+
 domWindowCSSSupports ::
                      (IsDOMWindowCSS self, ToJSString property, ToJSString value) =>
                        self -> property -> value -> IO Bool
@@ -41,24 +41,6 @@
       (toJSString property)
       (toJSString value)
 
-
-#ifdef __GHCJS__ 
-foreign import javascript unsafe "($1[\"supports\"]($2) ? 1 : 0)"
-        ghcjs_dom_dom_window_css_supports ::
-        JSRef DOMWindowCSS -> JSString -> IO Bool
-#else 
-ghcjs_dom_dom_window_css_supports ::
-                                    JSRef DOMWindowCSS -> JSString -> IO Bool
-ghcjs_dom_dom_window_css_supports = undefined
-#endif
- 
-domWindowCSSSupports ::
-                     (IsDOMWindowCSS self, ToJSString conditionText) =>
-                       self -> conditionText -> IO Bool
-domWindowCSSSupports self conditionText
-  = ghcjs_dom_dom_window_css_supports
-      (unDOMWindowCSS (toDOMWindowCSS self))
-      (toJSString conditionText)
 #else
 module GHCJS.DOM.DOMWindowCSS (
   module Graphics.UI.Gtk.WebKit.DOM.DOMWindowCSS
diff --git a/src/GHCJS/DOM/Document.hs b/src/GHCJS/DOM/Document.hs
--- a/src/GHCJS/DOM/Document.hs
+++ b/src/GHCJS/DOM/Document.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.Document
        (ghcjs_dom_document_create_element, documentCreateElement,
@@ -136,7 +136,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"createElement\"]($2)"
         ghcjs_dom_document_create_element ::
         JSRef Document -> JSString -> IO (JSRef Element)
@@ -155,7 +155,7 @@
          (toJSString tagName))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"createDocumentFragment\"]()"
         ghcjs_dom_document_create_document_fragment ::
         JSRef Document -> IO (JSRef DocumentFragment)
@@ -173,7 +173,7 @@
          (unDocument (toDocument self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"createTextNode\"]($2)"
         ghcjs_dom_document_create_text_node ::
         JSRef Document -> JSString -> IO (JSRef Text)
@@ -192,7 +192,7 @@
          (toJSString data'))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"createComment\"]($2)"
         ghcjs_dom_document_create_comment ::
         JSRef Document -> JSString -> IO (JSRef Comment)
@@ -211,7 +211,7 @@
          (toJSString data'))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"createCDATASection\"]($2)"
         ghcjs_dom_document_create_cdata_section ::
         JSRef Document -> JSString -> IO (JSRef CDATASection)
@@ -231,7 +231,7 @@
          (toJSString data'))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "$1[\"createProcessingInstruction\"]($2,\n$3)"
         ghcjs_dom_document_create_processing_instruction ::
@@ -256,7 +256,7 @@
          (toJSString data'))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"createAttribute\"]($2)"
         ghcjs_dom_document_create_attribute ::
         JSRef Document -> JSString -> IO (JSRef DOMAttr)
@@ -275,7 +275,7 @@
          (toJSString name))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "$1[\"createEntityReference\"]($2)"
         ghcjs_dom_document_create_entity_reference ::
@@ -297,7 +297,7 @@
          (toJSString name))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"getElementsByTagName\"]($2)"
         ghcjs_dom_document_get_elements_by_tag_name ::
         JSRef Document -> JSString -> IO (JSRef NodeList)
@@ -317,7 +317,7 @@
          (toJSString tagname))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"importNode\"]($2, $3)"
         ghcjs_dom_document_import_node ::
         JSRef Document -> JSRef Node -> Bool -> IO (JSRef Node)
@@ -337,7 +337,7 @@
          deep)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"createElementNS\"]($2, $3)"
         ghcjs_dom_document_create_element_ns ::
         JSRef Document -> JSString -> JSString -> IO (JSRef Element)
@@ -359,7 +359,7 @@
          (toJSString qualifiedName))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "$1[\"createAttributeNS\"]($2, $3)"
         ghcjs_dom_document_create_attribute_ns ::
@@ -383,7 +383,7 @@
          (toJSString qualifiedName))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "$1[\"getElementsByTagNameNS\"]($2,\n$3)"
         ghcjs_dom_document_get_elements_by_tag_name_ns ::
@@ -406,7 +406,7 @@
          (toJSString localName))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"getElementById\"]($2)"
         ghcjs_dom_document_get_element_by_id ::
         JSRef Document -> JSString -> IO (JSRef Element)
@@ -426,7 +426,7 @@
          (toJSString elementId))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"adoptNode\"]($2)"
         ghcjs_dom_document_adopt_node ::
         JSRef Document -> JSRef Node -> IO (JSRef Node)
@@ -445,7 +445,7 @@
          (maybe jsNull (unNode . toNode) source))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"createEvent\"]($2)"
         ghcjs_dom_document_create_event ::
         JSRef Document -> JSString -> IO (JSRef Event)
@@ -464,7 +464,7 @@
          (toJSString eventType))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"createRange\"]()"
         ghcjs_dom_document_create_range ::
         JSRef Document -> IO (JSRef DOMRange)
@@ -481,7 +481,7 @@
       (ghcjs_dom_document_create_range (unDocument (toDocument self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "$1[\"createNodeIterator\"]($2, $3,\n$4, $5)"
         ghcjs_dom_document_create_node_iterator ::
@@ -513,7 +513,7 @@
          expandEntityReferences)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "$1[\"createTreeWalker\"]($2, $3,\n$4, $5)"
         ghcjs_dom_document_create_tree_walker ::
@@ -544,7 +544,7 @@
          expandEntityReferences)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"getOverrideStyle\"]($2, $3)"
         ghcjs_dom_document_get_override_style ::
         JSRef Document ->
@@ -569,7 +569,7 @@
          (toJSString pseudoElement))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"createExpression\"]($2, $3)"
         ghcjs_dom_document_create_expression ::
         JSRef Document ->
@@ -594,7 +594,7 @@
          (maybe jsNull (unXPathNSResolver . toXPathNSResolver) resolver))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"createNSResolver\"]($2)"
         ghcjs_dom_document_create_ns_resolver ::
         JSRef Document -> JSRef Node -> IO (JSRef XPathNSResolver)
@@ -614,7 +614,7 @@
          (maybe jsNull (unNode . toNode) nodeResolver))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "$1[\"evaluate\"]($2, $3, $4, $5,\n$6)" ghcjs_dom_document_evaluate
         ::
@@ -651,7 +651,7 @@
          (maybe jsNull (unXPathResult . toXPathResult) inResult))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "($1[\"execCommand\"]($2, $3,\n$4) ? 1 : 0)"
         ghcjs_dom_document_exec_command ::
@@ -672,7 +672,7 @@
       (toJSString value)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "($1[\"queryCommandEnabled\"]($2) ? 1 : 0)"
         ghcjs_dom_document_query_command_enabled ::
@@ -691,7 +691,7 @@
       (toJSString command)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "($1[\"queryCommandIndeterm\"]($2) ? 1 : 0)"
         ghcjs_dom_document_query_command_indeterm ::
@@ -710,7 +710,7 @@
       (toJSString command)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "($1[\"queryCommandState\"]($2) ? 1 : 0)"
         ghcjs_dom_document_query_command_state ::
@@ -729,7 +729,7 @@
       (toJSString command)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "($1[\"queryCommandSupported\"]($2) ? 1 : 0)"
         ghcjs_dom_document_query_command_supported ::
@@ -748,7 +748,7 @@
       (toJSString command)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"queryCommandValue\"]($2)"
         ghcjs_dom_document_query_command_value ::
         JSRef Document -> JSString -> IO JSString
@@ -768,7 +768,7 @@
          (toJSString command))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"getElementsByName\"]($2)"
         ghcjs_dom_document_get_elements_by_name ::
         JSRef Document -> JSString -> IO (JSRef NodeList)
@@ -788,7 +788,7 @@
          (toJSString elementName))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"elementFromPoint\"]($2, $3)"
         ghcjs_dom_document_element_from_point ::
         JSRef Document -> Int -> Int -> IO (JSRef Element)
@@ -808,7 +808,7 @@
          y)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "$1[\"caretRangeFromPoint\"]($2,\n$3)"
         ghcjs_dom_document_caret_range_from_point ::
@@ -829,7 +829,7 @@
          y)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "$1[\"createCSSStyleDeclaration\"]()"
         ghcjs_dom_document_create_css_style_declaration ::
@@ -848,7 +848,7 @@
          (unDocument (toDocument self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "$1[\"getElementsByClassName\"]($2)"
         ghcjs_dom_document_get_elements_by_class_name ::
@@ -869,7 +869,7 @@
          (toJSString tagname))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"querySelector\"]($2)"
         ghcjs_dom_document_query_selector ::
         JSRef Document -> JSString -> IO (JSRef Element)
@@ -888,7 +888,7 @@
          (toJSString selectors))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"querySelectorAll\"]($2)"
         ghcjs_dom_document_query_selector_all ::
         JSRef Document -> JSString -> IO (JSRef NodeList)
@@ -908,7 +908,7 @@
          (toJSString selectors))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"webkitExitPointerLock\"]()"
         ghcjs_dom_document_webkit_exit_pointer_lock ::
         JSRef Document -> IO ()
@@ -924,7 +924,7 @@
       (unDocument (toDocument self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"webkitGetNamedFlows\"]()"
         ghcjs_dom_document_webkit_get_named_flows ::
         JSRef Document -> IO (JSRef DOMNamedFlowCollection)
@@ -942,7 +942,7 @@
          (unDocument (toDocument self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"doctype\"]"
         ghcjs_dom_document_get_doctype ::
         JSRef Document -> IO (JSRef DocumentType)
@@ -959,7 +959,7 @@
       (ghcjs_dom_document_get_doctype (unDocument (toDocument self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"implementation\"]"
         ghcjs_dom_document_get_implementation ::
         JSRef Document -> IO (JSRef DOMImplementation)
@@ -977,7 +977,7 @@
          (unDocument (toDocument self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"documentElement\"]"
         ghcjs_dom_document_get_document_element ::
         JSRef Document -> IO (JSRef Element)
@@ -995,7 +995,7 @@
          (unDocument (toDocument self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"inputEncoding\"]"
         ghcjs_dom_document_get_input_encoding ::
         JSRef Document -> IO JSString
@@ -1013,7 +1013,7 @@
          (unDocument (toDocument self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"xmlEncoding\"]"
         ghcjs_dom_document_get_xml_encoding ::
         JSRef Document -> IO JSString
@@ -1031,7 +1031,7 @@
          (unDocument (toDocument self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"xmlVersion\"] = $2;"
         ghcjs_dom_document_set_xml_version ::
         JSRef Document -> JSString -> IO ()
@@ -1048,7 +1048,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"xmlVersion\"]"
         ghcjs_dom_document_get_xml_version :: JSRef Document -> IO JSString
 #else 
@@ -1063,7 +1063,7 @@
       (ghcjs_dom_document_get_xml_version (unDocument (toDocument self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"xmlStandalone\"] = $2;"
         ghcjs_dom_document_set_xml_standalone ::
         JSRef Document -> Bool -> IO ()
@@ -1081,7 +1081,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"xmlStandalone\"] ? 1 : 0)"
         ghcjs_dom_document_get_xml_standalone :: JSRef Document -> IO Bool
 #else 
@@ -1095,7 +1095,7 @@
       (unDocument (toDocument self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"documentURI\"] = $2;"
         ghcjs_dom_document_set_document_uri ::
         JSRef Document -> JSString -> IO ()
@@ -1113,7 +1113,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"documentURI\"]"
         ghcjs_dom_document_get_document_uri ::
         JSRef Document -> IO JSString
@@ -1131,7 +1131,7 @@
          (unDocument (toDocument self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"defaultView\"]"
         ghcjs_dom_document_get_default_view ::
         JSRef Document -> IO (JSRef DOMWindow)
@@ -1149,7 +1149,7 @@
          (unDocument (toDocument self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"styleSheets\"]"
         ghcjs_dom_document_get_style_sheets ::
         JSRef Document -> IO (JSRef StyleSheetList)
@@ -1167,7 +1167,7 @@
          (unDocument (toDocument self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"title\"] = $2;"
         ghcjs_dom_document_set_title :: JSRef Document -> JSString -> IO ()
 #else 
@@ -1182,7 +1182,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"title\"]"
         ghcjs_dom_document_get_title :: JSRef Document -> IO JSString
 #else 
@@ -1197,7 +1197,7 @@
       (ghcjs_dom_document_get_title (unDocument (toDocument self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"referrer\"]"
         ghcjs_dom_document_get_referrer :: JSRef Document -> IO JSString
 #else 
@@ -1212,7 +1212,7 @@
       (ghcjs_dom_document_get_referrer (unDocument (toDocument self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"domain\"]"
         ghcjs_dom_document_get_domain :: JSRef Document -> IO JSString
 #else 
@@ -1227,7 +1227,7 @@
       (ghcjs_dom_document_get_domain (unDocument (toDocument self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"cookie\"] = $2;"
         ghcjs_dom_document_set_cookie ::
         JSRef Document -> JSString -> IO ()
@@ -1244,7 +1244,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"cookie\"]"
         ghcjs_dom_document_get_cookie :: JSRef Document -> IO JSString
 #else 
@@ -1259,7 +1259,7 @@
       (ghcjs_dom_document_get_cookie (unDocument (toDocument self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"body\"] = $2;"
         ghcjs_dom_document_set_body ::
         JSRef Document -> JSRef HTMLElement -> IO ()
@@ -1276,7 +1276,7 @@
       (maybe jsNull (unHTMLElement . toHTMLElement) val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"body\"]"
         ghcjs_dom_document_get_body ::
         JSRef Document -> IO (JSRef HTMLElement)
@@ -1293,7 +1293,7 @@
       (ghcjs_dom_document_get_body (unDocument (toDocument self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"head\"]"
         ghcjs_dom_document_get_head ::
         JSRef Document -> IO (JSRef HTMLHeadElement)
@@ -1310,7 +1310,7 @@
       (ghcjs_dom_document_get_head (unDocument (toDocument self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"images\"]"
         ghcjs_dom_document_get_images ::
         JSRef Document -> IO (JSRef HTMLCollection)
@@ -1327,7 +1327,7 @@
       (ghcjs_dom_document_get_images (unDocument (toDocument self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"applets\"]"
         ghcjs_dom_document_get_applets ::
         JSRef Document -> IO (JSRef HTMLCollection)
@@ -1344,7 +1344,7 @@
       (ghcjs_dom_document_get_applets (unDocument (toDocument self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"links\"]"
         ghcjs_dom_document_get_links ::
         JSRef Document -> IO (JSRef HTMLCollection)
@@ -1361,7 +1361,7 @@
       (ghcjs_dom_document_get_links (unDocument (toDocument self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"forms\"]"
         ghcjs_dom_document_get_forms ::
         JSRef Document -> IO (JSRef HTMLCollection)
@@ -1378,7 +1378,7 @@
       (ghcjs_dom_document_get_forms (unDocument (toDocument self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"anchors\"]"
         ghcjs_dom_document_get_anchors ::
         JSRef Document -> IO (JSRef HTMLCollection)
@@ -1395,7 +1395,7 @@
       (ghcjs_dom_document_get_anchors (unDocument (toDocument self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"lastModified\"]"
         ghcjs_dom_document_get_last_modified ::
         JSRef Document -> IO JSString
@@ -1413,7 +1413,7 @@
          (unDocument (toDocument self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"charset\"] = $2;"
         ghcjs_dom_document_set_charset ::
         JSRef Document -> JSString -> IO ()
@@ -1430,7 +1430,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"charset\"]"
         ghcjs_dom_document_get_charset :: JSRef Document -> IO JSString
 #else 
@@ -1445,7 +1445,7 @@
       (ghcjs_dom_document_get_charset (unDocument (toDocument self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"defaultCharset\"]"
         ghcjs_dom_document_get_default_charset ::
         JSRef Document -> IO JSString
@@ -1463,7 +1463,7 @@
          (unDocument (toDocument self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"readyState\"]"
         ghcjs_dom_document_get_ready_state :: JSRef Document -> IO JSString
 #else 
@@ -1478,7 +1478,7 @@
       (ghcjs_dom_document_get_ready_state (unDocument (toDocument self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"characterSet\"]"
         ghcjs_dom_document_get_character_set ::
         JSRef Document -> IO JSString
@@ -1496,7 +1496,7 @@
          (unDocument (toDocument self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"preferredStylesheetSet\"]"
         ghcjs_dom_document_get_preferred_stylesheet_set ::
         JSRef Document -> IO JSString
@@ -1514,7 +1514,7 @@
          (unDocument (toDocument self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "$1[\"selectedStylesheetSet\"] = $2;"
         ghcjs_dom_document_set_selected_stylesheet_set ::
@@ -1533,7 +1533,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"selectedStylesheetSet\"]"
         ghcjs_dom_document_get_selected_stylesheet_set ::
         JSRef Document -> IO JSString
@@ -1551,7 +1551,7 @@
          (unDocument (toDocument self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"compatMode\"]"
         ghcjs_dom_document_get_compat_mode :: JSRef Document -> IO JSString
 #else 
@@ -1566,7 +1566,7 @@
       (ghcjs_dom_document_get_compat_mode (unDocument (toDocument self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"webkitPointerLockElement\"]"
         ghcjs_dom_document_get_webkit_pointer_lock_element ::
         JSRef Document -> IO (JSRef Element)
@@ -1796,7 +1796,7 @@
   = (connect "securitypolicyviolation")
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"visibilityState\"]"
         ghcjs_dom_document_get_visibility_state ::
         JSRef Document -> IO JSString
@@ -1814,7 +1814,7 @@
          (unDocument (toDocument self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"hidden\"] ? 1 : 0)"
         ghcjs_dom_document_get_hidden :: JSRef Document -> IO Bool
 #else 
@@ -1827,7 +1827,7 @@
   = ghcjs_dom_document_get_hidden (unDocument (toDocument self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"securityPolicy\"]"
         ghcjs_dom_document_get_security_policy ::
         JSRef Document -> IO (JSRef DOMSecurityPolicy)
@@ -1845,7 +1845,7 @@
          (unDocument (toDocument self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"currentScript\"]"
         ghcjs_dom_document_get_current_script ::
         JSRef Document -> IO (JSRef HTMLScriptElement)
diff --git a/src/GHCJS/DOM/DocumentType.hs b/src/GHCJS/DOM/DocumentType.hs
--- a/src/GHCJS/DOM/DocumentType.hs
+++ b/src/GHCJS/DOM/DocumentType.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.DocumentType
        (ghcjs_dom_document_type_get_name, documentTypeGetName,
@@ -26,7 +26,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"name\"]"
         ghcjs_dom_document_type_get_name ::
         JSRef DocumentType -> IO JSString
@@ -44,7 +44,7 @@
          (unDocumentType (toDocumentType self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"entities\"]"
         ghcjs_dom_document_type_get_entities ::
         JSRef DocumentType -> IO (JSRef NamedNodeMap)
@@ -62,7 +62,7 @@
          (unDocumentType (toDocumentType self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"notations\"]"
         ghcjs_dom_document_type_get_notations ::
         JSRef DocumentType -> IO (JSRef NamedNodeMap)
@@ -80,7 +80,7 @@
          (unDocumentType (toDocumentType self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"publicId\"]"
         ghcjs_dom_document_type_get_public_id ::
         JSRef DocumentType -> IO JSString
@@ -98,7 +98,7 @@
          (unDocumentType (toDocumentType self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"systemId\"]"
         ghcjs_dom_document_type_get_system_id ::
         JSRef DocumentType -> IO JSString
@@ -116,7 +116,7 @@
          (unDocumentType (toDocumentType self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"internalSubset\"]"
         ghcjs_dom_document_type_get_internal_subset ::
         JSRef DocumentType -> IO JSString
diff --git a/src/GHCJS/DOM/Element.hs b/src/GHCJS/DOM/Element.hs
--- a/src/GHCJS/DOM/Element.hs
+++ b/src/GHCJS/DOM/Element.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.Element
        (ghcjs_dom_element_get_attribute, elementGetAttribute,
@@ -99,7 +99,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"getAttribute\"]($2)"
         ghcjs_dom_element_get_attribute ::
         JSRef Element -> JSString -> IO JSString
@@ -118,7 +118,7 @@
          (toJSString name))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"setAttribute\"]($2, $3)"
         ghcjs_dom_element_set_attribute ::
         JSRef Element -> JSString -> JSString -> IO ()
@@ -137,7 +137,7 @@
       (toJSString value)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"removeAttribute\"]($2)"
         ghcjs_dom_element_remove_attribute ::
         JSRef Element -> JSString -> IO ()
@@ -154,7 +154,7 @@
       (toJSString name)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"getAttributeNode\"]($2)"
         ghcjs_dom_element_get_attribute_node ::
         JSRef Element -> JSString -> IO (JSRef DOMAttr)
@@ -173,7 +173,7 @@
          (toJSString name))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"setAttributeNode\"]($2)"
         ghcjs_dom_element_set_attribute_node ::
         JSRef Element -> JSRef DOMAttr -> IO (JSRef DOMAttr)
@@ -192,7 +192,7 @@
          (maybe jsNull (unDOMAttr . toDOMAttr) newAttr))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"removeAttributeNode\"]($2)"
         ghcjs_dom_element_remove_attribute_node ::
         JSRef Element -> JSRef DOMAttr -> IO (JSRef DOMAttr)
@@ -212,7 +212,7 @@
          (maybe jsNull (unDOMAttr . toDOMAttr) oldAttr))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"getElementsByTagName\"]($2)"
         ghcjs_dom_element_get_elements_by_tag_name ::
         JSRef Element -> JSString -> IO (JSRef NodeList)
@@ -232,7 +232,7 @@
          (toJSString name))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "($1[\"hasAttributes\"]() ? 1 : 0)"
         ghcjs_dom_element_has_attributes :: JSRef Element -> IO Bool
@@ -246,7 +246,7 @@
   = ghcjs_dom_element_has_attributes (unElement (toElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"getAttributeNS\"]($2, $3)"
         ghcjs_dom_element_get_attribute_ns ::
         JSRef Element -> JSString -> JSString -> IO JSString
@@ -267,7 +267,7 @@
          (toJSString localName))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "$1[\"setAttributeNS\"]($2, $3, $4)"
         ghcjs_dom_element_set_attribute_ns ::
@@ -289,7 +289,7 @@
       (toJSString value)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "$1[\"removeAttributeNS\"]($2, $3)"
         ghcjs_dom_element_remove_attribute_ns ::
@@ -310,7 +310,7 @@
       (toJSString localName)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "$1[\"getElementsByTagNameNS\"]($2,\n$3)"
         ghcjs_dom_element_get_elements_by_tag_name_ns ::
@@ -333,7 +333,7 @@
          (toJSString localName))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "$1[\"getAttributeNodeNS\"]($2, $3)"
         ghcjs_dom_element_get_attribute_node_ns ::
@@ -356,7 +356,7 @@
          (toJSString localName))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"setAttributeNodeNS\"]($2)"
         ghcjs_dom_element_set_attribute_node_ns ::
         JSRef Element -> JSRef DOMAttr -> IO (JSRef DOMAttr)
@@ -376,7 +376,7 @@
          (maybe jsNull (unDOMAttr . toDOMAttr) newAttr))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "($1[\"hasAttribute\"]($2) ? 1 : 0)"
         ghcjs_dom_element_has_attribute ::
@@ -394,7 +394,7 @@
       (toJSString name)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "($1[\"hasAttributeNS\"]($2,\n$3) ? 1 : 0)"
         ghcjs_dom_element_has_attribute_ns ::
@@ -414,7 +414,7 @@
       (toJSString localName)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"focus\"]()"
         ghcjs_dom_element_focus :: JSRef Element -> IO ()
 #else 
@@ -427,7 +427,7 @@
   = ghcjs_dom_element_focus (unElement (toElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"blur\"]()"
         ghcjs_dom_element_blur :: JSRef Element -> IO ()
 #else 
@@ -440,7 +440,7 @@
   = ghcjs_dom_element_blur (unElement (toElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"scrollIntoView\"]($2)"
         ghcjs_dom_element_scroll_into_view ::
         JSRef Element -> Bool -> IO ()
@@ -456,7 +456,7 @@
       alignWithTop
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "$1[\"scrollIntoViewIfNeeded\"]($2)"
         ghcjs_dom_element_scroll_into_view_if_needed ::
@@ -475,7 +475,7 @@
       centerIfNeeded
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"scrollByLines\"]($2)"
         ghcjs_dom_element_scroll_by_lines :: JSRef Element -> Int -> IO ()
 #else 
@@ -489,7 +489,7 @@
       lines
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"scrollByPages\"]($2)"
         ghcjs_dom_element_scroll_by_pages :: JSRef Element -> Int -> IO ()
 #else 
@@ -503,7 +503,7 @@
       pages
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "$1[\"getElementsByClassName\"]($2)"
         ghcjs_dom_element_get_elements_by_class_name ::
@@ -524,7 +524,7 @@
          (toJSString name))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"querySelector\"]($2)"
         ghcjs_dom_element_query_selector ::
         JSRef Element -> JSString -> IO (JSRef Element)
@@ -543,7 +543,7 @@
          (toJSString selectors))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"querySelectorAll\"]($2)"
         ghcjs_dom_element_query_selector_all ::
         JSRef Element -> JSString -> IO (JSRef NodeList)
@@ -562,7 +562,7 @@
          (toJSString selectors))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "($1[\"webkitMatchesSelector\"]($2) ? 1 : 0)"
         ghcjs_dom_element_webkit_matches_selector ::
@@ -582,7 +582,7 @@
       (toJSString selectors)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "$1[\"webkitRequestPointerLock\"]()"
         ghcjs_dom_element_webkit_request_pointer_lock ::
@@ -600,7 +600,7 @@
       (unElement (toElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"tagName\"]"
         ghcjs_dom_element_get_tag_name :: JSRef Element -> IO JSString
 #else 
@@ -615,7 +615,7 @@
       (ghcjs_dom_element_get_tag_name (unElement (toElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"attributes\"]"
         ghcjs_dom_element_get_attributes ::
         JSRef Element -> IO (JSRef NamedNodeMap)
@@ -632,7 +632,7 @@
       (ghcjs_dom_element_get_attributes (unElement (toElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"style\"]"
         ghcjs_dom_element_get_style ::
         JSRef Element -> IO (JSRef CSSStyleDeclaration)
@@ -649,7 +649,7 @@
       (ghcjs_dom_element_get_style (unElement (toElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"id\"] = $2;"
         ghcjs_dom_element_set_id :: JSRef Element -> JSString -> IO ()
 #else 
@@ -664,7 +664,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"id\"]"
         ghcjs_dom_element_get_id :: JSRef Element -> IO JSString
 #else 
@@ -679,7 +679,7 @@
       (ghcjs_dom_element_get_id (unElement (toElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"offsetLeft\"]"
         ghcjs_dom_element_get_offset_left :: JSRef Element -> IO Int
 #else 
@@ -692,7 +692,7 @@
   = ghcjs_dom_element_get_offset_left (unElement (toElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"offsetTop\"]"
         ghcjs_dom_element_get_offset_top :: JSRef Element -> IO Int
 #else 
@@ -705,7 +705,7 @@
   = ghcjs_dom_element_get_offset_top (unElement (toElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"offsetWidth\"]"
         ghcjs_dom_element_get_offset_width :: JSRef Element -> IO Int
 #else 
@@ -718,7 +718,7 @@
   = ghcjs_dom_element_get_offset_width (unElement (toElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"offsetHeight\"]"
         ghcjs_dom_element_get_offset_height :: JSRef Element -> IO Int
 #else 
@@ -731,7 +731,7 @@
   = ghcjs_dom_element_get_offset_height (unElement (toElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"offsetParent\"]"
         ghcjs_dom_element_get_offset_parent ::
         JSRef Element -> IO (JSRef Element)
@@ -748,7 +748,7 @@
       (ghcjs_dom_element_get_offset_parent (unElement (toElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"clientLeft\"]"
         ghcjs_dom_element_get_client_left :: JSRef Element -> IO Int
 #else 
@@ -761,7 +761,7 @@
   = ghcjs_dom_element_get_client_left (unElement (toElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"clientTop\"]"
         ghcjs_dom_element_get_client_top :: JSRef Element -> IO Int
 #else 
@@ -774,7 +774,7 @@
   = ghcjs_dom_element_get_client_top (unElement (toElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"clientWidth\"]"
         ghcjs_dom_element_get_client_width :: JSRef Element -> IO Int
 #else 
@@ -787,7 +787,7 @@
   = ghcjs_dom_element_get_client_width (unElement (toElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"clientHeight\"]"
         ghcjs_dom_element_get_client_height :: JSRef Element -> IO Int
 #else 
@@ -800,7 +800,7 @@
   = ghcjs_dom_element_get_client_height (unElement (toElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"scrollLeft\"] = $2;"
         ghcjs_dom_element_set_scroll_left :: JSRef Element -> Int -> IO ()
 #else 
@@ -814,7 +814,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"scrollLeft\"]"
         ghcjs_dom_element_get_scroll_left :: JSRef Element -> IO Int
 #else 
@@ -827,7 +827,7 @@
   = ghcjs_dom_element_get_scroll_left (unElement (toElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"scrollTop\"] = $2;"
         ghcjs_dom_element_set_scroll_top :: JSRef Element -> Int -> IO ()
 #else 
@@ -840,7 +840,7 @@
   = ghcjs_dom_element_set_scroll_top (unElement (toElement self)) val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"scrollTop\"]"
         ghcjs_dom_element_get_scroll_top :: JSRef Element -> IO Int
 #else 
@@ -853,7 +853,7 @@
   = ghcjs_dom_element_get_scroll_top (unElement (toElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"scrollWidth\"]"
         ghcjs_dom_element_get_scroll_width :: JSRef Element -> IO Int
 #else 
@@ -866,7 +866,7 @@
   = ghcjs_dom_element_get_scroll_width (unElement (toElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"scrollHeight\"]"
         ghcjs_dom_element_get_scroll_height :: JSRef Element -> IO Int
 #else 
@@ -879,7 +879,7 @@
   = ghcjs_dom_element_get_scroll_height (unElement (toElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"className\"] = $2;"
         ghcjs_dom_element_set_class_name ::
         JSRef Element -> JSString -> IO ()
@@ -896,7 +896,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"className\"]"
         ghcjs_dom_element_get_class_name :: JSRef Element -> IO JSString
 #else 
@@ -911,7 +911,7 @@
       (ghcjs_dom_element_get_class_name (unElement (toElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"classList\"]"
         ghcjs_dom_element_get_class_list ::
         JSRef Element -> IO (JSRef DOMTokenList)
@@ -928,7 +928,7 @@
       (ghcjs_dom_element_get_class_list (unElement (toElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"firstElementChild\"]"
         ghcjs_dom_element_get_first_element_child ::
         JSRef Element -> IO (JSRef Element)
@@ -946,7 +946,7 @@
          (unElement (toElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"lastElementChild\"]"
         ghcjs_dom_element_get_last_element_child ::
         JSRef Element -> IO (JSRef Element)
@@ -964,7 +964,7 @@
          (unElement (toElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"previousElementSibling\"]"
         ghcjs_dom_element_get_previous_element_sibling ::
         JSRef Element -> IO (JSRef Element)
@@ -982,7 +982,7 @@
          (unElement (toElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"nextElementSibling\"]"
         ghcjs_dom_element_get_next_element_sibling ::
         JSRef Element -> IO (JSRef Element)
@@ -1000,7 +1000,7 @@
          (unElement (toElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"childElementCount\"]"
         ghcjs_dom_element_get_child_element_count ::
         JSRef Element -> IO Word
@@ -1016,7 +1016,7 @@
       (unElement (toElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"webkitRegionOverset\"]"
         ghcjs_dom_element_get_webkit_region_overset ::
         JSRef Element -> IO JSString
diff --git a/src/GHCJS/DOM/Event.hs b/src/GHCJS/DOM/Event.hs
--- a/src/GHCJS/DOM/Event.hs
+++ b/src/GHCJS/DOM/Event.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.Event
        (ghcjs_dom_event_stop_propagation, eventStopPropagation,
@@ -37,7 +37,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"stopPropagation\"]()"
         ghcjs_dom_event_stop_propagation :: JSRef Event -> IO ()
 #else 
@@ -50,7 +50,7 @@
   = ghcjs_dom_event_stop_propagation (unEvent (toEvent self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"preventDefault\"]()"
         ghcjs_dom_event_prevent_default :: JSRef Event -> IO ()
 #else 
@@ -63,7 +63,7 @@
   = ghcjs_dom_event_prevent_default (unEvent (toEvent self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"initEvent\"]($2, $3, $4)"
         ghcjs_dom_event_init_event ::
         JSRef Event -> JSString -> Bool -> Bool -> IO ()
@@ -83,7 +83,7 @@
       cancelableArg
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "$1[\"stopImmediatePropagation\"]()"
         ghcjs_dom_event_stop_immediate_propagation :: JSRef Event -> IO ()
@@ -118,7 +118,7 @@
 cCHANGE = 32768
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"target\"]"
         ghcjs_dom_event_get_target :: JSRef Event -> IO (JSRef EventTarget)
 #else 
@@ -132,7 +132,7 @@
       (ghcjs_dom_event_get_target (unEvent (toEvent self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"currentTarget\"]"
         ghcjs_dom_event_get_current_target ::
         JSRef Event -> IO (JSRef EventTarget)
@@ -149,7 +149,7 @@
       (ghcjs_dom_event_get_current_target (unEvent (toEvent self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"eventPhase\"]"
         ghcjs_dom_event_get_event_phase :: JSRef Event -> IO Word
 #else 
@@ -162,7 +162,7 @@
   = ghcjs_dom_event_get_event_phase (unEvent (toEvent self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"bubbles\"] ? 1 : 0)"
         ghcjs_dom_event_get_bubbles :: JSRef Event -> IO Bool
 #else 
@@ -175,7 +175,7 @@
   = ghcjs_dom_event_get_bubbles (unEvent (toEvent self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"cancelable\"] ? 1 : 0)"
         ghcjs_dom_event_get_cancelable :: JSRef Event -> IO Bool
 #else 
@@ -188,7 +188,7 @@
   = ghcjs_dom_event_get_cancelable (unEvent (toEvent self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"timeStamp\"]"
         ghcjs_dom_event_get_time_stamp :: JSRef Event -> IO Word
 #else 
@@ -202,7 +202,7 @@
       (ghcjs_dom_event_get_time_stamp (unEvent (toEvent self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "($1[\"defaultPrevented\"] ? 1 : 0)"
         ghcjs_dom_event_get_default_prevented :: JSRef Event -> IO Bool
@@ -216,7 +216,7 @@
   = ghcjs_dom_event_get_default_prevented (unEvent (toEvent self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"srcElement\"]"
         ghcjs_dom_event_get_src_element ::
         JSRef Event -> IO (JSRef EventTarget)
@@ -233,7 +233,7 @@
       (ghcjs_dom_event_get_src_element (unEvent (toEvent self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"returnValue\"] = $2;"
         ghcjs_dom_event_set_return_value :: JSRef Event -> Bool -> IO ()
 #else 
@@ -246,7 +246,7 @@
   = ghcjs_dom_event_set_return_value (unEvent (toEvent self)) val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"returnValue\"] ? 1 : 0)"
         ghcjs_dom_event_get_return_value :: JSRef Event -> IO Bool
 #else 
@@ -259,7 +259,7 @@
   = ghcjs_dom_event_get_return_value (unEvent (toEvent self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"cancelBubble\"] = $2;"
         ghcjs_dom_event_set_cancel_bubble :: JSRef Event -> Bool -> IO ()
 #else 
@@ -272,7 +272,7 @@
   = ghcjs_dom_event_set_cancel_bubble (unEvent (toEvent self)) val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"cancelBubble\"] ? 1 : 0)"
         ghcjs_dom_event_get_cancel_bubble :: JSRef Event -> IO Bool
 #else 
diff --git a/src/GHCJS/DOM/EventTargetClosures.hs b/src/GHCJS/DOM/EventTargetClosures.hs
--- a/src/GHCJS/DOM/EventTargetClosures.hs
+++ b/src/GHCJS/DOM/EventTargetClosures.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE JavaScriptFFI, ForeignFunctionInterface #-}
 module GHCJS.DOM.EventTargetClosures
        (eventTargetAddEventListener) where
@@ -9,7 +9,7 @@
 import GHCJS.DOM.Types
 import Control.Applicative ((<$>))
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe
         "($1[\"addEventListener\"]($2, $3, $4) ? 1 : 0)"
         ghcjs_dom_event_target_add_event_listener ::
@@ -24,7 +24,7 @@
                          (GObjectClass self, IsEvent event) =>
                            self -> String -> Bool -> (self -> event -> IO ()) -> IO Bool
 eventTargetAddEventListener self eventName bubble user = do
-    callback <- syncCallback1 False True $ \e -> user self (unsafeCastGObject $ GObject e)
+    callback <- syncCallback1 NeverRetain True $ \e -> user self (unsafeCastGObject $ GObject e)
     ghcjs_dom_event_target_add_event_listener
         (unGObject (toGObject self))
         (toJSString eventName)
diff --git a/src/GHCJS/DOM/Events.hs b/src/GHCJS/DOM/Events.hs
--- a/src/GHCJS/DOM/Events.hs
+++ b/src/GHCJS/DOM/Events.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.Events (Event, IsEvent) where
  
diff --git a/src/GHCJS/DOM/File.hs b/src/GHCJS/DOM/File.hs
--- a/src/GHCJS/DOM/File.hs
+++ b/src/GHCJS/DOM/File.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.File
        (ghcjs_dom_file_get_name, fileGetName,
@@ -21,7 +21,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"name\"]"
         ghcjs_dom_file_get_name :: JSRef File -> IO JSString
 #else 
@@ -35,7 +35,7 @@
   = fromJSString <$> (ghcjs_dom_file_get_name (unFile (toFile self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"webkitRelativePath\"]"
         ghcjs_dom_file_get_webkit_relative_path ::
         JSRef File -> IO JSString
diff --git a/src/GHCJS/DOM/FileList.hs b/src/GHCJS/DOM/FileList.hs
--- a/src/GHCJS/DOM/FileList.hs
+++ b/src/GHCJS/DOM/FileList.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.FileList
        (ghcjs_dom_file_list_item, fileListItem,
@@ -21,7 +21,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"item\"]($2)"
         ghcjs_dom_file_list_item ::
         JSRef FileList -> Word -> IO (JSRef File)
@@ -38,7 +38,7 @@
       (ghcjs_dom_file_list_item (unFileList (toFileList self)) index)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"length\"]"
         ghcjs_dom_file_list_get_length :: JSRef FileList -> IO Word
 #else 
diff --git a/src/GHCJS/DOM/Geolocation.hs b/src/GHCJS/DOM/Geolocation.hs
--- a/src/GHCJS/DOM/Geolocation.hs
+++ b/src/GHCJS/DOM/Geolocation.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.Geolocation
        (ghcjs_dom_geolocation_clear_watch, geolocationClearWatch,
@@ -21,7 +21,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"clearWatch\"]($2)"
         ghcjs_dom_geolocation_clear_watch ::
         JSRef Geolocation -> Int -> IO ()
diff --git a/src/GHCJS/DOM/HTMLAnchorElement.hs b/src/GHCJS/DOM/HTMLAnchorElement.hs
--- a/src/GHCJS/DOM/HTMLAnchorElement.hs
+++ b/src/GHCJS/DOM/HTMLAnchorElement.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.HTMLAnchorElement
        (ghcjs_dom_html_anchor_element_set_charset,
@@ -77,7 +77,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"charset\"] = $2;"
         ghcjs_dom_html_anchor_element_set_charset ::
         JSRef HTMLAnchorElement -> JSString -> IO ()
@@ -95,7 +95,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"charset\"]"
         ghcjs_dom_html_anchor_element_get_charset ::
         JSRef HTMLAnchorElement -> IO JSString
@@ -114,7 +114,7 @@
          (unHTMLAnchorElement (toHTMLAnchorElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"coords\"] = $2;"
         ghcjs_dom_html_anchor_element_set_coords ::
         JSRef HTMLAnchorElement -> JSString -> IO ()
@@ -132,7 +132,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"coords\"]"
         ghcjs_dom_html_anchor_element_get_coords ::
         JSRef HTMLAnchorElement -> IO JSString
@@ -151,7 +151,7 @@
          (unHTMLAnchorElement (toHTMLAnchorElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"download\"] = $2;"
         ghcjs_dom_html_anchor_element_set_download ::
         JSRef HTMLAnchorElement -> JSString -> IO ()
@@ -169,7 +169,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"download\"]"
         ghcjs_dom_html_anchor_element_get_download ::
         JSRef HTMLAnchorElement -> IO JSString
@@ -188,7 +188,7 @@
          (unHTMLAnchorElement (toHTMLAnchorElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"href\"] = $2;"
         ghcjs_dom_html_anchor_element_set_href ::
         JSRef HTMLAnchorElement -> JSString -> IO ()
@@ -206,7 +206,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"href\"]"
         ghcjs_dom_html_anchor_element_get_href ::
         JSRef HTMLAnchorElement -> IO JSString
@@ -225,7 +225,7 @@
          (unHTMLAnchorElement (toHTMLAnchorElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"hreflang\"] = $2;"
         ghcjs_dom_html_anchor_element_set_hreflang ::
         JSRef HTMLAnchorElement -> JSString -> IO ()
@@ -243,7 +243,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"hreflang\"]"
         ghcjs_dom_html_anchor_element_get_hreflang ::
         JSRef HTMLAnchorElement -> IO JSString
@@ -262,7 +262,7 @@
          (unHTMLAnchorElement (toHTMLAnchorElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"name\"] = $2;"
         ghcjs_dom_html_anchor_element_set_name ::
         JSRef HTMLAnchorElement -> JSString -> IO ()
@@ -280,7 +280,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"name\"]"
         ghcjs_dom_html_anchor_element_get_name ::
         JSRef HTMLAnchorElement -> IO JSString
@@ -299,7 +299,7 @@
          (unHTMLAnchorElement (toHTMLAnchorElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"ping\"] = $2;"
         ghcjs_dom_html_anchor_element_set_ping ::
         JSRef HTMLAnchorElement -> JSString -> IO ()
@@ -317,7 +317,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"ping\"]"
         ghcjs_dom_html_anchor_element_get_ping ::
         JSRef HTMLAnchorElement -> IO JSString
@@ -336,7 +336,7 @@
          (unHTMLAnchorElement (toHTMLAnchorElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"rel\"] = $2;"
         ghcjs_dom_html_anchor_element_set_rel ::
         JSRef HTMLAnchorElement -> JSString -> IO ()
@@ -354,7 +354,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"rel\"]"
         ghcjs_dom_html_anchor_element_get_rel ::
         JSRef HTMLAnchorElement -> IO JSString
@@ -373,7 +373,7 @@
          (unHTMLAnchorElement (toHTMLAnchorElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"rev\"] = $2;"
         ghcjs_dom_html_anchor_element_set_rev ::
         JSRef HTMLAnchorElement -> JSString -> IO ()
@@ -391,7 +391,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"rev\"]"
         ghcjs_dom_html_anchor_element_get_rev ::
         JSRef HTMLAnchorElement -> IO JSString
@@ -410,7 +410,7 @@
          (unHTMLAnchorElement (toHTMLAnchorElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"shape\"] = $2;"
         ghcjs_dom_html_anchor_element_set_shape ::
         JSRef HTMLAnchorElement -> JSString -> IO ()
@@ -428,7 +428,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"shape\"]"
         ghcjs_dom_html_anchor_element_get_shape ::
         JSRef HTMLAnchorElement -> IO JSString
@@ -447,7 +447,7 @@
          (unHTMLAnchorElement (toHTMLAnchorElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"target\"] = $2;"
         ghcjs_dom_html_anchor_element_set_target ::
         JSRef HTMLAnchorElement -> JSString -> IO ()
@@ -465,7 +465,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"target\"]"
         ghcjs_dom_html_anchor_element_get_target ::
         JSRef HTMLAnchorElement -> IO JSString
@@ -484,7 +484,7 @@
          (unHTMLAnchorElement (toHTMLAnchorElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"hash\"] = $2;"
         ghcjs_dom_html_anchor_element_set_hash ::
         JSRef HTMLAnchorElement -> JSString -> IO ()
@@ -502,7 +502,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"hash\"]"
         ghcjs_dom_html_anchor_element_get_hash ::
         JSRef HTMLAnchorElement -> IO JSString
@@ -521,7 +521,7 @@
          (unHTMLAnchorElement (toHTMLAnchorElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"host\"] = $2;"
         ghcjs_dom_html_anchor_element_set_host ::
         JSRef HTMLAnchorElement -> JSString -> IO ()
@@ -539,7 +539,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"host\"]"
         ghcjs_dom_html_anchor_element_get_host ::
         JSRef HTMLAnchorElement -> IO JSString
@@ -558,7 +558,7 @@
          (unHTMLAnchorElement (toHTMLAnchorElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"hostname\"] = $2;"
         ghcjs_dom_html_anchor_element_set_hostname ::
         JSRef HTMLAnchorElement -> JSString -> IO ()
@@ -576,7 +576,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"hostname\"]"
         ghcjs_dom_html_anchor_element_get_hostname ::
         JSRef HTMLAnchorElement -> IO JSString
@@ -595,7 +595,7 @@
          (unHTMLAnchorElement (toHTMLAnchorElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"pathname\"] = $2;"
         ghcjs_dom_html_anchor_element_set_pathname ::
         JSRef HTMLAnchorElement -> JSString -> IO ()
@@ -613,7 +613,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"pathname\"]"
         ghcjs_dom_html_anchor_element_get_pathname ::
         JSRef HTMLAnchorElement -> IO JSString
@@ -632,7 +632,7 @@
          (unHTMLAnchorElement (toHTMLAnchorElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"port\"] = $2;"
         ghcjs_dom_html_anchor_element_set_port ::
         JSRef HTMLAnchorElement -> JSString -> IO ()
@@ -650,7 +650,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"port\"]"
         ghcjs_dom_html_anchor_element_get_port ::
         JSRef HTMLAnchorElement -> IO JSString
@@ -669,7 +669,7 @@
          (unHTMLAnchorElement (toHTMLAnchorElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"protocol\"] = $2;"
         ghcjs_dom_html_anchor_element_set_protocol ::
         JSRef HTMLAnchorElement -> JSString -> IO ()
@@ -687,7 +687,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"protocol\"]"
         ghcjs_dom_html_anchor_element_get_protocol ::
         JSRef HTMLAnchorElement -> IO JSString
@@ -706,7 +706,7 @@
          (unHTMLAnchorElement (toHTMLAnchorElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"search\"] = $2;"
         ghcjs_dom_html_anchor_element_set_search ::
         JSRef HTMLAnchorElement -> JSString -> IO ()
@@ -724,7 +724,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"search\"]"
         ghcjs_dom_html_anchor_element_get_search ::
         JSRef HTMLAnchorElement -> IO JSString
@@ -743,7 +743,7 @@
          (unHTMLAnchorElement (toHTMLAnchorElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"origin\"]"
         ghcjs_dom_html_anchor_element_get_origin ::
         JSRef HTMLAnchorElement -> IO JSString
@@ -762,7 +762,7 @@
          (unHTMLAnchorElement (toHTMLAnchorElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"text\"]"
         ghcjs_dom_html_anchor_element_get_text ::
         JSRef HTMLAnchorElement -> IO JSString
diff --git a/src/GHCJS/DOM/HTMLAppletElement.hs b/src/GHCJS/DOM/HTMLAppletElement.hs
--- a/src/GHCJS/DOM/HTMLAppletElement.hs
+++ b/src/GHCJS/DOM/HTMLAppletElement.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.HTMLAppletElement
        (ghcjs_dom_html_applet_element_set_align,
@@ -53,7 +53,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"align\"] = $2;"
         ghcjs_dom_html_applet_element_set_align ::
         JSRef HTMLAppletElement -> JSString -> IO ()
@@ -71,7 +71,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"align\"]"
         ghcjs_dom_html_applet_element_get_align ::
         JSRef HTMLAppletElement -> IO JSString
@@ -90,7 +90,7 @@
          (unHTMLAppletElement (toHTMLAppletElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"alt\"] = $2;"
         ghcjs_dom_html_applet_element_set_alt ::
         JSRef HTMLAppletElement -> JSString -> IO ()
@@ -108,7 +108,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"alt\"]"
         ghcjs_dom_html_applet_element_get_alt ::
         JSRef HTMLAppletElement -> IO JSString
@@ -127,7 +127,7 @@
          (unHTMLAppletElement (toHTMLAppletElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"archive\"] = $2;"
         ghcjs_dom_html_applet_element_set_archive ::
         JSRef HTMLAppletElement -> JSString -> IO ()
@@ -145,7 +145,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"archive\"]"
         ghcjs_dom_html_applet_element_get_archive ::
         JSRef HTMLAppletElement -> IO JSString
@@ -164,7 +164,7 @@
          (unHTMLAppletElement (toHTMLAppletElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"code\"] = $2;"
         ghcjs_dom_html_applet_element_set_code ::
         JSRef HTMLAppletElement -> JSString -> IO ()
@@ -182,7 +182,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"code\"]"
         ghcjs_dom_html_applet_element_get_code ::
         JSRef HTMLAppletElement -> IO JSString
@@ -201,7 +201,7 @@
          (unHTMLAppletElement (toHTMLAppletElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"codeBase\"] = $2;"
         ghcjs_dom_html_applet_element_set_code_base ::
         JSRef HTMLAppletElement -> JSString -> IO ()
@@ -219,7 +219,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"codeBase\"]"
         ghcjs_dom_html_applet_element_get_code_base ::
         JSRef HTMLAppletElement -> IO JSString
@@ -238,7 +238,7 @@
          (unHTMLAppletElement (toHTMLAppletElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"height\"] = $2;"
         ghcjs_dom_html_applet_element_set_height ::
         JSRef HTMLAppletElement -> JSString -> IO ()
@@ -256,7 +256,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"height\"]"
         ghcjs_dom_html_applet_element_get_height ::
         JSRef HTMLAppletElement -> IO JSString
@@ -275,7 +275,7 @@
          (unHTMLAppletElement (toHTMLAppletElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"hspace\"] = $2;"
         ghcjs_dom_html_applet_element_set_hspace ::
         JSRef HTMLAppletElement -> Int -> IO ()
@@ -293,7 +293,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"hspace\"]"
         ghcjs_dom_html_applet_element_get_hspace ::
         JSRef HTMLAppletElement -> IO Int
@@ -310,7 +310,7 @@
       (unHTMLAppletElement (toHTMLAppletElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"name\"] = $2;"
         ghcjs_dom_html_applet_element_set_name ::
         JSRef HTMLAppletElement -> JSString -> IO ()
@@ -328,7 +328,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"name\"]"
         ghcjs_dom_html_applet_element_get_name ::
         JSRef HTMLAppletElement -> IO JSString
@@ -347,7 +347,7 @@
          (unHTMLAppletElement (toHTMLAppletElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"object\"] = $2;"
         ghcjs_dom_html_applet_element_set_object ::
         JSRef HTMLAppletElement -> JSString -> IO ()
@@ -365,7 +365,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"object\"]"
         ghcjs_dom_html_applet_element_get_object ::
         JSRef HTMLAppletElement -> IO JSString
@@ -384,7 +384,7 @@
          (unHTMLAppletElement (toHTMLAppletElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"vspace\"] = $2;"
         ghcjs_dom_html_applet_element_set_vspace ::
         JSRef HTMLAppletElement -> Int -> IO ()
@@ -402,7 +402,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"vspace\"]"
         ghcjs_dom_html_applet_element_get_vspace ::
         JSRef HTMLAppletElement -> IO Int
@@ -419,7 +419,7 @@
       (unHTMLAppletElement (toHTMLAppletElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"width\"] = $2;"
         ghcjs_dom_html_applet_element_set_width ::
         JSRef HTMLAppletElement -> JSString -> IO ()
@@ -437,7 +437,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"width\"]"
         ghcjs_dom_html_applet_element_get_width ::
         JSRef HTMLAppletElement -> IO JSString
diff --git a/src/GHCJS/DOM/HTMLAreaElement.hs b/src/GHCJS/DOM/HTMLAreaElement.hs
--- a/src/GHCJS/DOM/HTMLAreaElement.hs
+++ b/src/GHCJS/DOM/HTMLAreaElement.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.HTMLAreaElement
        (ghcjs_dom_html_area_element_set_alt, htmlAreaElementSetAlt,
@@ -42,7 +42,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"alt\"] = $2;"
         ghcjs_dom_html_area_element_set_alt ::
         JSRef HTMLAreaElement -> JSString -> IO ()
@@ -60,7 +60,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"alt\"]"
         ghcjs_dom_html_area_element_get_alt ::
         JSRef HTMLAreaElement -> IO JSString
@@ -78,7 +78,7 @@
          (unHTMLAreaElement (toHTMLAreaElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"coords\"] = $2;"
         ghcjs_dom_html_area_element_set_coords ::
         JSRef HTMLAreaElement -> JSString -> IO ()
@@ -96,7 +96,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"coords\"]"
         ghcjs_dom_html_area_element_get_coords ::
         JSRef HTMLAreaElement -> IO JSString
@@ -114,7 +114,7 @@
          (unHTMLAreaElement (toHTMLAreaElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"href\"] = $2;"
         ghcjs_dom_html_area_element_set_href ::
         JSRef HTMLAreaElement -> JSString -> IO ()
@@ -132,7 +132,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"href\"]"
         ghcjs_dom_html_area_element_get_href ::
         JSRef HTMLAreaElement -> IO JSString
@@ -150,7 +150,7 @@
          (unHTMLAreaElement (toHTMLAreaElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"noHref\"] = $2;"
         ghcjs_dom_html_area_element_set_no_href ::
         JSRef HTMLAreaElement -> Bool -> IO ()
@@ -168,7 +168,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"noHref\"] ? 1 : 0)"
         ghcjs_dom_html_area_element_get_no_href ::
         JSRef HTMLAreaElement -> IO Bool
@@ -185,7 +185,7 @@
       (unHTMLAreaElement (toHTMLAreaElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"ping\"] = $2;"
         ghcjs_dom_html_area_element_set_ping ::
         JSRef HTMLAreaElement -> JSString -> IO ()
@@ -203,7 +203,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"ping\"]"
         ghcjs_dom_html_area_element_get_ping ::
         JSRef HTMLAreaElement -> IO JSString
@@ -221,7 +221,7 @@
          (unHTMLAreaElement (toHTMLAreaElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"shape\"] = $2;"
         ghcjs_dom_html_area_element_set_shape ::
         JSRef HTMLAreaElement -> JSString -> IO ()
@@ -239,7 +239,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"shape\"]"
         ghcjs_dom_html_area_element_get_shape ::
         JSRef HTMLAreaElement -> IO JSString
@@ -257,7 +257,7 @@
          (unHTMLAreaElement (toHTMLAreaElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"target\"] = $2;"
         ghcjs_dom_html_area_element_set_target ::
         JSRef HTMLAreaElement -> JSString -> IO ()
@@ -275,7 +275,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"target\"]"
         ghcjs_dom_html_area_element_get_target ::
         JSRef HTMLAreaElement -> IO JSString
@@ -293,7 +293,7 @@
          (unHTMLAreaElement (toHTMLAreaElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"hash\"]"
         ghcjs_dom_html_area_element_get_hash ::
         JSRef HTMLAreaElement -> IO JSString
@@ -311,7 +311,7 @@
          (unHTMLAreaElement (toHTMLAreaElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"host\"]"
         ghcjs_dom_html_area_element_get_host ::
         JSRef HTMLAreaElement -> IO JSString
@@ -329,7 +329,7 @@
          (unHTMLAreaElement (toHTMLAreaElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"hostname\"]"
         ghcjs_dom_html_area_element_get_hostname ::
         JSRef HTMLAreaElement -> IO JSString
@@ -347,7 +347,7 @@
          (unHTMLAreaElement (toHTMLAreaElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"pathname\"]"
         ghcjs_dom_html_area_element_get_pathname ::
         JSRef HTMLAreaElement -> IO JSString
@@ -365,7 +365,7 @@
          (unHTMLAreaElement (toHTMLAreaElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"port\"]"
         ghcjs_dom_html_area_element_get_port ::
         JSRef HTMLAreaElement -> IO JSString
@@ -383,7 +383,7 @@
          (unHTMLAreaElement (toHTMLAreaElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"protocol\"]"
         ghcjs_dom_html_area_element_get_protocol ::
         JSRef HTMLAreaElement -> IO JSString
@@ -401,7 +401,7 @@
          (unHTMLAreaElement (toHTMLAreaElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"search\"]"
         ghcjs_dom_html_area_element_get_search ::
         JSRef HTMLAreaElement -> IO JSString
diff --git a/src/GHCJS/DOM/HTMLBRElement.hs b/src/GHCJS/DOM/HTMLBRElement.hs
--- a/src/GHCJS/DOM/HTMLBRElement.hs
+++ b/src/GHCJS/DOM/HTMLBRElement.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.HTMLBRElement
        (ghcjs_dom_htmlbr_element_set_clear, htmlbrElementSetClear,
@@ -22,7 +22,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"clear\"] = $2;"
         ghcjs_dom_htmlbr_element_set_clear ::
         JSRef HTMLBRElement -> JSString -> IO ()
@@ -40,7 +40,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"clear\"]"
         ghcjs_dom_htmlbr_element_get_clear ::
         JSRef HTMLBRElement -> IO JSString
diff --git a/src/GHCJS/DOM/HTMLBaseElement.hs b/src/GHCJS/DOM/HTMLBaseElement.hs
--- a/src/GHCJS/DOM/HTMLBaseElement.hs
+++ b/src/GHCJS/DOM/HTMLBaseElement.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.HTMLBaseElement
        (ghcjs_dom_html_base_element_set_href, htmlBaseElementSetHref,
@@ -24,7 +24,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"href\"] = $2;"
         ghcjs_dom_html_base_element_set_href ::
         JSRef HTMLBaseElement -> JSString -> IO ()
@@ -42,7 +42,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"href\"]"
         ghcjs_dom_html_base_element_get_href ::
         JSRef HTMLBaseElement -> IO JSString
@@ -60,7 +60,7 @@
          (unHTMLBaseElement (toHTMLBaseElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"target\"] = $2;"
         ghcjs_dom_html_base_element_set_target ::
         JSRef HTMLBaseElement -> JSString -> IO ()
@@ -78,7 +78,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"target\"]"
         ghcjs_dom_html_base_element_get_target ::
         JSRef HTMLBaseElement -> IO JSString
diff --git a/src/GHCJS/DOM/HTMLBaseFontElement.hs b/src/GHCJS/DOM/HTMLBaseFontElement.hs
--- a/src/GHCJS/DOM/HTMLBaseFontElement.hs
+++ b/src/GHCJS/DOM/HTMLBaseFontElement.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.HTMLBaseFontElement
        (ghcjs_dom_html_base_font_element_set_color,
@@ -32,7 +32,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"color\"] = $2;"
         ghcjs_dom_html_base_font_element_set_color ::
         JSRef HTMLBaseFontElement -> JSString -> IO ()
@@ -51,7 +51,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"color\"]"
         ghcjs_dom_html_base_font_element_get_color ::
         JSRef HTMLBaseFontElement -> IO JSString
@@ -70,7 +70,7 @@
          (unHTMLBaseFontElement (toHTMLBaseFontElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"face\"] = $2;"
         ghcjs_dom_html_base_font_element_set_face ::
         JSRef HTMLBaseFontElement -> JSString -> IO ()
@@ -89,7 +89,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"face\"]"
         ghcjs_dom_html_base_font_element_get_face ::
         JSRef HTMLBaseFontElement -> IO JSString
@@ -108,7 +108,7 @@
          (unHTMLBaseFontElement (toHTMLBaseFontElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"size\"] = $2;"
         ghcjs_dom_html_base_font_element_set_size ::
         JSRef HTMLBaseFontElement -> Int -> IO ()
@@ -126,7 +126,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"size\"]"
         ghcjs_dom_html_base_font_element_get_size ::
         JSRef HTMLBaseFontElement -> IO Int
diff --git a/src/GHCJS/DOM/HTMLBodyElement.hs b/src/GHCJS/DOM/HTMLBodyElement.hs
--- a/src/GHCJS/DOM/HTMLBodyElement.hs
+++ b/src/GHCJS/DOM/HTMLBodyElement.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.HTMLBodyElement
        (ghcjs_dom_html_body_element_set_a_link, htmlBodyElementSetALink,
@@ -42,7 +42,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"aLink\"] = $2;"
         ghcjs_dom_html_body_element_set_a_link ::
         JSRef HTMLBodyElement -> JSString -> IO ()
@@ -60,7 +60,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"aLink\"]"
         ghcjs_dom_html_body_element_get_a_link ::
         JSRef HTMLBodyElement -> IO JSString
@@ -78,7 +78,7 @@
          (unHTMLBodyElement (toHTMLBodyElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"background\"] = $2;"
         ghcjs_dom_html_body_element_set_background ::
         JSRef HTMLBodyElement -> JSString -> IO ()
@@ -96,7 +96,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"background\"]"
         ghcjs_dom_html_body_element_get_background ::
         JSRef HTMLBodyElement -> IO JSString
@@ -114,7 +114,7 @@
          (unHTMLBodyElement (toHTMLBodyElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"bgColor\"] = $2;"
         ghcjs_dom_html_body_element_set_bg_color ::
         JSRef HTMLBodyElement -> JSString -> IO ()
@@ -132,7 +132,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"bgColor\"]"
         ghcjs_dom_html_body_element_get_bg_color ::
         JSRef HTMLBodyElement -> IO JSString
@@ -150,7 +150,7 @@
          (unHTMLBodyElement (toHTMLBodyElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"link\"] = $2;"
         ghcjs_dom_html_body_element_set_link ::
         JSRef HTMLBodyElement -> JSString -> IO ()
@@ -168,7 +168,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"link\"]"
         ghcjs_dom_html_body_element_get_link ::
         JSRef HTMLBodyElement -> IO JSString
@@ -186,7 +186,7 @@
          (unHTMLBodyElement (toHTMLBodyElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"text\"] = $2;"
         ghcjs_dom_html_body_element_set_text ::
         JSRef HTMLBodyElement -> JSString -> IO ()
@@ -204,7 +204,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"text\"]"
         ghcjs_dom_html_body_element_get_text ::
         JSRef HTMLBodyElement -> IO JSString
@@ -222,7 +222,7 @@
          (unHTMLBodyElement (toHTMLBodyElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"vLink\"] = $2;"
         ghcjs_dom_html_body_element_set_v_link ::
         JSRef HTMLBodyElement -> JSString -> IO ()
@@ -240,7 +240,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"vLink\"]"
         ghcjs_dom_html_body_element_get_v_link ::
         JSRef HTMLBodyElement -> IO JSString
diff --git a/src/GHCJS/DOM/HTMLButtonElement.hs b/src/GHCJS/DOM/HTMLButtonElement.hs
--- a/src/GHCJS/DOM/HTMLButtonElement.hs
+++ b/src/GHCJS/DOM/HTMLButtonElement.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.HTMLButtonElement
        (ghcjs_dom_html_button_element_check_validity,
@@ -65,7 +65,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "($1[\"checkValidity\"]() ? 1 : 0)"
         ghcjs_dom_html_button_element_check_validity ::
@@ -83,7 +83,7 @@
       (unHTMLButtonElement (toHTMLButtonElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"
         ghcjs_dom_html_button_element_set_custom_validity ::
         JSRef HTMLButtonElement -> JSString -> IO ()
@@ -102,7 +102,7 @@
       (toJSString error)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"autofocus\"] = $2;"
         ghcjs_dom_html_button_element_set_autofocus ::
         JSRef HTMLButtonElement -> Bool -> IO ()
@@ -120,7 +120,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"autofocus\"] ? 1 : 0)"
         ghcjs_dom_html_button_element_get_autofocus ::
         JSRef HTMLButtonElement -> IO Bool
@@ -137,7 +137,7 @@
       (unHTMLButtonElement (toHTMLButtonElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"disabled\"] = $2;"
         ghcjs_dom_html_button_element_set_disabled ::
         JSRef HTMLButtonElement -> Bool -> IO ()
@@ -155,7 +155,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"
         ghcjs_dom_html_button_element_get_disabled ::
         JSRef HTMLButtonElement -> IO Bool
@@ -172,7 +172,7 @@
       (unHTMLButtonElement (toHTMLButtonElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"form\"]"
         ghcjs_dom_html_button_element_get_form ::
         JSRef HTMLButtonElement -> IO (JSRef HTMLFormElement)
@@ -190,7 +190,7 @@
          (unHTMLButtonElement (toHTMLButtonElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"formAction\"] = $2;"
         ghcjs_dom_html_button_element_set_form_action ::
         JSRef HTMLButtonElement -> JSString -> IO ()
@@ -208,7 +208,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"formAction\"]"
         ghcjs_dom_html_button_element_get_form_action ::
         JSRef HTMLButtonElement -> IO JSString
@@ -227,7 +227,7 @@
          (unHTMLButtonElement (toHTMLButtonElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"formEnctype\"] = $2;"
         ghcjs_dom_html_button_element_set_form_enctype ::
         JSRef HTMLButtonElement -> JSString -> IO ()
@@ -245,7 +245,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"formEnctype\"]"
         ghcjs_dom_html_button_element_get_form_enctype ::
         JSRef HTMLButtonElement -> IO JSString
@@ -264,7 +264,7 @@
          (unHTMLButtonElement (toHTMLButtonElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"formMethod\"] = $2;"
         ghcjs_dom_html_button_element_set_form_method ::
         JSRef HTMLButtonElement -> JSString -> IO ()
@@ -282,7 +282,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"formMethod\"]"
         ghcjs_dom_html_button_element_get_form_method ::
         JSRef HTMLButtonElement -> IO JSString
@@ -301,7 +301,7 @@
          (unHTMLButtonElement (toHTMLButtonElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"formNoValidate\"] = $2;"
         ghcjs_dom_html_button_element_set_form_no_validate ::
         JSRef HTMLButtonElement -> Bool -> IO ()
@@ -319,7 +319,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"formNoValidate\"] ? 1 : 0)"
         ghcjs_dom_html_button_element_get_form_no_validate ::
         JSRef HTMLButtonElement -> IO Bool
@@ -336,7 +336,7 @@
       (unHTMLButtonElement (toHTMLButtonElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"formTarget\"] = $2;"
         ghcjs_dom_html_button_element_set_form_target ::
         JSRef HTMLButtonElement -> JSString -> IO ()
@@ -354,7 +354,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"formTarget\"]"
         ghcjs_dom_html_button_element_get_form_target ::
         JSRef HTMLButtonElement -> IO JSString
@@ -373,7 +373,7 @@
          (unHTMLButtonElement (toHTMLButtonElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"name\"] = $2;"
         ghcjs_dom_html_button_element_set_name ::
         JSRef HTMLButtonElement -> JSString -> IO ()
@@ -391,7 +391,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"name\"]"
         ghcjs_dom_html_button_element_get_name ::
         JSRef HTMLButtonElement -> IO JSString
@@ -410,7 +410,7 @@
          (unHTMLButtonElement (toHTMLButtonElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"value\"] = $2;"
         ghcjs_dom_html_button_element_set_value ::
         JSRef HTMLButtonElement -> JSString -> IO ()
@@ -428,7 +428,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"value\"]"
         ghcjs_dom_html_button_element_get_value ::
         JSRef HTMLButtonElement -> IO JSString
@@ -447,7 +447,7 @@
          (unHTMLButtonElement (toHTMLButtonElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)"
         ghcjs_dom_html_button_element_get_will_validate ::
         JSRef HTMLButtonElement -> IO Bool
@@ -464,7 +464,7 @@
       (unHTMLButtonElement (toHTMLButtonElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"validity\"]"
         ghcjs_dom_html_button_element_get_validity ::
         JSRef HTMLButtonElement -> IO (JSRef ValidityState)
@@ -482,7 +482,7 @@
          (unHTMLButtonElement (toHTMLButtonElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"validationMessage\"]"
         ghcjs_dom_html_button_element_get_validation_message ::
         JSRef HTMLButtonElement -> IO JSString
@@ -501,7 +501,7 @@
          (unHTMLButtonElement (toHTMLButtonElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"labels\"]"
         ghcjs_dom_html_button_element_get_labels ::
         JSRef HTMLButtonElement -> IO (JSRef NodeList)
diff --git a/src/GHCJS/DOM/HTMLCanvasElement.hs b/src/GHCJS/DOM/HTMLCanvasElement.hs
--- a/src/GHCJS/DOM/HTMLCanvasElement.hs
+++ b/src/GHCJS/DOM/HTMLCanvasElement.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.HTMLCanvasElement
        (ghcjs_dom_html_canvas_element_set_width,
@@ -27,7 +27,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"width\"] = $2;"
         ghcjs_dom_html_canvas_element_set_width ::
         JSRef HTMLCanvasElement -> Int -> IO ()
@@ -45,7 +45,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"width\"]"
         ghcjs_dom_html_canvas_element_get_width ::
         JSRef HTMLCanvasElement -> IO Int
@@ -62,7 +62,7 @@
       (unHTMLCanvasElement (toHTMLCanvasElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"height\"] = $2;"
         ghcjs_dom_html_canvas_element_set_height ::
         JSRef HTMLCanvasElement -> Int -> IO ()
@@ -80,7 +80,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"height\"]"
         ghcjs_dom_html_canvas_element_get_height ::
         JSRef HTMLCanvasElement -> IO Int
diff --git a/src/GHCJS/DOM/HTMLCollection.hs b/src/GHCJS/DOM/HTMLCollection.hs
--- a/src/GHCJS/DOM/HTMLCollection.hs
+++ b/src/GHCJS/DOM/HTMLCollection.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.HTMLCollection
        (ghcjs_dom_html_collection_item, htmlCollectionItem,
@@ -23,7 +23,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"item\"]($2)"
         ghcjs_dom_html_collection_item ::
         JSRef HTMLCollection -> Word -> IO (JSRef Node)
@@ -42,7 +42,7 @@
          index)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"namedItem\"]($2)"
         ghcjs_dom_html_collection_named_item ::
         JSRef HTMLCollection -> JSString -> IO (JSRef Node)
@@ -62,7 +62,7 @@
          (toJSString name))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"length\"]"
         ghcjs_dom_html_collection_get_length ::
         JSRef HTMLCollection -> IO Word
diff --git a/src/GHCJS/DOM/HTMLDListElement.hs b/src/GHCJS/DOM/HTMLDListElement.hs
--- a/src/GHCJS/DOM/HTMLDListElement.hs
+++ b/src/GHCJS/DOM/HTMLDListElement.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.HTMLDListElement
        (ghcjs_dom_htmld_list_element_set_compact,
@@ -23,7 +23,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"compact\"] = $2;"
         ghcjs_dom_htmld_list_element_set_compact ::
         JSRef HTMLDListElement -> Bool -> IO ()
@@ -41,7 +41,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"compact\"] ? 1 : 0)"
         ghcjs_dom_htmld_list_element_get_compact ::
         JSRef HTMLDListElement -> IO Bool
diff --git a/src/GHCJS/DOM/HTMLDetailsElement.hs b/src/GHCJS/DOM/HTMLDetailsElement.hs
--- a/src/GHCJS/DOM/HTMLDetailsElement.hs
+++ b/src/GHCJS/DOM/HTMLDetailsElement.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.HTMLDetailsElement
        (ghcjs_dom_html_details_element_set_open,
@@ -23,7 +23,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"open\"] = $2;"
         ghcjs_dom_html_details_element_set_open ::
         JSRef HTMLDetailsElement -> Bool -> IO ()
@@ -41,7 +41,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"open\"] ? 1 : 0)"
         ghcjs_dom_html_details_element_get_open ::
         JSRef HTMLDetailsElement -> IO Bool
diff --git a/src/GHCJS/DOM/HTMLDirectoryElement.hs b/src/GHCJS/DOM/HTMLDirectoryElement.hs
--- a/src/GHCJS/DOM/HTMLDirectoryElement.hs
+++ b/src/GHCJS/DOM/HTMLDirectoryElement.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.HTMLDirectoryElement
        (ghcjs_dom_html_directory_element_set_compact,
@@ -24,7 +24,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"compact\"] = $2;"
         ghcjs_dom_html_directory_element_set_compact ::
         JSRef HTMLDirectoryElement -> Bool -> IO ()
@@ -42,7 +42,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"compact\"] ? 1 : 0)"
         ghcjs_dom_html_directory_element_get_compact ::
         JSRef HTMLDirectoryElement -> IO Bool
diff --git a/src/GHCJS/DOM/HTMLDivElement.hs b/src/GHCJS/DOM/HTMLDivElement.hs
--- a/src/GHCJS/DOM/HTMLDivElement.hs
+++ b/src/GHCJS/DOM/HTMLDivElement.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.HTMLDivElement
        (ghcjs_dom_html_div_element_set_align, htmlDivElementSetAlign,
@@ -22,7 +22,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"align\"] = $2;"
         ghcjs_dom_html_div_element_set_align ::
         JSRef HTMLDivElement -> JSString -> IO ()
@@ -40,7 +40,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"align\"]"
         ghcjs_dom_html_div_element_get_align ::
         JSRef HTMLDivElement -> IO JSString
diff --git a/src/GHCJS/DOM/HTMLDocument.hs b/src/GHCJS/DOM/HTMLDocument.hs
--- a/src/GHCJS/DOM/HTMLDocument.hs
+++ b/src/GHCJS/DOM/HTMLDocument.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.HTMLDocument
        (ghcjs_dom_html_document_close, htmlDocumentClose,
@@ -46,7 +46,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"close\"]()"
         ghcjs_dom_html_document_close :: JSRef HTMLDocument -> IO ()
 #else 
@@ -60,7 +60,7 @@
       (unHTMLDocument (toHTMLDocument self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"clear\"]()"
         ghcjs_dom_html_document_clear :: JSRef HTMLDocument -> IO ()
 #else 
@@ -74,7 +74,7 @@
       (unHTMLDocument (toHTMLDocument self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"captureEvents\"]()"
         ghcjs_dom_html_document_capture_events ::
         JSRef HTMLDocument -> IO ()
@@ -90,7 +90,7 @@
       (unHTMLDocument (toHTMLDocument self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"releaseEvents\"]()"
         ghcjs_dom_html_document_release_events ::
         JSRef HTMLDocument -> IO ()
@@ -106,7 +106,7 @@
       (unHTMLDocument (toHTMLDocument self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"hasFocus\"]() ? 1 : 0)"
         ghcjs_dom_html_document_has_focus :: JSRef HTMLDocument -> IO Bool
 #else 
@@ -120,7 +120,7 @@
       (unHTMLDocument (toHTMLDocument self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"embeds\"]"
         ghcjs_dom_html_document_get_embeds ::
         JSRef HTMLDocument -> IO (JSRef HTMLCollection)
@@ -138,7 +138,7 @@
          (unHTMLDocument (toHTMLDocument self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"plugins\"]"
         ghcjs_dom_html_document_get_plugins ::
         JSRef HTMLDocument -> IO (JSRef HTMLCollection)
@@ -156,7 +156,7 @@
          (unHTMLDocument (toHTMLDocument self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"scripts\"]"
         ghcjs_dom_html_document_get_scripts ::
         JSRef HTMLDocument -> IO (JSRef HTMLCollection)
@@ -174,7 +174,7 @@
          (unHTMLDocument (toHTMLDocument self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"width\"]"
         ghcjs_dom_html_document_get_width :: JSRef HTMLDocument -> IO Int
 #else 
@@ -188,7 +188,7 @@
       (unHTMLDocument (toHTMLDocument self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"height\"]"
         ghcjs_dom_html_document_get_height :: JSRef HTMLDocument -> IO Int
 #else 
@@ -202,7 +202,7 @@
       (unHTMLDocument (toHTMLDocument self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"dir\"] = $2;"
         ghcjs_dom_html_document_set_dir ::
         JSRef HTMLDocument -> JSString -> IO ()
@@ -220,7 +220,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"dir\"]"
         ghcjs_dom_html_document_get_dir ::
         JSRef HTMLDocument -> IO JSString
@@ -238,7 +238,7 @@
          (unHTMLDocument (toHTMLDocument self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"designMode\"] = $2;"
         ghcjs_dom_html_document_set_design_mode ::
         JSRef HTMLDocument -> JSString -> IO ()
@@ -256,7 +256,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"designMode\"]"
         ghcjs_dom_html_document_get_design_mode ::
         JSRef HTMLDocument -> IO JSString
@@ -274,7 +274,7 @@
          (unHTMLDocument (toHTMLDocument self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"compatMode\"]"
         ghcjs_dom_html_document_get_compat_mode ::
         JSRef HTMLDocument -> IO JSString
@@ -292,7 +292,7 @@
          (unHTMLDocument (toHTMLDocument self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"activeElement\"]"
         ghcjs_dom_html_document_get_active_element ::
         JSRef HTMLDocument -> IO (JSRef Element)
@@ -310,7 +310,7 @@
          (unHTMLDocument (toHTMLDocument self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"bgColor\"] = $2;"
         ghcjs_dom_html_document_set_bg_color ::
         JSRef HTMLDocument -> JSString -> IO ()
@@ -328,7 +328,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"bgColor\"]"
         ghcjs_dom_html_document_get_bg_color ::
         JSRef HTMLDocument -> IO JSString
@@ -346,7 +346,7 @@
          (unHTMLDocument (toHTMLDocument self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"fgColor\"] = $2;"
         ghcjs_dom_html_document_set_fg_color ::
         JSRef HTMLDocument -> JSString -> IO ()
@@ -364,7 +364,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"fgColor\"]"
         ghcjs_dom_html_document_get_fg_color ::
         JSRef HTMLDocument -> IO JSString
@@ -382,7 +382,7 @@
          (unHTMLDocument (toHTMLDocument self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"alinkColor\"] = $2;"
         ghcjs_dom_html_document_set_alink_color ::
         JSRef HTMLDocument -> JSString -> IO ()
@@ -400,7 +400,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"alinkColor\"]"
         ghcjs_dom_html_document_get_alink_color ::
         JSRef HTMLDocument -> IO JSString
@@ -418,7 +418,7 @@
          (unHTMLDocument (toHTMLDocument self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"linkColor\"] = $2;"
         ghcjs_dom_html_document_set_link_color ::
         JSRef HTMLDocument -> JSString -> IO ()
@@ -436,7 +436,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"linkColor\"]"
         ghcjs_dom_html_document_get_link_color ::
         JSRef HTMLDocument -> IO JSString
@@ -454,7 +454,7 @@
          (unHTMLDocument (toHTMLDocument self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"vlinkColor\"] = $2;"
         ghcjs_dom_html_document_set_vlink_color ::
         JSRef HTMLDocument -> JSString -> IO ()
@@ -472,7 +472,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"vlinkColor\"]"
         ghcjs_dom_html_document_get_vlink_color ::
         JSRef HTMLDocument -> IO JSString
diff --git a/src/GHCJS/DOM/HTMLElement.hs b/src/GHCJS/DOM/HTMLElement.hs
--- a/src/GHCJS/DOM/HTMLElement.hs
+++ b/src/GHCJS/DOM/HTMLElement.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.HTMLElement
        (ghcjs_dom_html_element_insert_adjacent_element,
@@ -63,7 +63,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "$1[\"insertAdjacentElement\"]($2,\n$3)"
         ghcjs_dom_html_element_insert_adjacent_element ::
@@ -87,7 +87,7 @@
          (maybe jsNull (unElement . toElement) element))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "$1[\"insertAdjacentHTML\"]($2, $3)"
         ghcjs_dom_html_element_insert_adjacent_html ::
@@ -108,7 +108,7 @@
       (toJSString html)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "$1[\"insertAdjacentText\"]($2, $3)"
         ghcjs_dom_html_element_insert_adjacent_text ::
@@ -129,7 +129,7 @@
       (toJSString text)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"click\"]()"
         ghcjs_dom_html_element_click :: JSRef HTMLElement -> IO ()
 #else 
@@ -142,7 +142,7 @@
   = ghcjs_dom_html_element_click (unHTMLElement (toHTMLElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"title\"] = $2;"
         ghcjs_dom_html_element_set_title ::
         JSRef HTMLElement -> JSString -> IO ()
@@ -160,7 +160,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"title\"]"
         ghcjs_dom_html_element_get_title ::
         JSRef HTMLElement -> IO JSString
@@ -178,7 +178,7 @@
          (unHTMLElement (toHTMLElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"lang\"] = $2;"
         ghcjs_dom_html_element_set_lang ::
         JSRef HTMLElement -> JSString -> IO ()
@@ -196,7 +196,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"lang\"]"
         ghcjs_dom_html_element_get_lang :: JSRef HTMLElement -> IO JSString
 #else 
@@ -212,7 +212,7 @@
          (unHTMLElement (toHTMLElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"translate\"] = $2;"
         ghcjs_dom_html_element_set_translate ::
         JSRef HTMLElement -> Bool -> IO ()
@@ -230,7 +230,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"translate\"] ? 1 : 0)"
         ghcjs_dom_html_element_get_translate ::
         JSRef HTMLElement -> IO Bool
@@ -246,7 +246,7 @@
       (unHTMLElement (toHTMLElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"dir\"] = $2;"
         ghcjs_dom_html_element_set_dir ::
         JSRef HTMLElement -> JSString -> IO ()
@@ -264,7 +264,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"dir\"]"
         ghcjs_dom_html_element_get_dir :: JSRef HTMLElement -> IO JSString
 #else 
@@ -280,7 +280,7 @@
          (unHTMLElement (toHTMLElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"tabIndex\"] = $2;"
         ghcjs_dom_html_element_set_tab_index ::
         JSRef HTMLElement -> Int -> IO ()
@@ -298,7 +298,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"tabIndex\"]"
         ghcjs_dom_html_element_get_tab_index :: JSRef HTMLElement -> IO Int
 #else 
@@ -312,7 +312,7 @@
       (unHTMLElement (toHTMLElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"draggable\"] = $2;"
         ghcjs_dom_html_element_set_draggable ::
         JSRef HTMLElement -> Bool -> IO ()
@@ -330,7 +330,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"draggable\"] ? 1 : 0)"
         ghcjs_dom_html_element_get_draggable ::
         JSRef HTMLElement -> IO Bool
@@ -346,7 +346,7 @@
       (unHTMLElement (toHTMLElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"webkitdropzone\"] = $2;"
         ghcjs_dom_html_element_set_webkitdropzone ::
         JSRef HTMLElement -> JSString -> IO ()
@@ -364,7 +364,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"webkitdropzone\"]"
         ghcjs_dom_html_element_get_webkitdropzone ::
         JSRef HTMLElement -> IO JSString
@@ -382,7 +382,7 @@
          (unHTMLElement (toHTMLElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"hidden\"] = $2;"
         ghcjs_dom_html_element_set_hidden ::
         JSRef HTMLElement -> Bool -> IO ()
@@ -400,7 +400,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"hidden\"] ? 1 : 0)"
         ghcjs_dom_html_element_get_hidden :: JSRef HTMLElement -> IO Bool
 #else 
@@ -414,7 +414,7 @@
       (unHTMLElement (toHTMLElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"accessKey\"] = $2;"
         ghcjs_dom_html_element_set_access_key ::
         JSRef HTMLElement -> JSString -> IO ()
@@ -432,7 +432,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"accessKey\"]"
         ghcjs_dom_html_element_get_access_key ::
         JSRef HTMLElement -> IO JSString
@@ -450,7 +450,7 @@
          (unHTMLElement (toHTMLElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"innerHTML\"] = $2;"
         ghcjs_dom_html_element_set_inner_html ::
         JSRef HTMLElement -> JSString -> IO ()
@@ -468,7 +468,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"innerHTML\"]"
         ghcjs_dom_html_element_get_inner_html ::
         JSRef HTMLElement -> IO JSString
@@ -486,7 +486,7 @@
          (unHTMLElement (toHTMLElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"innerText\"] = $2;"
         ghcjs_dom_html_element_set_inner_text ::
         JSRef HTMLElement -> JSString -> IO ()
@@ -504,7 +504,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"innerText\"]"
         ghcjs_dom_html_element_get_inner_text ::
         JSRef HTMLElement -> IO JSString
@@ -522,7 +522,7 @@
          (unHTMLElement (toHTMLElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"outerHTML\"] = $2;"
         ghcjs_dom_html_element_set_outer_html ::
         JSRef HTMLElement -> JSString -> IO ()
@@ -540,7 +540,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"outerHTML\"]"
         ghcjs_dom_html_element_get_outer_html ::
         JSRef HTMLElement -> IO JSString
@@ -558,7 +558,7 @@
          (unHTMLElement (toHTMLElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"outerText\"] = $2;"
         ghcjs_dom_html_element_set_outer_text ::
         JSRef HTMLElement -> JSString -> IO ()
@@ -576,7 +576,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"outerText\"]"
         ghcjs_dom_html_element_get_outer_text ::
         JSRef HTMLElement -> IO JSString
@@ -594,7 +594,7 @@
          (unHTMLElement (toHTMLElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"children\"]"
         ghcjs_dom_html_element_get_children ::
         JSRef HTMLElement -> IO (JSRef HTMLCollection)
@@ -612,7 +612,7 @@
          (unHTMLElement (toHTMLElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"contentEditable\"] = $2;"
         ghcjs_dom_html_element_set_content_editable ::
         JSRef HTMLElement -> JSString -> IO ()
@@ -630,7 +630,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"contentEditable\"]"
         ghcjs_dom_html_element_get_content_editable ::
         JSRef HTMLElement -> IO JSString
@@ -648,7 +648,7 @@
          (unHTMLElement (toHTMLElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "($1[\"isContentEditable\"] ? 1 : 0)"
         ghcjs_dom_html_element_get_is_content_editable ::
@@ -666,7 +666,7 @@
       (unHTMLElement (toHTMLElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"spellcheck\"] = $2;"
         ghcjs_dom_html_element_set_spellcheck ::
         JSRef HTMLElement -> Bool -> IO ()
@@ -684,7 +684,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"spellcheck\"] ? 1 : 0)"
         ghcjs_dom_html_element_get_spellcheck ::
         JSRef HTMLElement -> IO Bool
diff --git a/src/GHCJS/DOM/HTMLEmbedElement.hs b/src/GHCJS/DOM/HTMLEmbedElement.hs
--- a/src/GHCJS/DOM/HTMLEmbedElement.hs
+++ b/src/GHCJS/DOM/HTMLEmbedElement.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.HTMLEmbedElement
        (ghcjs_dom_html_embed_element_set_align, htmlEmbedElementSetAlign,
@@ -30,7 +30,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"align\"] = $2;"
         ghcjs_dom_html_embed_element_set_align ::
         JSRef HTMLEmbedElement -> JSString -> IO ()
@@ -48,7 +48,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"align\"]"
         ghcjs_dom_html_embed_element_get_align ::
         JSRef HTMLEmbedElement -> IO JSString
@@ -66,7 +66,7 @@
          (unHTMLEmbedElement (toHTMLEmbedElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"height\"] = $2;"
         ghcjs_dom_html_embed_element_set_height ::
         JSRef HTMLEmbedElement -> Int -> IO ()
@@ -84,7 +84,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"height\"]"
         ghcjs_dom_html_embed_element_get_height ::
         JSRef HTMLEmbedElement -> IO Int
@@ -101,7 +101,7 @@
       (unHTMLEmbedElement (toHTMLEmbedElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"name\"] = $2;"
         ghcjs_dom_html_embed_element_set_name ::
         JSRef HTMLEmbedElement -> JSString -> IO ()
@@ -119,7 +119,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"name\"]"
         ghcjs_dom_html_embed_element_get_name ::
         JSRef HTMLEmbedElement -> IO JSString
@@ -137,7 +137,7 @@
          (unHTMLEmbedElement (toHTMLEmbedElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"src\"] = $2;"
         ghcjs_dom_html_embed_element_set_src ::
         JSRef HTMLEmbedElement -> JSString -> IO ()
@@ -155,7 +155,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"src\"]"
         ghcjs_dom_html_embed_element_get_src ::
         JSRef HTMLEmbedElement -> IO JSString
@@ -173,7 +173,7 @@
          (unHTMLEmbedElement (toHTMLEmbedElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"width\"] = $2;"
         ghcjs_dom_html_embed_element_set_width ::
         JSRef HTMLEmbedElement -> Int -> IO ()
@@ -191,7 +191,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"width\"]"
         ghcjs_dom_html_embed_element_get_width ::
         JSRef HTMLEmbedElement -> IO Int
diff --git a/src/GHCJS/DOM/HTMLFieldSetElement.hs b/src/GHCJS/DOM/HTMLFieldSetElement.hs
--- a/src/GHCJS/DOM/HTMLFieldSetElement.hs
+++ b/src/GHCJS/DOM/HTMLFieldSetElement.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.HTMLFieldSetElement
        (ghcjs_dom_html_field_set_element_check_validity,
@@ -42,7 +42,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "($1[\"checkValidity\"]() ? 1 : 0)"
         ghcjs_dom_html_field_set_element_check_validity ::
@@ -60,7 +60,7 @@
       (unHTMLFieldSetElement (toHTMLFieldSetElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"
         ghcjs_dom_html_field_set_element_set_custom_validity ::
         JSRef HTMLFieldSetElement -> JSString -> IO ()
@@ -80,7 +80,7 @@
       (toJSString error)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"disabled\"] = $2;"
         ghcjs_dom_html_field_set_element_set_disabled ::
         JSRef HTMLFieldSetElement -> Bool -> IO ()
@@ -98,7 +98,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"
         ghcjs_dom_html_field_set_element_get_disabled ::
         JSRef HTMLFieldSetElement -> IO Bool
@@ -115,7 +115,7 @@
       (unHTMLFieldSetElement (toHTMLFieldSetElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"form\"]"
         ghcjs_dom_html_field_set_element_get_form ::
         JSRef HTMLFieldSetElement -> IO (JSRef HTMLFormElement)
@@ -133,7 +133,7 @@
          (unHTMLFieldSetElement (toHTMLFieldSetElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"name\"] = $2;"
         ghcjs_dom_html_field_set_element_set_name ::
         JSRef HTMLFieldSetElement -> JSString -> IO ()
@@ -152,7 +152,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"name\"]"
         ghcjs_dom_html_field_set_element_get_name ::
         JSRef HTMLFieldSetElement -> IO JSString
@@ -171,7 +171,7 @@
          (unHTMLFieldSetElement (toHTMLFieldSetElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"elements\"]"
         ghcjs_dom_html_field_set_element_get_elements ::
         JSRef HTMLFieldSetElement -> IO (JSRef HTMLCollection)
@@ -190,7 +190,7 @@
          (unHTMLFieldSetElement (toHTMLFieldSetElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)"
         ghcjs_dom_html_field_set_element_get_will_validate ::
         JSRef HTMLFieldSetElement -> IO Bool
@@ -207,7 +207,7 @@
       (unHTMLFieldSetElement (toHTMLFieldSetElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"validity\"]"
         ghcjs_dom_html_field_set_element_get_validity ::
         JSRef HTMLFieldSetElement -> IO (JSRef ValidityState)
@@ -226,7 +226,7 @@
          (unHTMLFieldSetElement (toHTMLFieldSetElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"validationMessage\"]"
         ghcjs_dom_html_field_set_element_get_validation_message ::
         JSRef HTMLFieldSetElement -> IO JSString
diff --git a/src/GHCJS/DOM/HTMLFontElement.hs b/src/GHCJS/DOM/HTMLFontElement.hs
--- a/src/GHCJS/DOM/HTMLFontElement.hs
+++ b/src/GHCJS/DOM/HTMLFontElement.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.HTMLFontElement
        (ghcjs_dom_html_font_element_set_color, htmlFontElementSetColor,
@@ -26,7 +26,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"color\"] = $2;"
         ghcjs_dom_html_font_element_set_color ::
         JSRef HTMLFontElement -> JSString -> IO ()
@@ -44,7 +44,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"color\"]"
         ghcjs_dom_html_font_element_get_color ::
         JSRef HTMLFontElement -> IO JSString
@@ -62,7 +62,7 @@
          (unHTMLFontElement (toHTMLFontElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"face\"] = $2;"
         ghcjs_dom_html_font_element_set_face ::
         JSRef HTMLFontElement -> JSString -> IO ()
@@ -80,7 +80,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"face\"]"
         ghcjs_dom_html_font_element_get_face ::
         JSRef HTMLFontElement -> IO JSString
@@ -98,7 +98,7 @@
          (unHTMLFontElement (toHTMLFontElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"size\"] = $2;"
         ghcjs_dom_html_font_element_set_size ::
         JSRef HTMLFontElement -> JSString -> IO ()
@@ -116,7 +116,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"size\"]"
         ghcjs_dom_html_font_element_get_size ::
         JSRef HTMLFontElement -> IO JSString
diff --git a/src/GHCJS/DOM/HTMLFormElement.hs b/src/GHCJS/DOM/HTMLFormElement.hs
--- a/src/GHCJS/DOM/HTMLFormElement.hs
+++ b/src/GHCJS/DOM/HTMLFormElement.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.HTMLFormElement
        (ghcjs_dom_html_form_element_get, htmlFormElement_get,
@@ -53,7 +53,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"_get\"]($2)"
         ghcjs_dom_html_form_element_get ::
         JSRef HTMLFormElement -> Word -> IO (JSRef Element)
@@ -72,7 +72,7 @@
          index)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"submit\"]()"
         ghcjs_dom_html_form_element_submit ::
         JSRef HTMLFormElement -> IO ()
@@ -88,7 +88,7 @@
       (unHTMLFormElement (toHTMLFormElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"reset\"]()"
         ghcjs_dom_html_form_element_reset :: JSRef HTMLFormElement -> IO ()
 #else 
@@ -102,7 +102,7 @@
       (unHTMLFormElement (toHTMLFormElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "($1[\"checkValidity\"]() ? 1 : 0)"
         ghcjs_dom_html_form_element_check_validity ::
@@ -120,7 +120,7 @@
       (unHTMLFormElement (toHTMLFormElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"acceptCharset\"] = $2;"
         ghcjs_dom_html_form_element_set_accept_charset ::
         JSRef HTMLFormElement -> JSString -> IO ()
@@ -138,7 +138,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"acceptCharset\"]"
         ghcjs_dom_html_form_element_get_accept_charset ::
         JSRef HTMLFormElement -> IO JSString
@@ -156,7 +156,7 @@
          (unHTMLFormElement (toHTMLFormElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"action\"] = $2;"
         ghcjs_dom_html_form_element_set_action ::
         JSRef HTMLFormElement -> JSString -> IO ()
@@ -174,7 +174,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"action\"]"
         ghcjs_dom_html_form_element_get_action ::
         JSRef HTMLFormElement -> IO JSString
@@ -192,7 +192,7 @@
          (unHTMLFormElement (toHTMLFormElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"autocomplete\"] = $2;"
         ghcjs_dom_html_form_element_set_autocomplete ::
         JSRef HTMLFormElement -> JSString -> IO ()
@@ -210,7 +210,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"autocomplete\"]"
         ghcjs_dom_html_form_element_get_autocomplete ::
         JSRef HTMLFormElement -> IO JSString
@@ -228,7 +228,7 @@
          (unHTMLFormElement (toHTMLFormElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"enctype\"] = $2;"
         ghcjs_dom_html_form_element_set_enctype ::
         JSRef HTMLFormElement -> JSString -> IO ()
@@ -246,7 +246,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"enctype\"]"
         ghcjs_dom_html_form_element_get_enctype ::
         JSRef HTMLFormElement -> IO JSString
@@ -264,7 +264,7 @@
          (unHTMLFormElement (toHTMLFormElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"encoding\"] = $2;"
         ghcjs_dom_html_form_element_set_encoding ::
         JSRef HTMLFormElement -> JSString -> IO ()
@@ -282,7 +282,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"encoding\"]"
         ghcjs_dom_html_form_element_get_encoding ::
         JSRef HTMLFormElement -> IO JSString
@@ -300,7 +300,7 @@
          (unHTMLFormElement (toHTMLFormElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"method\"] = $2;"
         ghcjs_dom_html_form_element_set_method ::
         JSRef HTMLFormElement -> JSString -> IO ()
@@ -318,7 +318,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"method\"]"
         ghcjs_dom_html_form_element_get_method ::
         JSRef HTMLFormElement -> IO JSString
@@ -336,7 +336,7 @@
          (unHTMLFormElement (toHTMLFormElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"name\"] = $2;"
         ghcjs_dom_html_form_element_set_name ::
         JSRef HTMLFormElement -> JSString -> IO ()
@@ -354,7 +354,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"name\"]"
         ghcjs_dom_html_form_element_get_name ::
         JSRef HTMLFormElement -> IO JSString
@@ -372,7 +372,7 @@
          (unHTMLFormElement (toHTMLFormElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"noValidate\"] = $2;"
         ghcjs_dom_html_form_element_set_no_validate ::
         JSRef HTMLFormElement -> Bool -> IO ()
@@ -390,7 +390,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"noValidate\"] ? 1 : 0)"
         ghcjs_dom_html_form_element_get_no_validate ::
         JSRef HTMLFormElement -> IO Bool
@@ -407,7 +407,7 @@
       (unHTMLFormElement (toHTMLFormElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"target\"] = $2;"
         ghcjs_dom_html_form_element_set_target ::
         JSRef HTMLFormElement -> JSString -> IO ()
@@ -425,7 +425,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"target\"]"
         ghcjs_dom_html_form_element_get_target ::
         JSRef HTMLFormElement -> IO JSString
@@ -443,7 +443,7 @@
          (unHTMLFormElement (toHTMLFormElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"elements\"]"
         ghcjs_dom_html_form_element_get_elements ::
         JSRef HTMLFormElement -> IO (JSRef HTMLCollection)
@@ -461,7 +461,7 @@
          (unHTMLFormElement (toHTMLFormElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"length\"]"
         ghcjs_dom_html_form_element_get_length ::
         JSRef HTMLFormElement -> IO Int
diff --git a/src/GHCJS/DOM/HTMLFrameElement.hs b/src/GHCJS/DOM/HTMLFrameElement.hs
--- a/src/GHCJS/DOM/HTMLFrameElement.hs
+++ b/src/GHCJS/DOM/HTMLFrameElement.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.HTMLFrameElement
        (ghcjs_dom_html_frame_element_set_frame_border,
@@ -54,7 +54,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"frameBorder\"] = $2;"
         ghcjs_dom_html_frame_element_set_frame_border ::
         JSRef HTMLFrameElement -> JSString -> IO ()
@@ -72,7 +72,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"frameBorder\"]"
         ghcjs_dom_html_frame_element_get_frame_border ::
         JSRef HTMLFrameElement -> IO JSString
@@ -90,7 +90,7 @@
          (unHTMLFrameElement (toHTMLFrameElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"longDesc\"] = $2;"
         ghcjs_dom_html_frame_element_set_long_desc ::
         JSRef HTMLFrameElement -> JSString -> IO ()
@@ -108,7 +108,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"longDesc\"]"
         ghcjs_dom_html_frame_element_get_long_desc ::
         JSRef HTMLFrameElement -> IO JSString
@@ -126,7 +126,7 @@
          (unHTMLFrameElement (toHTMLFrameElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"marginHeight\"] = $2;"
         ghcjs_dom_html_frame_element_set_margin_height ::
         JSRef HTMLFrameElement -> JSString -> IO ()
@@ -144,7 +144,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"marginHeight\"]"
         ghcjs_dom_html_frame_element_get_margin_height ::
         JSRef HTMLFrameElement -> IO JSString
@@ -162,7 +162,7 @@
          (unHTMLFrameElement (toHTMLFrameElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"marginWidth\"] = $2;"
         ghcjs_dom_html_frame_element_set_margin_width ::
         JSRef HTMLFrameElement -> JSString -> IO ()
@@ -180,7 +180,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"marginWidth\"]"
         ghcjs_dom_html_frame_element_get_margin_width ::
         JSRef HTMLFrameElement -> IO JSString
@@ -198,7 +198,7 @@
          (unHTMLFrameElement (toHTMLFrameElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"name\"] = $2;"
         ghcjs_dom_html_frame_element_set_name ::
         JSRef HTMLFrameElement -> JSString -> IO ()
@@ -216,7 +216,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"name\"]"
         ghcjs_dom_html_frame_element_get_name ::
         JSRef HTMLFrameElement -> IO JSString
@@ -234,7 +234,7 @@
          (unHTMLFrameElement (toHTMLFrameElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"noResize\"] = $2;"
         ghcjs_dom_html_frame_element_set_no_resize ::
         JSRef HTMLFrameElement -> Bool -> IO ()
@@ -252,7 +252,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"noResize\"] ? 1 : 0)"
         ghcjs_dom_html_frame_element_get_no_resize ::
         JSRef HTMLFrameElement -> IO Bool
@@ -269,7 +269,7 @@
       (unHTMLFrameElement (toHTMLFrameElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"scrolling\"] = $2;"
         ghcjs_dom_html_frame_element_set_scrolling ::
         JSRef HTMLFrameElement -> JSString -> IO ()
@@ -287,7 +287,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"scrolling\"]"
         ghcjs_dom_html_frame_element_get_scrolling ::
         JSRef HTMLFrameElement -> IO JSString
@@ -305,7 +305,7 @@
          (unHTMLFrameElement (toHTMLFrameElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"src\"] = $2;"
         ghcjs_dom_html_frame_element_set_src ::
         JSRef HTMLFrameElement -> JSString -> IO ()
@@ -323,7 +323,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"src\"]"
         ghcjs_dom_html_frame_element_get_src ::
         JSRef HTMLFrameElement -> IO JSString
@@ -341,7 +341,7 @@
          (unHTMLFrameElement (toHTMLFrameElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"contentDocument\"]"
         ghcjs_dom_html_frame_element_get_content_document ::
         JSRef HTMLFrameElement -> IO (JSRef Document)
@@ -359,7 +359,7 @@
          (unHTMLFrameElement (toHTMLFrameElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"contentWindow\"]"
         ghcjs_dom_html_frame_element_get_content_window ::
         JSRef HTMLFrameElement -> IO (JSRef DOMWindow)
@@ -377,7 +377,7 @@
          (unHTMLFrameElement (toHTMLFrameElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"width\"]"
         ghcjs_dom_html_frame_element_get_width ::
         JSRef HTMLFrameElement -> IO Int
@@ -394,7 +394,7 @@
       (unHTMLFrameElement (toHTMLFrameElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"height\"]"
         ghcjs_dom_html_frame_element_get_height ::
         JSRef HTMLFrameElement -> IO Int
diff --git a/src/GHCJS/DOM/HTMLFrameSetElement.hs b/src/GHCJS/DOM/HTMLFrameSetElement.hs
--- a/src/GHCJS/DOM/HTMLFrameSetElement.hs
+++ b/src/GHCJS/DOM/HTMLFrameSetElement.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.HTMLFrameSetElement
        (ghcjs_dom_html_frame_set_element_set_cols,
@@ -35,7 +35,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"cols\"] = $2;"
         ghcjs_dom_html_frame_set_element_set_cols ::
         JSRef HTMLFrameSetElement -> JSString -> IO ()
@@ -54,7 +54,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"cols\"]"
         ghcjs_dom_html_frame_set_element_get_cols ::
         JSRef HTMLFrameSetElement -> IO JSString
@@ -73,7 +73,7 @@
          (unHTMLFrameSetElement (toHTMLFrameSetElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"rows\"] = $2;"
         ghcjs_dom_html_frame_set_element_set_rows ::
         JSRef HTMLFrameSetElement -> JSString -> IO ()
@@ -92,7 +92,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"rows\"]"
         ghcjs_dom_html_frame_set_element_get_rows ::
         JSRef HTMLFrameSetElement -> IO JSString
diff --git a/src/GHCJS/DOM/HTMLHRElement.hs b/src/GHCJS/DOM/HTMLHRElement.hs
--- a/src/GHCJS/DOM/HTMLHRElement.hs
+++ b/src/GHCJS/DOM/HTMLHRElement.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.HTMLHRElement
        (ghcjs_dom_htmlhr_element_set_align, htmlhrElementSetAlign,
@@ -28,7 +28,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"align\"] = $2;"
         ghcjs_dom_htmlhr_element_set_align ::
         JSRef HTMLHRElement -> JSString -> IO ()
@@ -46,7 +46,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"align\"]"
         ghcjs_dom_htmlhr_element_get_align ::
         JSRef HTMLHRElement -> IO JSString
@@ -64,7 +64,7 @@
          (unHTMLHRElement (toHTMLHRElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"noShade\"] = $2;"
         ghcjs_dom_htmlhr_element_set_no_shade ::
         JSRef HTMLHRElement -> Bool -> IO ()
@@ -82,7 +82,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"noShade\"] ? 1 : 0)"
         ghcjs_dom_htmlhr_element_get_no_shade ::
         JSRef HTMLHRElement -> IO Bool
@@ -99,7 +99,7 @@
       (unHTMLHRElement (toHTMLHRElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"size\"] = $2;"
         ghcjs_dom_htmlhr_element_set_size ::
         JSRef HTMLHRElement -> JSString -> IO ()
@@ -117,7 +117,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"size\"]"
         ghcjs_dom_htmlhr_element_get_size ::
         JSRef HTMLHRElement -> IO JSString
@@ -135,7 +135,7 @@
          (unHTMLHRElement (toHTMLHRElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"width\"] = $2;"
         ghcjs_dom_htmlhr_element_set_width ::
         JSRef HTMLHRElement -> JSString -> IO ()
@@ -153,7 +153,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"width\"]"
         ghcjs_dom_htmlhr_element_get_width ::
         JSRef HTMLHRElement -> IO JSString
diff --git a/src/GHCJS/DOM/HTMLHeadElement.hs b/src/GHCJS/DOM/HTMLHeadElement.hs
--- a/src/GHCJS/DOM/HTMLHeadElement.hs
+++ b/src/GHCJS/DOM/HTMLHeadElement.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.HTMLHeadElement
        (ghcjs_dom_html_head_element_set_profile,
@@ -22,7 +22,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"profile\"] = $2;"
         ghcjs_dom_html_head_element_set_profile ::
         JSRef HTMLHeadElement -> JSString -> IO ()
@@ -40,7 +40,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"profile\"]"
         ghcjs_dom_html_head_element_get_profile ::
         JSRef HTMLHeadElement -> IO JSString
diff --git a/src/GHCJS/DOM/HTMLHeadingElement.hs b/src/GHCJS/DOM/HTMLHeadingElement.hs
--- a/src/GHCJS/DOM/HTMLHeadingElement.hs
+++ b/src/GHCJS/DOM/HTMLHeadingElement.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.HTMLHeadingElement
        (ghcjs_dom_html_heading_element_set_align,
@@ -24,7 +24,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"align\"] = $2;"
         ghcjs_dom_html_heading_element_set_align ::
         JSRef HTMLHeadingElement -> JSString -> IO ()
@@ -42,7 +42,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"align\"]"
         ghcjs_dom_html_heading_element_get_align ::
         JSRef HTMLHeadingElement -> IO JSString
diff --git a/src/GHCJS/DOM/HTMLHtmlElement.hs b/src/GHCJS/DOM/HTMLHtmlElement.hs
--- a/src/GHCJS/DOM/HTMLHtmlElement.hs
+++ b/src/GHCJS/DOM/HTMLHtmlElement.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.HTMLHtmlElement
        (ghcjs_dom_html_html_element_set_version,
@@ -26,7 +26,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"version\"] = $2;"
         ghcjs_dom_html_html_element_set_version ::
         JSRef HTMLHtmlElement -> JSString -> IO ()
@@ -44,7 +44,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"version\"]"
         ghcjs_dom_html_html_element_get_version ::
         JSRef HTMLHtmlElement -> IO JSString
@@ -62,7 +62,7 @@
          (unHTMLHtmlElement (toHTMLHtmlElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"manifest\"] = $2;"
         ghcjs_dom_html_html_element_set_manifest ::
         JSRef HTMLHtmlElement -> JSString -> IO ()
@@ -80,7 +80,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"manifest\"]"
         ghcjs_dom_html_html_element_get_manifest ::
         JSRef HTMLHtmlElement -> IO JSString
diff --git a/src/GHCJS/DOM/HTMLIFrameElement.hs b/src/GHCJS/DOM/HTMLIFrameElement.hs
--- a/src/GHCJS/DOM/HTMLIFrameElement.hs
+++ b/src/GHCJS/DOM/HTMLIFrameElement.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.HTMLIFrameElement
        (ghcjs_dom_html_iframe_element_set_align,
@@ -69,7 +69,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"align\"] = $2;"
         ghcjs_dom_html_iframe_element_set_align ::
         JSRef HTMLIFrameElement -> JSString -> IO ()
@@ -87,7 +87,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"align\"]"
         ghcjs_dom_html_iframe_element_get_align ::
         JSRef HTMLIFrameElement -> IO JSString
@@ -106,7 +106,7 @@
          (unHTMLIFrameElement (toHTMLIFrameElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"frameBorder\"] = $2;"
         ghcjs_dom_html_iframe_element_set_frame_border ::
         JSRef HTMLIFrameElement -> JSString -> IO ()
@@ -124,7 +124,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"frameBorder\"]"
         ghcjs_dom_html_iframe_element_get_frame_border ::
         JSRef HTMLIFrameElement -> IO JSString
@@ -143,7 +143,7 @@
          (unHTMLIFrameElement (toHTMLIFrameElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"height\"] = $2;"
         ghcjs_dom_html_iframe_element_set_height ::
         JSRef HTMLIFrameElement -> JSString -> IO ()
@@ -161,7 +161,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"height\"]"
         ghcjs_dom_html_iframe_element_get_height ::
         JSRef HTMLIFrameElement -> IO JSString
@@ -180,7 +180,7 @@
          (unHTMLIFrameElement (toHTMLIFrameElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"longDesc\"] = $2;"
         ghcjs_dom_html_iframe_element_set_long_desc ::
         JSRef HTMLIFrameElement -> JSString -> IO ()
@@ -198,7 +198,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"longDesc\"]"
         ghcjs_dom_html_iframe_element_get_long_desc ::
         JSRef HTMLIFrameElement -> IO JSString
@@ -217,7 +217,7 @@
          (unHTMLIFrameElement (toHTMLIFrameElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"marginHeight\"] = $2;"
         ghcjs_dom_html_iframe_element_set_margin_height ::
         JSRef HTMLIFrameElement -> JSString -> IO ()
@@ -235,7 +235,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"marginHeight\"]"
         ghcjs_dom_html_iframe_element_get_margin_height ::
         JSRef HTMLIFrameElement -> IO JSString
@@ -254,7 +254,7 @@
          (unHTMLIFrameElement (toHTMLIFrameElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"marginWidth\"] = $2;"
         ghcjs_dom_html_iframe_element_set_margin_width ::
         JSRef HTMLIFrameElement -> JSString -> IO ()
@@ -272,7 +272,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"marginWidth\"]"
         ghcjs_dom_html_iframe_element_get_margin_width ::
         JSRef HTMLIFrameElement -> IO JSString
@@ -291,7 +291,7 @@
          (unHTMLIFrameElement (toHTMLIFrameElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"name\"] = $2;"
         ghcjs_dom_html_iframe_element_set_name ::
         JSRef HTMLIFrameElement -> JSString -> IO ()
@@ -309,7 +309,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"name\"]"
         ghcjs_dom_html_iframe_element_get_name ::
         JSRef HTMLIFrameElement -> IO JSString
@@ -328,7 +328,7 @@
          (unHTMLIFrameElement (toHTMLIFrameElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"sandbox\"] = $2;"
         ghcjs_dom_html_iframe_element_set_sandbox ::
         JSRef HTMLIFrameElement -> JSString -> IO ()
@@ -346,7 +346,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"sandbox\"]"
         ghcjs_dom_html_iframe_element_get_sandbox ::
         JSRef HTMLIFrameElement -> IO JSString
@@ -365,7 +365,7 @@
          (unHTMLIFrameElement (toHTMLIFrameElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"seamless\"] = $2;"
         ghcjs_dom_html_iframe_element_set_seamless ::
         JSRef HTMLIFrameElement -> Bool -> IO ()
@@ -383,7 +383,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"seamless\"] ? 1 : 0)"
         ghcjs_dom_html_iframe_element_get_seamless ::
         JSRef HTMLIFrameElement -> IO Bool
@@ -400,7 +400,7 @@
       (unHTMLIFrameElement (toHTMLIFrameElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"scrolling\"] = $2;"
         ghcjs_dom_html_iframe_element_set_scrolling ::
         JSRef HTMLIFrameElement -> JSString -> IO ()
@@ -418,7 +418,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"scrolling\"]"
         ghcjs_dom_html_iframe_element_get_scrolling ::
         JSRef HTMLIFrameElement -> IO JSString
@@ -437,7 +437,7 @@
          (unHTMLIFrameElement (toHTMLIFrameElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"src\"] = $2;"
         ghcjs_dom_html_iframe_element_set_src ::
         JSRef HTMLIFrameElement -> JSString -> IO ()
@@ -455,7 +455,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"src\"]"
         ghcjs_dom_html_iframe_element_get_src ::
         JSRef HTMLIFrameElement -> IO JSString
@@ -474,7 +474,7 @@
          (unHTMLIFrameElement (toHTMLIFrameElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"srcdoc\"] = $2;"
         ghcjs_dom_html_iframe_element_set_srcdoc ::
         JSRef HTMLIFrameElement -> JSString -> IO ()
@@ -492,7 +492,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"srcdoc\"]"
         ghcjs_dom_html_iframe_element_get_srcdoc ::
         JSRef HTMLIFrameElement -> IO JSString
@@ -511,7 +511,7 @@
          (unHTMLIFrameElement (toHTMLIFrameElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"width\"] = $2;"
         ghcjs_dom_html_iframe_element_set_width ::
         JSRef HTMLIFrameElement -> JSString -> IO ()
@@ -529,7 +529,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"width\"]"
         ghcjs_dom_html_iframe_element_get_width ::
         JSRef HTMLIFrameElement -> IO JSString
@@ -548,7 +548,7 @@
          (unHTMLIFrameElement (toHTMLIFrameElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"contentDocument\"]"
         ghcjs_dom_html_iframe_element_get_content_document ::
         JSRef HTMLIFrameElement -> IO (JSRef Document)
@@ -566,7 +566,7 @@
          (unHTMLIFrameElement (toHTMLIFrameElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"contentWindow\"]"
         ghcjs_dom_html_iframe_element_get_content_window ::
         JSRef HTMLIFrameElement -> IO (JSRef DOMWindow)
diff --git a/src/GHCJS/DOM/HTMLImageElement.hs b/src/GHCJS/DOM/HTMLImageElement.hs
--- a/src/GHCJS/DOM/HTMLImageElement.hs
+++ b/src/GHCJS/DOM/HTMLImageElement.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.HTMLImageElement
        (ghcjs_dom_html_image_element_set_name, htmlImageElementSetName,
@@ -64,7 +64,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"name\"] = $2;"
         ghcjs_dom_html_image_element_set_name ::
         JSRef HTMLImageElement -> JSString -> IO ()
@@ -82,7 +82,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"name\"]"
         ghcjs_dom_html_image_element_get_name ::
         JSRef HTMLImageElement -> IO JSString
@@ -100,7 +100,7 @@
          (unHTMLImageElement (toHTMLImageElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"align\"] = $2;"
         ghcjs_dom_html_image_element_set_align ::
         JSRef HTMLImageElement -> JSString -> IO ()
@@ -118,7 +118,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"align\"]"
         ghcjs_dom_html_image_element_get_align ::
         JSRef HTMLImageElement -> IO JSString
@@ -136,7 +136,7 @@
          (unHTMLImageElement (toHTMLImageElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"alt\"] = $2;"
         ghcjs_dom_html_image_element_set_alt ::
         JSRef HTMLImageElement -> JSString -> IO ()
@@ -154,7 +154,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"alt\"]"
         ghcjs_dom_html_image_element_get_alt ::
         JSRef HTMLImageElement -> IO JSString
@@ -172,7 +172,7 @@
          (unHTMLImageElement (toHTMLImageElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"border\"] = $2;"
         ghcjs_dom_html_image_element_set_border ::
         JSRef HTMLImageElement -> JSString -> IO ()
@@ -190,7 +190,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"border\"]"
         ghcjs_dom_html_image_element_get_border ::
         JSRef HTMLImageElement -> IO JSString
@@ -208,7 +208,7 @@
          (unHTMLImageElement (toHTMLImageElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"crossOrigin\"] = $2;"
         ghcjs_dom_html_image_element_set_cross_origin ::
         JSRef HTMLImageElement -> JSString -> IO ()
@@ -226,7 +226,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"crossOrigin\"]"
         ghcjs_dom_html_image_element_get_cross_origin ::
         JSRef HTMLImageElement -> IO JSString
@@ -244,7 +244,7 @@
          (unHTMLImageElement (toHTMLImageElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"height\"] = $2;"
         ghcjs_dom_html_image_element_set_height ::
         JSRef HTMLImageElement -> Int -> IO ()
@@ -262,7 +262,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"height\"]"
         ghcjs_dom_html_image_element_get_height ::
         JSRef HTMLImageElement -> IO Int
@@ -279,7 +279,7 @@
       (unHTMLImageElement (toHTMLImageElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"hspace\"] = $2;"
         ghcjs_dom_html_image_element_set_hspace ::
         JSRef HTMLImageElement -> Int -> IO ()
@@ -297,7 +297,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"hspace\"]"
         ghcjs_dom_html_image_element_get_hspace ::
         JSRef HTMLImageElement -> IO Int
@@ -314,7 +314,7 @@
       (unHTMLImageElement (toHTMLImageElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"isMap\"] = $2;"
         ghcjs_dom_html_image_element_set_is_map ::
         JSRef HTMLImageElement -> Bool -> IO ()
@@ -332,7 +332,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"isMap\"] ? 1 : 0)"
         ghcjs_dom_html_image_element_get_is_map ::
         JSRef HTMLImageElement -> IO Bool
@@ -349,7 +349,7 @@
       (unHTMLImageElement (toHTMLImageElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"longDesc\"] = $2;"
         ghcjs_dom_html_image_element_set_long_desc ::
         JSRef HTMLImageElement -> JSString -> IO ()
@@ -367,7 +367,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"longDesc\"]"
         ghcjs_dom_html_image_element_get_long_desc ::
         JSRef HTMLImageElement -> IO JSString
@@ -385,7 +385,7 @@
          (unHTMLImageElement (toHTMLImageElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"src\"] = $2;"
         ghcjs_dom_html_image_element_set_src ::
         JSRef HTMLImageElement -> JSString -> IO ()
@@ -403,7 +403,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"src\"]"
         ghcjs_dom_html_image_element_get_src ::
         JSRef HTMLImageElement -> IO JSString
@@ -421,7 +421,7 @@
          (unHTMLImageElement (toHTMLImageElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"srcset\"] = $2;"
         ghcjs_dom_html_image_element_set_srcset ::
         JSRef HTMLImageElement -> JSString -> IO ()
@@ -439,7 +439,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"srcset\"]"
         ghcjs_dom_html_image_element_get_srcset ::
         JSRef HTMLImageElement -> IO JSString
@@ -457,7 +457,7 @@
          (unHTMLImageElement (toHTMLImageElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"useMap\"] = $2;"
         ghcjs_dom_html_image_element_set_use_map ::
         JSRef HTMLImageElement -> JSString -> IO ()
@@ -475,7 +475,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"useMap\"]"
         ghcjs_dom_html_image_element_get_use_map ::
         JSRef HTMLImageElement -> IO JSString
@@ -493,7 +493,7 @@
          (unHTMLImageElement (toHTMLImageElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"vspace\"] = $2;"
         ghcjs_dom_html_image_element_set_vspace ::
         JSRef HTMLImageElement -> Int -> IO ()
@@ -511,7 +511,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"vspace\"]"
         ghcjs_dom_html_image_element_get_vspace ::
         JSRef HTMLImageElement -> IO Int
@@ -528,7 +528,7 @@
       (unHTMLImageElement (toHTMLImageElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"width\"] = $2;"
         ghcjs_dom_html_image_element_set_width ::
         JSRef HTMLImageElement -> Int -> IO ()
@@ -546,7 +546,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"width\"]"
         ghcjs_dom_html_image_element_get_width ::
         JSRef HTMLImageElement -> IO Int
@@ -563,7 +563,7 @@
       (unHTMLImageElement (toHTMLImageElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"complete\"] ? 1 : 0)"
         ghcjs_dom_html_image_element_get_complete ::
         JSRef HTMLImageElement -> IO Bool
@@ -580,7 +580,7 @@
       (unHTMLImageElement (toHTMLImageElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"lowsrc\"] = $2;"
         ghcjs_dom_html_image_element_set_lowsrc ::
         JSRef HTMLImageElement -> JSString -> IO ()
@@ -598,7 +598,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"lowsrc\"]"
         ghcjs_dom_html_image_element_get_lowsrc ::
         JSRef HTMLImageElement -> IO JSString
@@ -616,7 +616,7 @@
          (unHTMLImageElement (toHTMLImageElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"naturalHeight\"]"
         ghcjs_dom_html_image_element_get_natural_height ::
         JSRef HTMLImageElement -> IO Int
@@ -633,7 +633,7 @@
       (unHTMLImageElement (toHTMLImageElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"naturalWidth\"]"
         ghcjs_dom_html_image_element_get_natural_width ::
         JSRef HTMLImageElement -> IO Int
@@ -650,7 +650,7 @@
       (unHTMLImageElement (toHTMLImageElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"x\"]"
         ghcjs_dom_html_image_element_get_x ::
         JSRef HTMLImageElement -> IO Int
@@ -666,7 +666,7 @@
       (unHTMLImageElement (toHTMLImageElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"y\"]"
         ghcjs_dom_html_image_element_get_y ::
         JSRef HTMLImageElement -> IO Int
diff --git a/src/GHCJS/DOM/HTMLInputElement.hs b/src/GHCJS/DOM/HTMLInputElement.hs
--- a/src/GHCJS/DOM/HTMLInputElement.hs
+++ b/src/GHCJS/DOM/HTMLInputElement.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.HTMLInputElement
        (ghcjs_dom_html_input_element_step_up, htmlInputElementStepUp,
@@ -168,16 +168,16 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"stepUp\"]($2)"
         ghcjs_dom_html_input_element_step_up ::
         JSRef HTMLInputElement -> Int -> IO ()
-#else 
+#else
 ghcjs_dom_html_input_element_step_up ::
                                        JSRef HTMLInputElement -> Int -> IO ()
 ghcjs_dom_html_input_element_step_up = undefined
 #endif
- 
+
 htmlInputElementStepUp ::
                        (IsHTMLInputElement self) => self -> Int -> IO ()
 htmlInputElementStepUp self n
@@ -186,16 +186,16 @@
       n
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"stepDown\"]($2)"
         ghcjs_dom_html_input_element_step_down ::
         JSRef HTMLInputElement -> Int -> IO ()
-#else 
+#else
 ghcjs_dom_html_input_element_step_down ::
                                          JSRef HTMLInputElement -> Int -> IO ()
 ghcjs_dom_html_input_element_step_down = undefined
 #endif
- 
+
 htmlInputElementStepDown ::
                          (IsHTMLInputElement self) => self -> Int -> IO ()
 htmlInputElementStepDown self n
@@ -204,17 +204,17 @@
       n
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe
         "($1[\"checkValidity\"]() ? 1 : 0)"
         ghcjs_dom_html_input_element_check_validity ::
         JSRef HTMLInputElement -> IO Bool
-#else 
+#else
 ghcjs_dom_html_input_element_check_validity ::
                                               JSRef HTMLInputElement -> IO Bool
 ghcjs_dom_html_input_element_check_validity = undefined
 #endif
- 
+
 htmlInputElementCheckValidity ::
                               (IsHTMLInputElement self) => self -> IO Bool
 htmlInputElementCheckValidity self
@@ -222,16 +222,16 @@
       (unHTMLInputElement (toHTMLInputElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"
         ghcjs_dom_html_input_element_set_custom_validity ::
         JSRef HTMLInputElement -> JSString -> IO ()
-#else 
+#else
 ghcjs_dom_html_input_element_set_custom_validity ::
                                                    JSRef HTMLInputElement -> JSString -> IO ()
 ghcjs_dom_html_input_element_set_custom_validity = undefined
 #endif
- 
+
 htmlInputElementSetCustomValidity ::
                                   (IsHTMLInputElement self, ToJSString error) =>
                                     self -> error -> IO ()
@@ -241,16 +241,16 @@
       (toJSString error)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"select\"]()"
         ghcjs_dom_html_input_element_select ::
         JSRef HTMLInputElement -> IO ()
-#else 
+#else
 ghcjs_dom_html_input_element_select ::
                                       JSRef HTMLInputElement -> IO ()
 ghcjs_dom_html_input_element_select = undefined
 #endif
- 
+
 htmlInputElementSelect ::
                        (IsHTMLInputElement self) => self -> IO ()
 htmlInputElementSelect self
@@ -258,38 +258,19 @@
       (unHTMLInputElement (toHTMLInputElement self))
 
 
-#ifdef __GHCJS__ 
-foreign import javascript unsafe "$1[\"setRangeText\"]($2)"
-        ghcjs_dom_html_input_element_set_range_text ::
-        JSRef HTMLInputElement -> JSString -> IO ()
-#else 
-ghcjs_dom_html_input_element_set_range_text ::
-                                              JSRef HTMLInputElement -> JSString -> IO ()
-ghcjs_dom_html_input_element_set_range_text = undefined
-#endif
- 
-htmlInputElementSetRangeText ::
-                             (IsHTMLInputElement self, ToJSString replacement) =>
-                               self -> replacement -> IO ()
-htmlInputElementSetRangeText self replacement
-  = ghcjs_dom_html_input_element_set_range_text
-      (unHTMLInputElement (toHTMLInputElement self))
-      (toJSString replacement)
-
-
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe
         "$1[\"setRangeText\"]($2, $3, $4,\n$5)"
         ghcjs_dom_html_input_element_set_range_text ::
         JSRef HTMLInputElement ->
           JSString -> Word -> Word -> JSString -> IO ()
-#else 
+#else
 ghcjs_dom_html_input_element_set_range_text ::
                                               JSRef HTMLInputElement ->
                                                 JSString -> Word -> Word -> JSString -> IO ()
 ghcjs_dom_html_input_element_set_range_text = undefined
 #endif
- 
+
 htmlInputElementSetRangeText ::
                              (IsHTMLInputElement self, ToJSString replacement,
                               ToJSString selectionMode) =>
@@ -304,16 +285,16 @@
       (toJSString selectionMode)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"setValueForUser\"]($2)"
         ghcjs_dom_html_input_element_set_value_for_user ::
         JSRef HTMLInputElement -> JSString -> IO ()
-#else 
+#else
 ghcjs_dom_html_input_element_set_value_for_user ::
                                                   JSRef HTMLInputElement -> JSString -> IO ()
 ghcjs_dom_html_input_element_set_value_for_user = undefined
 #endif
- 
+
 htmlInputElementSetValueForUser ::
                                 (IsHTMLInputElement self, ToJSString value) =>
                                   self -> value -> IO ()
@@ -323,16 +304,16 @@
       (toJSString value)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"accept\"] = $2;"
         ghcjs_dom_html_input_element_set_accept ::
         JSRef HTMLInputElement -> JSString -> IO ()
-#else 
+#else
 ghcjs_dom_html_input_element_set_accept ::
                                           JSRef HTMLInputElement -> JSString -> IO ()
 ghcjs_dom_html_input_element_set_accept = undefined
 #endif
- 
+
 htmlInputElementSetAccept ::
                           (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()
 htmlInputElementSetAccept self val
@@ -341,16 +322,16 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"accept\"]"
         ghcjs_dom_html_input_element_get_accept ::
         JSRef HTMLInputElement -> IO JSString
-#else 
+#else
 ghcjs_dom_html_input_element_get_accept ::
                                           JSRef HTMLInputElement -> IO JSString
 ghcjs_dom_html_input_element_get_accept = undefined
 #endif
- 
+
 htmlInputElementGetAccept ::
                           (IsHTMLInputElement self, FromJSString result) => self -> IO result
 htmlInputElementGetAccept self
@@ -359,16 +340,16 @@
          (unHTMLInputElement (toHTMLInputElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"alt\"] = $2;"
         ghcjs_dom_html_input_element_set_alt ::
         JSRef HTMLInputElement -> JSString -> IO ()
-#else 
+#else
 ghcjs_dom_html_input_element_set_alt ::
                                        JSRef HTMLInputElement -> JSString -> IO ()
 ghcjs_dom_html_input_element_set_alt = undefined
 #endif
- 
+
 htmlInputElementSetAlt ::
                        (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()
 htmlInputElementSetAlt self val
@@ -377,16 +358,16 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"alt\"]"
         ghcjs_dom_html_input_element_get_alt ::
         JSRef HTMLInputElement -> IO JSString
-#else 
+#else
 ghcjs_dom_html_input_element_get_alt ::
                                        JSRef HTMLInputElement -> IO JSString
 ghcjs_dom_html_input_element_get_alt = undefined
 #endif
- 
+
 htmlInputElementGetAlt ::
                        (IsHTMLInputElement self, FromJSString result) => self -> IO result
 htmlInputElementGetAlt self
@@ -395,16 +376,16 @@
          (unHTMLInputElement (toHTMLInputElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"autocomplete\"] = $2;"
         ghcjs_dom_html_input_element_set_autocomplete ::
         JSRef HTMLInputElement -> JSString -> IO ()
-#else 
+#else
 ghcjs_dom_html_input_element_set_autocomplete ::
                                                 JSRef HTMLInputElement -> JSString -> IO ()
 ghcjs_dom_html_input_element_set_autocomplete = undefined
 #endif
- 
+
 htmlInputElementSetAutocomplete ::
                                 (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()
 htmlInputElementSetAutocomplete self val
@@ -413,16 +394,16 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"autocomplete\"]"
         ghcjs_dom_html_input_element_get_autocomplete ::
         JSRef HTMLInputElement -> IO JSString
-#else 
+#else
 ghcjs_dom_html_input_element_get_autocomplete ::
                                                 JSRef HTMLInputElement -> IO JSString
 ghcjs_dom_html_input_element_get_autocomplete = undefined
 #endif
- 
+
 htmlInputElementGetAutocomplete ::
                                 (IsHTMLInputElement self, FromJSString result) => self -> IO result
 htmlInputElementGetAutocomplete self
@@ -431,16 +412,16 @@
          (unHTMLInputElement (toHTMLInputElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"autofocus\"] = $2;"
         ghcjs_dom_html_input_element_set_autofocus ::
         JSRef HTMLInputElement -> Bool -> IO ()
-#else 
+#else
 ghcjs_dom_html_input_element_set_autofocus ::
                                              JSRef HTMLInputElement -> Bool -> IO ()
 ghcjs_dom_html_input_element_set_autofocus = undefined
 #endif
- 
+
 htmlInputElementSetAutofocus ::
                              (IsHTMLInputElement self) => self -> Bool -> IO ()
 htmlInputElementSetAutofocus self val
@@ -449,16 +430,16 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "($1[\"autofocus\"] ? 1 : 0)"
         ghcjs_dom_html_input_element_get_autofocus ::
         JSRef HTMLInputElement -> IO Bool
-#else 
+#else
 ghcjs_dom_html_input_element_get_autofocus ::
                                              JSRef HTMLInputElement -> IO Bool
 ghcjs_dom_html_input_element_get_autofocus = undefined
 #endif
- 
+
 htmlInputElementGetAutofocus ::
                              (IsHTMLInputElement self) => self -> IO Bool
 htmlInputElementGetAutofocus self
@@ -466,16 +447,16 @@
       (unHTMLInputElement (toHTMLInputElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"defaultChecked\"] = $2;"
         ghcjs_dom_html_input_element_set_default_checked ::
         JSRef HTMLInputElement -> Bool -> IO ()
-#else 
+#else
 ghcjs_dom_html_input_element_set_default_checked ::
                                                    JSRef HTMLInputElement -> Bool -> IO ()
 ghcjs_dom_html_input_element_set_default_checked = undefined
 #endif
- 
+
 htmlInputElementSetDefaultChecked ::
                                   (IsHTMLInputElement self) => self -> Bool -> IO ()
 htmlInputElementSetDefaultChecked self val
@@ -484,16 +465,16 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "($1[\"defaultChecked\"] ? 1 : 0)"
         ghcjs_dom_html_input_element_get_default_checked ::
         JSRef HTMLInputElement -> IO Bool
-#else 
+#else
 ghcjs_dom_html_input_element_get_default_checked ::
                                                    JSRef HTMLInputElement -> IO Bool
 ghcjs_dom_html_input_element_get_default_checked = undefined
 #endif
- 
+
 htmlInputElementGetDefaultChecked ::
                                   (IsHTMLInputElement self) => self -> IO Bool
 htmlInputElementGetDefaultChecked self
@@ -501,16 +482,16 @@
       (unHTMLInputElement (toHTMLInputElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"checked\"] = $2;"
         ghcjs_dom_html_input_element_set_checked ::
         JSRef HTMLInputElement -> Bool -> IO ()
-#else 
+#else
 ghcjs_dom_html_input_element_set_checked ::
                                            JSRef HTMLInputElement -> Bool -> IO ()
 ghcjs_dom_html_input_element_set_checked = undefined
 #endif
- 
+
 htmlInputElementSetChecked ::
                            (IsHTMLInputElement self) => self -> Bool -> IO ()
 htmlInputElementSetChecked self val
@@ -519,16 +500,16 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "($1[\"checked\"] ? 1 : 0)"
         ghcjs_dom_html_input_element_get_checked ::
         JSRef HTMLInputElement -> IO Bool
-#else 
+#else
 ghcjs_dom_html_input_element_get_checked ::
                                            JSRef HTMLInputElement -> IO Bool
 ghcjs_dom_html_input_element_get_checked = undefined
 #endif
- 
+
 htmlInputElementGetChecked ::
                            (IsHTMLInputElement self) => self -> IO Bool
 htmlInputElementGetChecked self
@@ -536,16 +517,16 @@
       (unHTMLInputElement (toHTMLInputElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"dirName\"] = $2;"
         ghcjs_dom_html_input_element_set_dir_name ::
         JSRef HTMLInputElement -> JSString -> IO ()
-#else 
+#else
 ghcjs_dom_html_input_element_set_dir_name ::
                                             JSRef HTMLInputElement -> JSString -> IO ()
 ghcjs_dom_html_input_element_set_dir_name = undefined
 #endif
- 
+
 htmlInputElementSetDirName ::
                            (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()
 htmlInputElementSetDirName self val
@@ -554,16 +535,16 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"dirName\"]"
         ghcjs_dom_html_input_element_get_dir_name ::
         JSRef HTMLInputElement -> IO JSString
-#else 
+#else
 ghcjs_dom_html_input_element_get_dir_name ::
                                             JSRef HTMLInputElement -> IO JSString
 ghcjs_dom_html_input_element_get_dir_name = undefined
 #endif
- 
+
 htmlInputElementGetDirName ::
                            (IsHTMLInputElement self, FromJSString result) => self -> IO result
 htmlInputElementGetDirName self
@@ -572,16 +553,16 @@
          (unHTMLInputElement (toHTMLInputElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"disabled\"] = $2;"
         ghcjs_dom_html_input_element_set_disabled ::
         JSRef HTMLInputElement -> Bool -> IO ()
-#else 
+#else
 ghcjs_dom_html_input_element_set_disabled ::
                                             JSRef HTMLInputElement -> Bool -> IO ()
 ghcjs_dom_html_input_element_set_disabled = undefined
 #endif
- 
+
 htmlInputElementSetDisabled ::
                             (IsHTMLInputElement self) => self -> Bool -> IO ()
 htmlInputElementSetDisabled self val
@@ -590,16 +571,16 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"
         ghcjs_dom_html_input_element_get_disabled ::
         JSRef HTMLInputElement -> IO Bool
-#else 
+#else
 ghcjs_dom_html_input_element_get_disabled ::
                                             JSRef HTMLInputElement -> IO Bool
 ghcjs_dom_html_input_element_get_disabled = undefined
 #endif
- 
+
 htmlInputElementGetDisabled ::
                             (IsHTMLInputElement self) => self -> IO Bool
 htmlInputElementGetDisabled self
@@ -607,16 +588,16 @@
       (unHTMLInputElement (toHTMLInputElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"form\"]"
         ghcjs_dom_html_input_element_get_form ::
         JSRef HTMLInputElement -> IO (JSRef HTMLFormElement)
-#else 
+#else
 ghcjs_dom_html_input_element_get_form ::
                                         JSRef HTMLInputElement -> IO (JSRef HTMLFormElement)
 ghcjs_dom_html_input_element_get_form = undefined
 #endif
- 
+
 htmlInputElementGetForm ::
                         (IsHTMLInputElement self) => self -> IO (Maybe HTMLFormElement)
 htmlInputElementGetForm self
@@ -625,16 +606,16 @@
          (unHTMLInputElement (toHTMLInputElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"files\"] = $2;"
         ghcjs_dom_html_input_element_set_files ::
         JSRef HTMLInputElement -> JSRef FileList -> IO ()
-#else 
+#else
 ghcjs_dom_html_input_element_set_files ::
                                          JSRef HTMLInputElement -> JSRef FileList -> IO ()
 ghcjs_dom_html_input_element_set_files = undefined
 #endif
- 
+
 htmlInputElementSetFiles ::
                          (IsHTMLInputElement self, IsFileList val) =>
                            self -> Maybe val -> IO ()
@@ -644,16 +625,16 @@
       (maybe jsNull (unFileList . toFileList) val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"files\"]"
         ghcjs_dom_html_input_element_get_files ::
         JSRef HTMLInputElement -> IO (JSRef FileList)
-#else 
+#else
 ghcjs_dom_html_input_element_get_files ::
                                          JSRef HTMLInputElement -> IO (JSRef FileList)
 ghcjs_dom_html_input_element_get_files = undefined
 #endif
- 
+
 htmlInputElementGetFiles ::
                          (IsHTMLInputElement self) => self -> IO (Maybe FileList)
 htmlInputElementGetFiles self
@@ -662,16 +643,16 @@
          (unHTMLInputElement (toHTMLInputElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"formAction\"] = $2;"
         ghcjs_dom_html_input_element_set_form_action ::
         JSRef HTMLInputElement -> JSString -> IO ()
-#else 
+#else
 ghcjs_dom_html_input_element_set_form_action ::
                                                JSRef HTMLInputElement -> JSString -> IO ()
 ghcjs_dom_html_input_element_set_form_action = undefined
 #endif
- 
+
 htmlInputElementSetFormAction ::
                               (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()
 htmlInputElementSetFormAction self val
@@ -680,16 +661,16 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"formAction\"]"
         ghcjs_dom_html_input_element_get_form_action ::
         JSRef HTMLInputElement -> IO JSString
-#else 
+#else
 ghcjs_dom_html_input_element_get_form_action ::
                                                JSRef HTMLInputElement -> IO JSString
 ghcjs_dom_html_input_element_get_form_action = undefined
 #endif
- 
+
 htmlInputElementGetFormAction ::
                               (IsHTMLInputElement self, FromJSString result) => self -> IO result
 htmlInputElementGetFormAction self
@@ -698,16 +679,16 @@
          (unHTMLInputElement (toHTMLInputElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"formEnctype\"] = $2;"
         ghcjs_dom_html_input_element_set_form_enctype ::
         JSRef HTMLInputElement -> JSString -> IO ()
-#else 
+#else
 ghcjs_dom_html_input_element_set_form_enctype ::
                                                 JSRef HTMLInputElement -> JSString -> IO ()
 ghcjs_dom_html_input_element_set_form_enctype = undefined
 #endif
- 
+
 htmlInputElementSetFormEnctype ::
                                (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()
 htmlInputElementSetFormEnctype self val
@@ -716,16 +697,16 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"formEnctype\"]"
         ghcjs_dom_html_input_element_get_form_enctype ::
         JSRef HTMLInputElement -> IO JSString
-#else 
+#else
 ghcjs_dom_html_input_element_get_form_enctype ::
                                                 JSRef HTMLInputElement -> IO JSString
 ghcjs_dom_html_input_element_get_form_enctype = undefined
 #endif
- 
+
 htmlInputElementGetFormEnctype ::
                                (IsHTMLInputElement self, FromJSString result) => self -> IO result
 htmlInputElementGetFormEnctype self
@@ -734,16 +715,16 @@
          (unHTMLInputElement (toHTMLInputElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"formMethod\"] = $2;"
         ghcjs_dom_html_input_element_set_form_method ::
         JSRef HTMLInputElement -> JSString -> IO ()
-#else 
+#else
 ghcjs_dom_html_input_element_set_form_method ::
                                                JSRef HTMLInputElement -> JSString -> IO ()
 ghcjs_dom_html_input_element_set_form_method = undefined
 #endif
- 
+
 htmlInputElementSetFormMethod ::
                               (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()
 htmlInputElementSetFormMethod self val
@@ -752,16 +733,16 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"formMethod\"]"
         ghcjs_dom_html_input_element_get_form_method ::
         JSRef HTMLInputElement -> IO JSString
-#else 
+#else
 ghcjs_dom_html_input_element_get_form_method ::
                                                JSRef HTMLInputElement -> IO JSString
 ghcjs_dom_html_input_element_get_form_method = undefined
 #endif
- 
+
 htmlInputElementGetFormMethod ::
                               (IsHTMLInputElement self, FromJSString result) => self -> IO result
 htmlInputElementGetFormMethod self
@@ -770,16 +751,16 @@
          (unHTMLInputElement (toHTMLInputElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"formNoValidate\"] = $2;"
         ghcjs_dom_html_input_element_set_form_no_validate ::
         JSRef HTMLInputElement -> Bool -> IO ()
-#else 
+#else
 ghcjs_dom_html_input_element_set_form_no_validate ::
                                                     JSRef HTMLInputElement -> Bool -> IO ()
 ghcjs_dom_html_input_element_set_form_no_validate = undefined
 #endif
- 
+
 htmlInputElementSetFormNoValidate ::
                                   (IsHTMLInputElement self) => self -> Bool -> IO ()
 htmlInputElementSetFormNoValidate self val
@@ -788,16 +769,16 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "($1[\"formNoValidate\"] ? 1 : 0)"
         ghcjs_dom_html_input_element_get_form_no_validate ::
         JSRef HTMLInputElement -> IO Bool
-#else 
+#else
 ghcjs_dom_html_input_element_get_form_no_validate ::
                                                     JSRef HTMLInputElement -> IO Bool
 ghcjs_dom_html_input_element_get_form_no_validate = undefined
 #endif
- 
+
 htmlInputElementGetFormNoValidate ::
                                   (IsHTMLInputElement self) => self -> IO Bool
 htmlInputElementGetFormNoValidate self
@@ -805,16 +786,16 @@
       (unHTMLInputElement (toHTMLInputElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"formTarget\"] = $2;"
         ghcjs_dom_html_input_element_set_form_target ::
         JSRef HTMLInputElement -> JSString -> IO ()
-#else 
+#else
 ghcjs_dom_html_input_element_set_form_target ::
                                                JSRef HTMLInputElement -> JSString -> IO ()
 ghcjs_dom_html_input_element_set_form_target = undefined
 #endif
- 
+
 htmlInputElementSetFormTarget ::
                               (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()
 htmlInputElementSetFormTarget self val
@@ -823,16 +804,16 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"formTarget\"]"
         ghcjs_dom_html_input_element_get_form_target ::
         JSRef HTMLInputElement -> IO JSString
-#else 
+#else
 ghcjs_dom_html_input_element_get_form_target ::
                                                JSRef HTMLInputElement -> IO JSString
 ghcjs_dom_html_input_element_get_form_target = undefined
 #endif
- 
+
 htmlInputElementGetFormTarget ::
                               (IsHTMLInputElement self, FromJSString result) => self -> IO result
 htmlInputElementGetFormTarget self
@@ -841,16 +822,16 @@
          (unHTMLInputElement (toHTMLInputElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"height\"] = $2;"
         ghcjs_dom_html_input_element_set_height ::
         JSRef HTMLInputElement -> Word -> IO ()
-#else 
+#else
 ghcjs_dom_html_input_element_set_height ::
                                           JSRef HTMLInputElement -> Word -> IO ()
 ghcjs_dom_html_input_element_set_height = undefined
 #endif
- 
+
 htmlInputElementSetHeight ::
                           (IsHTMLInputElement self) => self -> Word -> IO ()
 htmlInputElementSetHeight self val
@@ -859,16 +840,16 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"height\"]"
         ghcjs_dom_html_input_element_get_height ::
         JSRef HTMLInputElement -> IO Word
-#else 
+#else
 ghcjs_dom_html_input_element_get_height ::
                                           JSRef HTMLInputElement -> IO Word
 ghcjs_dom_html_input_element_get_height = undefined
 #endif
- 
+
 htmlInputElementGetHeight ::
                           (IsHTMLInputElement self) => self -> IO Word
 htmlInputElementGetHeight self
@@ -876,16 +857,16 @@
       (unHTMLInputElement (toHTMLInputElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"indeterminate\"] = $2;"
         ghcjs_dom_html_input_element_set_indeterminate ::
         JSRef HTMLInputElement -> Bool -> IO ()
-#else 
+#else
 ghcjs_dom_html_input_element_set_indeterminate ::
                                                  JSRef HTMLInputElement -> Bool -> IO ()
 ghcjs_dom_html_input_element_set_indeterminate = undefined
 #endif
- 
+
 htmlInputElementSetIndeterminate ::
                                  (IsHTMLInputElement self) => self -> Bool -> IO ()
 htmlInputElementSetIndeterminate self val
@@ -894,16 +875,16 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "($1[\"indeterminate\"] ? 1 : 0)"
         ghcjs_dom_html_input_element_get_indeterminate ::
         JSRef HTMLInputElement -> IO Bool
-#else 
+#else
 ghcjs_dom_html_input_element_get_indeterminate ::
                                                  JSRef HTMLInputElement -> IO Bool
 ghcjs_dom_html_input_element_get_indeterminate = undefined
 #endif
- 
+
 htmlInputElementGetIndeterminate ::
                                  (IsHTMLInputElement self) => self -> IO Bool
 htmlInputElementGetIndeterminate self
@@ -911,16 +892,16 @@
       (unHTMLInputElement (toHTMLInputElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"list\"]"
         ghcjs_dom_html_input_element_get_list ::
         JSRef HTMLInputElement -> IO (JSRef HTMLElement)
-#else 
+#else
 ghcjs_dom_html_input_element_get_list ::
                                         JSRef HTMLInputElement -> IO (JSRef HTMLElement)
 ghcjs_dom_html_input_element_get_list = undefined
 #endif
- 
+
 htmlInputElementGetList ::
                         (IsHTMLInputElement self) => self -> IO (Maybe HTMLElement)
 htmlInputElementGetList self
@@ -929,16 +910,16 @@
          (unHTMLInputElement (toHTMLInputElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"max\"] = $2;"
         ghcjs_dom_html_input_element_set_max ::
         JSRef HTMLInputElement -> JSString -> IO ()
-#else 
+#else
 ghcjs_dom_html_input_element_set_max ::
                                        JSRef HTMLInputElement -> JSString -> IO ()
 ghcjs_dom_html_input_element_set_max = undefined
 #endif
- 
+
 htmlInputElementSetMax ::
                        (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()
 htmlInputElementSetMax self val
@@ -947,16 +928,16 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"max\"]"
         ghcjs_dom_html_input_element_get_max ::
         JSRef HTMLInputElement -> IO JSString
-#else 
+#else
 ghcjs_dom_html_input_element_get_max ::
                                        JSRef HTMLInputElement -> IO JSString
 ghcjs_dom_html_input_element_get_max = undefined
 #endif
- 
+
 htmlInputElementGetMax ::
                        (IsHTMLInputElement self, FromJSString result) => self -> IO result
 htmlInputElementGetMax self
@@ -965,16 +946,16 @@
          (unHTMLInputElement (toHTMLInputElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"maxLength\"] = $2;"
         ghcjs_dom_html_input_element_set_max_length ::
         JSRef HTMLInputElement -> Int -> IO ()
-#else 
+#else
 ghcjs_dom_html_input_element_set_max_length ::
                                               JSRef HTMLInputElement -> Int -> IO ()
 ghcjs_dom_html_input_element_set_max_length = undefined
 #endif
- 
+
 htmlInputElementSetMaxLength ::
                              (IsHTMLInputElement self) => self -> Int -> IO ()
 htmlInputElementSetMaxLength self val
@@ -983,16 +964,16 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"maxLength\"]"
         ghcjs_dom_html_input_element_get_max_length ::
         JSRef HTMLInputElement -> IO Int
-#else 
+#else
 ghcjs_dom_html_input_element_get_max_length ::
                                               JSRef HTMLInputElement -> IO Int
 ghcjs_dom_html_input_element_get_max_length = undefined
 #endif
- 
+
 htmlInputElementGetMaxLength ::
                              (IsHTMLInputElement self) => self -> IO Int
 htmlInputElementGetMaxLength self
@@ -1000,16 +981,16 @@
       (unHTMLInputElement (toHTMLInputElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"min\"] = $2;"
         ghcjs_dom_html_input_element_set_min ::
         JSRef HTMLInputElement -> JSString -> IO ()
-#else 
+#else
 ghcjs_dom_html_input_element_set_min ::
                                        JSRef HTMLInputElement -> JSString -> IO ()
 ghcjs_dom_html_input_element_set_min = undefined
 #endif
- 
+
 htmlInputElementSetMin ::
                        (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()
 htmlInputElementSetMin self val
@@ -1018,16 +999,16 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"min\"]"
         ghcjs_dom_html_input_element_get_min ::
         JSRef HTMLInputElement -> IO JSString
-#else 
+#else
 ghcjs_dom_html_input_element_get_min ::
                                        JSRef HTMLInputElement -> IO JSString
 ghcjs_dom_html_input_element_get_min = undefined
 #endif
- 
+
 htmlInputElementGetMin ::
                        (IsHTMLInputElement self, FromJSString result) => self -> IO result
 htmlInputElementGetMin self
@@ -1036,16 +1017,16 @@
          (unHTMLInputElement (toHTMLInputElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"multiple\"] = $2;"
         ghcjs_dom_html_input_element_set_multiple ::
         JSRef HTMLInputElement -> Bool -> IO ()
-#else 
+#else
 ghcjs_dom_html_input_element_set_multiple ::
                                             JSRef HTMLInputElement -> Bool -> IO ()
 ghcjs_dom_html_input_element_set_multiple = undefined
 #endif
- 
+
 htmlInputElementSetMultiple ::
                             (IsHTMLInputElement self) => self -> Bool -> IO ()
 htmlInputElementSetMultiple self val
@@ -1054,16 +1035,16 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "($1[\"multiple\"] ? 1 : 0)"
         ghcjs_dom_html_input_element_get_multiple ::
         JSRef HTMLInputElement -> IO Bool
-#else 
+#else
 ghcjs_dom_html_input_element_get_multiple ::
                                             JSRef HTMLInputElement -> IO Bool
 ghcjs_dom_html_input_element_get_multiple = undefined
 #endif
- 
+
 htmlInputElementGetMultiple ::
                             (IsHTMLInputElement self) => self -> IO Bool
 htmlInputElementGetMultiple self
@@ -1071,16 +1052,16 @@
       (unHTMLInputElement (toHTMLInputElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"name\"] = $2;"
         ghcjs_dom_html_input_element_set_name ::
         JSRef HTMLInputElement -> JSString -> IO ()
-#else 
+#else
 ghcjs_dom_html_input_element_set_name ::
                                         JSRef HTMLInputElement -> JSString -> IO ()
 ghcjs_dom_html_input_element_set_name = undefined
 #endif
- 
+
 htmlInputElementSetName ::
                         (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()
 htmlInputElementSetName self val
@@ -1089,16 +1070,16 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"name\"]"
         ghcjs_dom_html_input_element_get_name ::
         JSRef HTMLInputElement -> IO JSString
-#else 
+#else
 ghcjs_dom_html_input_element_get_name ::
                                         JSRef HTMLInputElement -> IO JSString
 ghcjs_dom_html_input_element_get_name = undefined
 #endif
- 
+
 htmlInputElementGetName ::
                         (IsHTMLInputElement self, FromJSString result) => self -> IO result
 htmlInputElementGetName self
@@ -1107,16 +1088,16 @@
          (unHTMLInputElement (toHTMLInputElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"pattern\"] = $2;"
         ghcjs_dom_html_input_element_set_pattern ::
         JSRef HTMLInputElement -> JSString -> IO ()
-#else 
+#else
 ghcjs_dom_html_input_element_set_pattern ::
                                            JSRef HTMLInputElement -> JSString -> IO ()
 ghcjs_dom_html_input_element_set_pattern = undefined
 #endif
- 
+
 htmlInputElementSetPattern ::
                            (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()
 htmlInputElementSetPattern self val
@@ -1125,16 +1106,16 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"pattern\"]"
         ghcjs_dom_html_input_element_get_pattern ::
         JSRef HTMLInputElement -> IO JSString
-#else 
+#else
 ghcjs_dom_html_input_element_get_pattern ::
                                            JSRef HTMLInputElement -> IO JSString
 ghcjs_dom_html_input_element_get_pattern = undefined
 #endif
- 
+
 htmlInputElementGetPattern ::
                            (IsHTMLInputElement self, FromJSString result) => self -> IO result
 htmlInputElementGetPattern self
@@ -1143,16 +1124,16 @@
          (unHTMLInputElement (toHTMLInputElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"placeholder\"] = $2;"
         ghcjs_dom_html_input_element_set_placeholder ::
         JSRef HTMLInputElement -> JSString -> IO ()
-#else 
+#else
 ghcjs_dom_html_input_element_set_placeholder ::
                                                JSRef HTMLInputElement -> JSString -> IO ()
 ghcjs_dom_html_input_element_set_placeholder = undefined
 #endif
- 
+
 htmlInputElementSetPlaceholder ::
                                (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()
 htmlInputElementSetPlaceholder self val
@@ -1161,16 +1142,16 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"placeholder\"]"
         ghcjs_dom_html_input_element_get_placeholder ::
         JSRef HTMLInputElement -> IO JSString
-#else 
+#else
 ghcjs_dom_html_input_element_get_placeholder ::
                                                JSRef HTMLInputElement -> IO JSString
 ghcjs_dom_html_input_element_get_placeholder = undefined
 #endif
- 
+
 htmlInputElementGetPlaceholder ::
                                (IsHTMLInputElement self, FromJSString result) => self -> IO result
 htmlInputElementGetPlaceholder self
@@ -1179,16 +1160,16 @@
          (unHTMLInputElement (toHTMLInputElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"readOnly\"] = $2;"
         ghcjs_dom_html_input_element_set_read_only ::
         JSRef HTMLInputElement -> Bool -> IO ()
-#else 
+#else
 ghcjs_dom_html_input_element_set_read_only ::
                                              JSRef HTMLInputElement -> Bool -> IO ()
 ghcjs_dom_html_input_element_set_read_only = undefined
 #endif
- 
+
 htmlInputElementSetReadOnly ::
                             (IsHTMLInputElement self) => self -> Bool -> IO ()
 htmlInputElementSetReadOnly self val
@@ -1197,16 +1178,16 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "($1[\"readOnly\"] ? 1 : 0)"
         ghcjs_dom_html_input_element_get_read_only ::
         JSRef HTMLInputElement -> IO Bool
-#else 
+#else
 ghcjs_dom_html_input_element_get_read_only ::
                                              JSRef HTMLInputElement -> IO Bool
 ghcjs_dom_html_input_element_get_read_only = undefined
 #endif
- 
+
 htmlInputElementGetReadOnly ::
                             (IsHTMLInputElement self) => self -> IO Bool
 htmlInputElementGetReadOnly self
@@ -1214,16 +1195,16 @@
       (unHTMLInputElement (toHTMLInputElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"required\"] = $2;"
         ghcjs_dom_html_input_element_set_required ::
         JSRef HTMLInputElement -> Bool -> IO ()
-#else 
+#else
 ghcjs_dom_html_input_element_set_required ::
                                             JSRef HTMLInputElement -> Bool -> IO ()
 ghcjs_dom_html_input_element_set_required = undefined
 #endif
- 
+
 htmlInputElementSetRequired ::
                             (IsHTMLInputElement self) => self -> Bool -> IO ()
 htmlInputElementSetRequired self val
@@ -1232,16 +1213,16 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "($1[\"required\"] ? 1 : 0)"
         ghcjs_dom_html_input_element_get_required ::
         JSRef HTMLInputElement -> IO Bool
-#else 
+#else
 ghcjs_dom_html_input_element_get_required ::
                                             JSRef HTMLInputElement -> IO Bool
 ghcjs_dom_html_input_element_get_required = undefined
 #endif
- 
+
 htmlInputElementGetRequired ::
                             (IsHTMLInputElement self) => self -> IO Bool
 htmlInputElementGetRequired self
@@ -1249,16 +1230,16 @@
       (unHTMLInputElement (toHTMLInputElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"size\"] = $2;"
         ghcjs_dom_html_input_element_set_size ::
         JSRef HTMLInputElement -> Word -> IO ()
-#else 
+#else
 ghcjs_dom_html_input_element_set_size ::
                                         JSRef HTMLInputElement -> Word -> IO ()
 ghcjs_dom_html_input_element_set_size = undefined
 #endif
- 
+
 htmlInputElementSetSize ::
                         (IsHTMLInputElement self) => self -> Word -> IO ()
 htmlInputElementSetSize self val
@@ -1267,16 +1248,16 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"size\"]"
         ghcjs_dom_html_input_element_get_size ::
         JSRef HTMLInputElement -> IO Word
-#else 
+#else
 ghcjs_dom_html_input_element_get_size ::
                                         JSRef HTMLInputElement -> IO Word
 ghcjs_dom_html_input_element_get_size = undefined
 #endif
- 
+
 htmlInputElementGetSize ::
                         (IsHTMLInputElement self) => self -> IO Word
 htmlInputElementGetSize self
@@ -1284,16 +1265,16 @@
       (unHTMLInputElement (toHTMLInputElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"src\"] = $2;"
         ghcjs_dom_html_input_element_set_src ::
         JSRef HTMLInputElement -> JSString -> IO ()
-#else 
+#else
 ghcjs_dom_html_input_element_set_src ::
                                        JSRef HTMLInputElement -> JSString -> IO ()
 ghcjs_dom_html_input_element_set_src = undefined
 #endif
- 
+
 htmlInputElementSetSrc ::
                        (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()
 htmlInputElementSetSrc self val
@@ -1302,16 +1283,16 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"src\"]"
         ghcjs_dom_html_input_element_get_src ::
         JSRef HTMLInputElement -> IO JSString
-#else 
+#else
 ghcjs_dom_html_input_element_get_src ::
                                        JSRef HTMLInputElement -> IO JSString
 ghcjs_dom_html_input_element_get_src = undefined
 #endif
- 
+
 htmlInputElementGetSrc ::
                        (IsHTMLInputElement self, FromJSString result) => self -> IO result
 htmlInputElementGetSrc self
@@ -1320,16 +1301,16 @@
          (unHTMLInputElement (toHTMLInputElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"step\"] = $2;"
         ghcjs_dom_html_input_element_set_step ::
         JSRef HTMLInputElement -> JSString -> IO ()
-#else 
+#else
 ghcjs_dom_html_input_element_set_step ::
                                         JSRef HTMLInputElement -> JSString -> IO ()
 ghcjs_dom_html_input_element_set_step = undefined
 #endif
- 
+
 htmlInputElementSetStep ::
                         (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()
 htmlInputElementSetStep self val
@@ -1338,16 +1319,16 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"step\"]"
         ghcjs_dom_html_input_element_get_step ::
         JSRef HTMLInputElement -> IO JSString
-#else 
+#else
 ghcjs_dom_html_input_element_get_step ::
                                         JSRef HTMLInputElement -> IO JSString
 ghcjs_dom_html_input_element_get_step = undefined
 #endif
- 
+
 htmlInputElementGetStep ::
                         (IsHTMLInputElement self, FromJSString result) => self -> IO result
 htmlInputElementGetStep self
@@ -1356,16 +1337,16 @@
          (unHTMLInputElement (toHTMLInputElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"defaultValue\"] = $2;"
         ghcjs_dom_html_input_element_set_default_value ::
         JSRef HTMLInputElement -> JSString -> IO ()
-#else 
+#else
 ghcjs_dom_html_input_element_set_default_value ::
                                                  JSRef HTMLInputElement -> JSString -> IO ()
 ghcjs_dom_html_input_element_set_default_value = undefined
 #endif
- 
+
 htmlInputElementSetDefaultValue ::
                                 (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()
 htmlInputElementSetDefaultValue self val
@@ -1374,16 +1355,16 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"defaultValue\"]"
         ghcjs_dom_html_input_element_get_default_value ::
         JSRef HTMLInputElement -> IO JSString
-#else 
+#else
 ghcjs_dom_html_input_element_get_default_value ::
                                                  JSRef HTMLInputElement -> IO JSString
 ghcjs_dom_html_input_element_get_default_value = undefined
 #endif
- 
+
 htmlInputElementGetDefaultValue ::
                                 (IsHTMLInputElement self, FromJSString result) => self -> IO result
 htmlInputElementGetDefaultValue self
@@ -1392,16 +1373,16 @@
          (unHTMLInputElement (toHTMLInputElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"value\"] = $2;"
         ghcjs_dom_html_input_element_set_value ::
         JSRef HTMLInputElement -> JSString -> IO ()
-#else 
+#else
 ghcjs_dom_html_input_element_set_value ::
                                          JSRef HTMLInputElement -> JSString -> IO ()
 ghcjs_dom_html_input_element_set_value = undefined
 #endif
- 
+
 htmlInputElementSetValue ::
                          (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()
 htmlInputElementSetValue self val
@@ -1410,16 +1391,16 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"value\"]"
         ghcjs_dom_html_input_element_get_value ::
         JSRef HTMLInputElement -> IO JSString
-#else 
+#else
 ghcjs_dom_html_input_element_get_value ::
                                          JSRef HTMLInputElement -> IO JSString
 ghcjs_dom_html_input_element_get_value = undefined
 #endif
- 
+
 htmlInputElementGetValue ::
                          (IsHTMLInputElement self, FromJSString result) => self -> IO result
 htmlInputElementGetValue self
@@ -1428,16 +1409,16 @@
          (unHTMLInputElement (toHTMLInputElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"valueAsNumber\"] = $2;"
         ghcjs_dom_html_input_element_set_value_as_number ::
         JSRef HTMLInputElement -> Double -> IO ()
-#else 
+#else
 ghcjs_dom_html_input_element_set_value_as_number ::
                                                    JSRef HTMLInputElement -> Double -> IO ()
 ghcjs_dom_html_input_element_set_value_as_number = undefined
 #endif
- 
+
 htmlInputElementSetValueAsNumber ::
                                  (IsHTMLInputElement self) => self -> Double -> IO ()
 htmlInputElementSetValueAsNumber self val
@@ -1446,16 +1427,16 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"valueAsNumber\"]"
         ghcjs_dom_html_input_element_get_value_as_number ::
         JSRef HTMLInputElement -> IO Double
-#else 
+#else
 ghcjs_dom_html_input_element_get_value_as_number ::
                                                    JSRef HTMLInputElement -> IO Double
 ghcjs_dom_html_input_element_get_value_as_number = undefined
 #endif
- 
+
 htmlInputElementGetValueAsNumber ::
                                  (IsHTMLInputElement self) => self -> IO Double
 htmlInputElementGetValueAsNumber self
@@ -1463,16 +1444,16 @@
       (unHTMLInputElement (toHTMLInputElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"width\"] = $2;"
         ghcjs_dom_html_input_element_set_width ::
         JSRef HTMLInputElement -> Word -> IO ()
-#else 
+#else
 ghcjs_dom_html_input_element_set_width ::
                                          JSRef HTMLInputElement -> Word -> IO ()
 ghcjs_dom_html_input_element_set_width = undefined
 #endif
- 
+
 htmlInputElementSetWidth ::
                          (IsHTMLInputElement self) => self -> Word -> IO ()
 htmlInputElementSetWidth self val
@@ -1481,16 +1462,16 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"width\"]"
         ghcjs_dom_html_input_element_get_width ::
         JSRef HTMLInputElement -> IO Word
-#else 
+#else
 ghcjs_dom_html_input_element_get_width ::
                                          JSRef HTMLInputElement -> IO Word
 ghcjs_dom_html_input_element_get_width = undefined
 #endif
- 
+
 htmlInputElementGetWidth ::
                          (IsHTMLInputElement self) => self -> IO Word
 htmlInputElementGetWidth self
@@ -1498,16 +1479,16 @@
       (unHTMLInputElement (toHTMLInputElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)"
         ghcjs_dom_html_input_element_get_will_validate ::
         JSRef HTMLInputElement -> IO Bool
-#else 
+#else
 ghcjs_dom_html_input_element_get_will_validate ::
                                                  JSRef HTMLInputElement -> IO Bool
 ghcjs_dom_html_input_element_get_will_validate = undefined
 #endif
- 
+
 htmlInputElementGetWillValidate ::
                                 (IsHTMLInputElement self) => self -> IO Bool
 htmlInputElementGetWillValidate self
@@ -1515,16 +1496,16 @@
       (unHTMLInputElement (toHTMLInputElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"validity\"]"
         ghcjs_dom_html_input_element_get_validity ::
         JSRef HTMLInputElement -> IO (JSRef ValidityState)
-#else 
+#else
 ghcjs_dom_html_input_element_get_validity ::
                                             JSRef HTMLInputElement -> IO (JSRef ValidityState)
 ghcjs_dom_html_input_element_get_validity = undefined
 #endif
- 
+
 htmlInputElementGetValidity ::
                             (IsHTMLInputElement self) => self -> IO (Maybe ValidityState)
 htmlInputElementGetValidity self
@@ -1533,16 +1514,16 @@
          (unHTMLInputElement (toHTMLInputElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"validationMessage\"]"
         ghcjs_dom_html_input_element_get_validation_message ::
         JSRef HTMLInputElement -> IO JSString
-#else 
+#else
 ghcjs_dom_html_input_element_get_validation_message ::
                                                       JSRef HTMLInputElement -> IO JSString
 ghcjs_dom_html_input_element_get_validation_message = undefined
 #endif
- 
+
 htmlInputElementGetValidationMessage ::
                                      (IsHTMLInputElement self, FromJSString result) =>
                                        self -> IO result
@@ -1552,16 +1533,16 @@
          (unHTMLInputElement (toHTMLInputElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"labels\"]"
         ghcjs_dom_html_input_element_get_labels ::
         JSRef HTMLInputElement -> IO (JSRef NodeList)
-#else 
+#else
 ghcjs_dom_html_input_element_get_labels ::
                                           JSRef HTMLInputElement -> IO (JSRef NodeList)
 ghcjs_dom_html_input_element_get_labels = undefined
 #endif
- 
+
 htmlInputElementGetLabels ::
                           (IsHTMLInputElement self) => self -> IO (Maybe NodeList)
 htmlInputElementGetLabels self
@@ -1570,16 +1551,16 @@
          (unHTMLInputElement (toHTMLInputElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"align\"] = $2;"
         ghcjs_dom_html_input_element_set_align ::
         JSRef HTMLInputElement -> JSString -> IO ()
-#else 
+#else
 ghcjs_dom_html_input_element_set_align ::
                                          JSRef HTMLInputElement -> JSString -> IO ()
 ghcjs_dom_html_input_element_set_align = undefined
 #endif
- 
+
 htmlInputElementSetAlign ::
                          (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()
 htmlInputElementSetAlign self val
@@ -1588,16 +1569,16 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"align\"]"
         ghcjs_dom_html_input_element_get_align ::
         JSRef HTMLInputElement -> IO JSString
-#else 
+#else
 ghcjs_dom_html_input_element_get_align ::
                                          JSRef HTMLInputElement -> IO JSString
 ghcjs_dom_html_input_element_get_align = undefined
 #endif
- 
+
 htmlInputElementGetAlign ::
                          (IsHTMLInputElement self, FromJSString result) => self -> IO result
 htmlInputElementGetAlign self
@@ -1606,16 +1587,16 @@
          (unHTMLInputElement (toHTMLInputElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"webkitdirectory\"] = $2;"
         ghcjs_dom_html_input_element_set_webkitdirectory ::
         JSRef HTMLInputElement -> Bool -> IO ()
-#else 
+#else
 ghcjs_dom_html_input_element_set_webkitdirectory ::
                                                    JSRef HTMLInputElement -> Bool -> IO ()
 ghcjs_dom_html_input_element_set_webkitdirectory = undefined
 #endif
- 
+
 htmlInputElementSetWebkitdirectory ::
                                    (IsHTMLInputElement self) => self -> Bool -> IO ()
 htmlInputElementSetWebkitdirectory self val
@@ -1624,17 +1605,17 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe
         "($1[\"webkitdirectory\"] ? 1 : 0)"
         ghcjs_dom_html_input_element_get_webkitdirectory ::
         JSRef HTMLInputElement -> IO Bool
-#else 
+#else
 ghcjs_dom_html_input_element_get_webkitdirectory ::
                                                    JSRef HTMLInputElement -> IO Bool
 ghcjs_dom_html_input_element_get_webkitdirectory = undefined
 #endif
- 
+
 htmlInputElementGetWebkitdirectory ::
                                    (IsHTMLInputElement self) => self -> IO Bool
 htmlInputElementGetWebkitdirectory self
@@ -1642,16 +1623,16 @@
       (unHTMLInputElement (toHTMLInputElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"useMap\"] = $2;"
         ghcjs_dom_html_input_element_set_use_map ::
         JSRef HTMLInputElement -> JSString -> IO ()
-#else 
+#else
 ghcjs_dom_html_input_element_set_use_map ::
                                            JSRef HTMLInputElement -> JSString -> IO ()
 ghcjs_dom_html_input_element_set_use_map = undefined
 #endif
- 
+
 htmlInputElementSetUseMap ::
                           (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()
 htmlInputElementSetUseMap self val
@@ -1660,16 +1641,16 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"useMap\"]"
         ghcjs_dom_html_input_element_get_use_map ::
         JSRef HTMLInputElement -> IO JSString
-#else 
+#else
 ghcjs_dom_html_input_element_get_use_map ::
                                            JSRef HTMLInputElement -> IO JSString
 ghcjs_dom_html_input_element_get_use_map = undefined
 #endif
- 
+
 htmlInputElementGetUseMap ::
                           (IsHTMLInputElement self, FromJSString result) => self -> IO result
 htmlInputElementGetUseMap self
@@ -1678,16 +1659,16 @@
          (unHTMLInputElement (toHTMLInputElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"incremental\"] = $2;"
         ghcjs_dom_html_input_element_set_incremental ::
         JSRef HTMLInputElement -> Bool -> IO ()
-#else 
+#else
 ghcjs_dom_html_input_element_set_incremental ::
                                                JSRef HTMLInputElement -> Bool -> IO ()
 ghcjs_dom_html_input_element_set_incremental = undefined
 #endif
- 
+
 htmlInputElementSetIncremental ::
                                (IsHTMLInputElement self) => self -> Bool -> IO ()
 htmlInputElementSetIncremental self val
@@ -1696,16 +1677,16 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "($1[\"incremental\"] ? 1 : 0)"
         ghcjs_dom_html_input_element_get_incremental ::
         JSRef HTMLInputElement -> IO Bool
-#else 
+#else
 ghcjs_dom_html_input_element_get_incremental ::
                                                JSRef HTMLInputElement -> IO Bool
 ghcjs_dom_html_input_element_get_incremental = undefined
 #endif
- 
+
 htmlInputElementGetIncremental ::
                                (IsHTMLInputElement self) => self -> IO Bool
 htmlInputElementGetIncremental self
@@ -1713,16 +1694,16 @@
       (unHTMLInputElement (toHTMLInputElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"webkitSpeech\"] = $2;"
         ghcjs_dom_html_input_element_set_webkit_speech ::
         JSRef HTMLInputElement -> Bool -> IO ()
-#else 
+#else
 ghcjs_dom_html_input_element_set_webkit_speech ::
                                                  JSRef HTMLInputElement -> Bool -> IO ()
 ghcjs_dom_html_input_element_set_webkit_speech = undefined
 #endif
- 
+
 htmlInputElementSetWebkitSpeech ::
                                 (IsHTMLInputElement self) => self -> Bool -> IO ()
 htmlInputElementSetWebkitSpeech self val
@@ -1731,16 +1712,16 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "($1[\"webkitSpeech\"] ? 1 : 0)"
         ghcjs_dom_html_input_element_get_webkit_speech ::
         JSRef HTMLInputElement -> IO Bool
-#else 
+#else
 ghcjs_dom_html_input_element_get_webkit_speech ::
                                                  JSRef HTMLInputElement -> IO Bool
 ghcjs_dom_html_input_element_get_webkit_speech = undefined
 #endif
- 
+
 htmlInputElementGetWebkitSpeech ::
                                 (IsHTMLInputElement self) => self -> IO Bool
 htmlInputElementGetWebkitSpeech self
@@ -1748,16 +1729,16 @@
       (unHTMLInputElement (toHTMLInputElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"webkitGrammar\"] = $2;"
         ghcjs_dom_html_input_element_set_webkit_grammar ::
         JSRef HTMLInputElement -> Bool -> IO ()
-#else 
+#else
 ghcjs_dom_html_input_element_set_webkit_grammar ::
                                                   JSRef HTMLInputElement -> Bool -> IO ()
 ghcjs_dom_html_input_element_set_webkit_grammar = undefined
 #endif
- 
+
 htmlInputElementSetWebkitGrammar ::
                                  (IsHTMLInputElement self) => self -> Bool -> IO ()
 htmlInputElementSetWebkitGrammar self val
@@ -1766,22 +1747,22 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "($1[\"webkitGrammar\"] ? 1 : 0)"
         ghcjs_dom_html_input_element_get_webkit_grammar ::
         JSRef HTMLInputElement -> IO Bool
-#else 
+#else
 ghcjs_dom_html_input_element_get_webkit_grammar ::
                                                   JSRef HTMLInputElement -> IO Bool
 ghcjs_dom_html_input_element_get_webkit_grammar = undefined
 #endif
- 
+
 htmlInputElementGetWebkitGrammar ::
                                  (IsHTMLInputElement self) => self -> IO Bool
 htmlInputElementGetWebkitGrammar self
   = ghcjs_dom_html_input_element_get_webkit_grammar
       (unHTMLInputElement (toHTMLInputElement self))
- 
+
 htmlInputElementOnwebkitspeechchange ::
                                      (IsHTMLInputElement self) =>
                                        Signal self (EventM UIEvent self ())
@@ -1789,16 +1770,16 @@
   = (connect "webkitspeechchange")
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"capture\"] = $2;"
         ghcjs_dom_html_input_element_set_capture ::
         JSRef HTMLInputElement -> JSString -> IO ()
-#else 
+#else
 ghcjs_dom_html_input_element_set_capture ::
                                            JSRef HTMLInputElement -> JSString -> IO ()
 ghcjs_dom_html_input_element_set_capture = undefined
 #endif
- 
+
 htmlInputElementSetCapture ::
                            (IsHTMLInputElement self, ToJSString val) => self -> val -> IO ()
 htmlInputElementSetCapture self val
@@ -1807,16 +1788,16 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"capture\"]"
         ghcjs_dom_html_input_element_get_capture ::
         JSRef HTMLInputElement -> IO JSString
-#else 
+#else
 ghcjs_dom_html_input_element_get_capture ::
                                            JSRef HTMLInputElement -> IO JSString
 ghcjs_dom_html_input_element_get_capture = undefined
 #endif
- 
+
 htmlInputElementGetCapture ::
                            (IsHTMLInputElement self, FromJSString result) => self -> IO result
 htmlInputElementGetCapture self
diff --git a/src/GHCJS/DOM/HTMLKeygenElement.hs b/src/GHCJS/DOM/HTMLKeygenElement.hs
--- a/src/GHCJS/DOM/HTMLKeygenElement.hs
+++ b/src/GHCJS/DOM/HTMLKeygenElement.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.HTMLKeygenElement
        (ghcjs_dom_html_keygen_element_check_validity,
@@ -51,7 +51,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "($1[\"checkValidity\"]() ? 1 : 0)"
         ghcjs_dom_html_keygen_element_check_validity ::
@@ -69,7 +69,7 @@
       (unHTMLKeygenElement (toHTMLKeygenElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"
         ghcjs_dom_html_keygen_element_set_custom_validity ::
         JSRef HTMLKeygenElement -> JSString -> IO ()
@@ -88,7 +88,7 @@
       (toJSString error)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"autofocus\"] = $2;"
         ghcjs_dom_html_keygen_element_set_autofocus ::
         JSRef HTMLKeygenElement -> Bool -> IO ()
@@ -106,7 +106,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"autofocus\"] ? 1 : 0)"
         ghcjs_dom_html_keygen_element_get_autofocus ::
         JSRef HTMLKeygenElement -> IO Bool
@@ -123,7 +123,7 @@
       (unHTMLKeygenElement (toHTMLKeygenElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"challenge\"] = $2;"
         ghcjs_dom_html_keygen_element_set_challenge ::
         JSRef HTMLKeygenElement -> JSString -> IO ()
@@ -141,7 +141,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"challenge\"]"
         ghcjs_dom_html_keygen_element_get_challenge ::
         JSRef HTMLKeygenElement -> IO JSString
@@ -160,7 +160,7 @@
          (unHTMLKeygenElement (toHTMLKeygenElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"disabled\"] = $2;"
         ghcjs_dom_html_keygen_element_set_disabled ::
         JSRef HTMLKeygenElement -> Bool -> IO ()
@@ -178,7 +178,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"
         ghcjs_dom_html_keygen_element_get_disabled ::
         JSRef HTMLKeygenElement -> IO Bool
@@ -195,7 +195,7 @@
       (unHTMLKeygenElement (toHTMLKeygenElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"form\"]"
         ghcjs_dom_html_keygen_element_get_form ::
         JSRef HTMLKeygenElement -> IO (JSRef HTMLFormElement)
@@ -213,7 +213,7 @@
          (unHTMLKeygenElement (toHTMLKeygenElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"keytype\"] = $2;"
         ghcjs_dom_html_keygen_element_set_keytype ::
         JSRef HTMLKeygenElement -> JSString -> IO ()
@@ -231,7 +231,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"keytype\"]"
         ghcjs_dom_html_keygen_element_get_keytype ::
         JSRef HTMLKeygenElement -> IO JSString
@@ -250,7 +250,7 @@
          (unHTMLKeygenElement (toHTMLKeygenElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"name\"] = $2;"
         ghcjs_dom_html_keygen_element_set_name ::
         JSRef HTMLKeygenElement -> JSString -> IO ()
@@ -268,7 +268,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"name\"]"
         ghcjs_dom_html_keygen_element_get_name ::
         JSRef HTMLKeygenElement -> IO JSString
@@ -287,7 +287,7 @@
          (unHTMLKeygenElement (toHTMLKeygenElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)"
         ghcjs_dom_html_keygen_element_get_will_validate ::
         JSRef HTMLKeygenElement -> IO Bool
@@ -304,7 +304,7 @@
       (unHTMLKeygenElement (toHTMLKeygenElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"validity\"]"
         ghcjs_dom_html_keygen_element_get_validity ::
         JSRef HTMLKeygenElement -> IO (JSRef ValidityState)
@@ -322,7 +322,7 @@
          (unHTMLKeygenElement (toHTMLKeygenElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"validationMessage\"]"
         ghcjs_dom_html_keygen_element_get_validation_message ::
         JSRef HTMLKeygenElement -> IO JSString
@@ -341,7 +341,7 @@
          (unHTMLKeygenElement (toHTMLKeygenElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"labels\"]"
         ghcjs_dom_html_keygen_element_get_labels ::
         JSRef HTMLKeygenElement -> IO (JSRef NodeList)
diff --git a/src/GHCJS/DOM/HTMLLIElement.hs b/src/GHCJS/DOM/HTMLLIElement.hs
--- a/src/GHCJS/DOM/HTMLLIElement.hs
+++ b/src/GHCJS/DOM/HTMLLIElement.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.HTMLLIElement
        (ghcjs_dom_htmlli_element_set_value, htmlliElementSetValue,
@@ -22,7 +22,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"value\"] = $2;"
         ghcjs_dom_htmlli_element_set_value ::
         JSRef HTMLLIElement -> Int -> IO ()
@@ -40,7 +40,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"value\"]"
         ghcjs_dom_htmlli_element_get_value :: JSRef HTMLLIElement -> IO Int
 #else 
diff --git a/src/GHCJS/DOM/HTMLLabelElement.hs b/src/GHCJS/DOM/HTMLLabelElement.hs
--- a/src/GHCJS/DOM/HTMLLabelElement.hs
+++ b/src/GHCJS/DOM/HTMLLabelElement.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.HTMLLabelElement
        (ghcjs_dom_html_label_element_get_form, htmlLabelElementGetForm,
@@ -26,7 +26,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"form\"]"
         ghcjs_dom_html_label_element_get_form ::
         JSRef HTMLLabelElement -> IO (JSRef HTMLFormElement)
@@ -44,7 +44,7 @@
          (unHTMLLabelElement (toHTMLLabelElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"htmlFor\"] = $2;"
         ghcjs_dom_html_label_element_set_html_for ::
         JSRef HTMLLabelElement -> JSString -> IO ()
@@ -62,7 +62,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"htmlFor\"]"
         ghcjs_dom_html_label_element_get_html_for ::
         JSRef HTMLLabelElement -> IO JSString
@@ -80,7 +80,7 @@
          (unHTMLLabelElement (toHTMLLabelElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"control\"]"
         ghcjs_dom_html_label_element_get_control ::
         JSRef HTMLLabelElement -> IO (JSRef HTMLElement)
diff --git a/src/GHCJS/DOM/HTMLLegendElement.hs b/src/GHCJS/DOM/HTMLLegendElement.hs
--- a/src/GHCJS/DOM/HTMLLegendElement.hs
+++ b/src/GHCJS/DOM/HTMLLegendElement.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.HTMLLegendElement
        (ghcjs_dom_html_legend_element_get_form, htmlLegendElementGetForm,
@@ -23,7 +23,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"form\"]"
         ghcjs_dom_html_legend_element_get_form ::
         JSRef HTMLLegendElement -> IO (JSRef HTMLFormElement)
@@ -41,7 +41,7 @@
          (unHTMLLegendElement (toHTMLLegendElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"align\"] = $2;"
         ghcjs_dom_html_legend_element_set_align ::
         JSRef HTMLLegendElement -> JSString -> IO ()
@@ -59,7 +59,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"align\"]"
         ghcjs_dom_html_legend_element_get_align ::
         JSRef HTMLLegendElement -> IO JSString
diff --git a/src/GHCJS/DOM/HTMLLinkElement.hs b/src/GHCJS/DOM/HTMLLinkElement.hs
--- a/src/GHCJS/DOM/HTMLLinkElement.hs
+++ b/src/GHCJS/DOM/HTMLLinkElement.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.HTMLLinkElement
        (ghcjs_dom_html_link_element_set_disabled,
@@ -40,7 +40,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"disabled\"] = $2;"
         ghcjs_dom_html_link_element_set_disabled ::
         JSRef HTMLLinkElement -> Bool -> IO ()
@@ -58,7 +58,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"
         ghcjs_dom_html_link_element_get_disabled ::
         JSRef HTMLLinkElement -> IO Bool
@@ -75,7 +75,7 @@
       (unHTMLLinkElement (toHTMLLinkElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"charset\"] = $2;"
         ghcjs_dom_html_link_element_set_charset ::
         JSRef HTMLLinkElement -> JSString -> IO ()
@@ -93,7 +93,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"charset\"]"
         ghcjs_dom_html_link_element_get_charset ::
         JSRef HTMLLinkElement -> IO JSString
@@ -111,7 +111,7 @@
          (unHTMLLinkElement (toHTMLLinkElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"href\"] = $2;"
         ghcjs_dom_html_link_element_set_href ::
         JSRef HTMLLinkElement -> JSString -> IO ()
@@ -129,7 +129,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"href\"]"
         ghcjs_dom_html_link_element_get_href ::
         JSRef HTMLLinkElement -> IO JSString
@@ -147,7 +147,7 @@
          (unHTMLLinkElement (toHTMLLinkElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"hreflang\"] = $2;"
         ghcjs_dom_html_link_element_set_hreflang ::
         JSRef HTMLLinkElement -> JSString -> IO ()
@@ -165,7 +165,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"hreflang\"]"
         ghcjs_dom_html_link_element_get_hreflang ::
         JSRef HTMLLinkElement -> IO JSString
@@ -183,7 +183,7 @@
          (unHTMLLinkElement (toHTMLLinkElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"media\"] = $2;"
         ghcjs_dom_html_link_element_set_media ::
         JSRef HTMLLinkElement -> JSString -> IO ()
@@ -201,7 +201,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"media\"]"
         ghcjs_dom_html_link_element_get_media ::
         JSRef HTMLLinkElement -> IO JSString
@@ -219,7 +219,7 @@
          (unHTMLLinkElement (toHTMLLinkElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"rel\"] = $2;"
         ghcjs_dom_html_link_element_set_rel ::
         JSRef HTMLLinkElement -> JSString -> IO ()
@@ -237,7 +237,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"rel\"]"
         ghcjs_dom_html_link_element_get_rel ::
         JSRef HTMLLinkElement -> IO JSString
@@ -255,7 +255,7 @@
          (unHTMLLinkElement (toHTMLLinkElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"rev\"] = $2;"
         ghcjs_dom_html_link_element_set_rev ::
         JSRef HTMLLinkElement -> JSString -> IO ()
@@ -273,7 +273,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"rev\"]"
         ghcjs_dom_html_link_element_get_rev ::
         JSRef HTMLLinkElement -> IO JSString
@@ -291,7 +291,7 @@
          (unHTMLLinkElement (toHTMLLinkElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"target\"] = $2;"
         ghcjs_dom_html_link_element_set_target ::
         JSRef HTMLLinkElement -> JSString -> IO ()
@@ -309,7 +309,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"target\"]"
         ghcjs_dom_html_link_element_get_target ::
         JSRef HTMLLinkElement -> IO JSString
@@ -327,7 +327,7 @@
          (unHTMLLinkElement (toHTMLLinkElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"sheet\"]"
         ghcjs_dom_html_link_element_get_sheet ::
         JSRef HTMLLinkElement -> IO (JSRef StyleSheet)
diff --git a/src/GHCJS/DOM/HTMLMapElement.hs b/src/GHCJS/DOM/HTMLMapElement.hs
--- a/src/GHCJS/DOM/HTMLMapElement.hs
+++ b/src/GHCJS/DOM/HTMLMapElement.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.HTMLMapElement
        (ghcjs_dom_html_map_element_get_areas, htmlMapElementGetAreas,
@@ -23,7 +23,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"areas\"]"
         ghcjs_dom_html_map_element_get_areas ::
         JSRef HTMLMapElement -> IO (JSRef HTMLCollection)
@@ -41,7 +41,7 @@
          (unHTMLMapElement (toHTMLMapElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"name\"] = $2;"
         ghcjs_dom_html_map_element_set_name ::
         JSRef HTMLMapElement -> JSString -> IO ()
@@ -59,7 +59,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"name\"]"
         ghcjs_dom_html_map_element_get_name ::
         JSRef HTMLMapElement -> IO JSString
diff --git a/src/GHCJS/DOM/HTMLMarqueeElement.hs b/src/GHCJS/DOM/HTMLMarqueeElement.hs
--- a/src/GHCJS/DOM/HTMLMarqueeElement.hs
+++ b/src/GHCJS/DOM/HTMLMarqueeElement.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.HTMLMarqueeElement
        (ghcjs_dom_html_marquee_element_start, htmlMarqueeElementStart,
@@ -64,7 +64,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"start\"]()"
         ghcjs_dom_html_marquee_element_start ::
         JSRef HTMLMarqueeElement -> IO ()
@@ -81,7 +81,7 @@
       (unHTMLMarqueeElement (toHTMLMarqueeElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"stop\"]()"
         ghcjs_dom_html_marquee_element_stop ::
         JSRef HTMLMarqueeElement -> IO ()
@@ -98,7 +98,7 @@
       (unHTMLMarqueeElement (toHTMLMarqueeElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"behavior\"] = $2;"
         ghcjs_dom_html_marquee_element_set_behavior ::
         JSRef HTMLMarqueeElement -> JSString -> IO ()
@@ -116,7 +116,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"behavior\"]"
         ghcjs_dom_html_marquee_element_get_behavior ::
         JSRef HTMLMarqueeElement -> IO JSString
@@ -135,7 +135,7 @@
          (unHTMLMarqueeElement (toHTMLMarqueeElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"bgColor\"] = $2;"
         ghcjs_dom_html_marquee_element_set_bg_color ::
         JSRef HTMLMarqueeElement -> JSString -> IO ()
@@ -153,7 +153,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"bgColor\"]"
         ghcjs_dom_html_marquee_element_get_bg_color ::
         JSRef HTMLMarqueeElement -> IO JSString
@@ -172,7 +172,7 @@
          (unHTMLMarqueeElement (toHTMLMarqueeElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"direction\"] = $2;"
         ghcjs_dom_html_marquee_element_set_direction ::
         JSRef HTMLMarqueeElement -> JSString -> IO ()
@@ -190,7 +190,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"direction\"]"
         ghcjs_dom_html_marquee_element_get_direction ::
         JSRef HTMLMarqueeElement -> IO JSString
@@ -209,7 +209,7 @@
          (unHTMLMarqueeElement (toHTMLMarqueeElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"height\"] = $2;"
         ghcjs_dom_html_marquee_element_set_height ::
         JSRef HTMLMarqueeElement -> JSString -> IO ()
@@ -227,7 +227,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"height\"]"
         ghcjs_dom_html_marquee_element_get_height ::
         JSRef HTMLMarqueeElement -> IO JSString
@@ -246,7 +246,7 @@
          (unHTMLMarqueeElement (toHTMLMarqueeElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"hspace\"] = $2;"
         ghcjs_dom_html_marquee_element_set_hspace ::
         JSRef HTMLMarqueeElement -> Word -> IO ()
@@ -264,7 +264,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"hspace\"]"
         ghcjs_dom_html_marquee_element_get_hspace ::
         JSRef HTMLMarqueeElement -> IO Word
@@ -281,7 +281,7 @@
       (unHTMLMarqueeElement (toHTMLMarqueeElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"loop\"] = $2;"
         ghcjs_dom_html_marquee_element_set_loop ::
         JSRef HTMLMarqueeElement -> Int -> IO ()
@@ -299,7 +299,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"loop\"]"
         ghcjs_dom_html_marquee_element_get_loop ::
         JSRef HTMLMarqueeElement -> IO Int
@@ -316,7 +316,7 @@
       (unHTMLMarqueeElement (toHTMLMarqueeElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"scrollAmount\"] = $2;"
         ghcjs_dom_html_marquee_element_set_scroll_amount ::
         JSRef HTMLMarqueeElement -> Int -> IO ()
@@ -334,7 +334,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"scrollAmount\"]"
         ghcjs_dom_html_marquee_element_get_scroll_amount ::
         JSRef HTMLMarqueeElement -> IO Int
@@ -351,7 +351,7 @@
       (unHTMLMarqueeElement (toHTMLMarqueeElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"scrollDelay\"] = $2;"
         ghcjs_dom_html_marquee_element_set_scroll_delay ::
         JSRef HTMLMarqueeElement -> Int -> IO ()
@@ -369,7 +369,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"scrollDelay\"]"
         ghcjs_dom_html_marquee_element_get_scroll_delay ::
         JSRef HTMLMarqueeElement -> IO Int
@@ -386,7 +386,7 @@
       (unHTMLMarqueeElement (toHTMLMarqueeElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"trueSpeed\"] = $2;"
         ghcjs_dom_html_marquee_element_set_true_speed ::
         JSRef HTMLMarqueeElement -> Bool -> IO ()
@@ -404,7 +404,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"trueSpeed\"] ? 1 : 0)"
         ghcjs_dom_html_marquee_element_get_true_speed ::
         JSRef HTMLMarqueeElement -> IO Bool
@@ -421,7 +421,7 @@
       (unHTMLMarqueeElement (toHTMLMarqueeElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"vspace\"] = $2;"
         ghcjs_dom_html_marquee_element_set_vspace ::
         JSRef HTMLMarqueeElement -> Word -> IO ()
@@ -439,7 +439,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"vspace\"]"
         ghcjs_dom_html_marquee_element_get_vspace ::
         JSRef HTMLMarqueeElement -> IO Word
@@ -456,7 +456,7 @@
       (unHTMLMarqueeElement (toHTMLMarqueeElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"width\"] = $2;"
         ghcjs_dom_html_marquee_element_set_width ::
         JSRef HTMLMarqueeElement -> JSString -> IO ()
@@ -474,7 +474,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"width\"]"
         ghcjs_dom_html_marquee_element_get_width ::
         JSRef HTMLMarqueeElement -> IO JSString
diff --git a/src/GHCJS/DOM/HTMLMediaElement.hs b/src/GHCJS/DOM/HTMLMediaElement.hs
--- a/src/GHCJS/DOM/HTMLMediaElement.hs
+++ b/src/GHCJS/DOM/HTMLMediaElement.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.HTMLMediaElement
        (ghcjs_dom_html_media_element_load, htmlMediaElementLoad,
@@ -104,7 +104,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"load\"]()"
         ghcjs_dom_html_media_element_load ::
         JSRef HTMLMediaElement -> IO ()
@@ -120,7 +120,7 @@
       (unHTMLMediaElement (toHTMLMediaElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"canPlayType\"]($2)"
         ghcjs_dom_html_media_element_can_play_type ::
         JSRef HTMLMediaElement -> JSString -> IO JSString
@@ -140,7 +140,7 @@
          (toJSString type'))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"play\"]()"
         ghcjs_dom_html_media_element_play ::
         JSRef HTMLMediaElement -> IO ()
@@ -156,7 +156,7 @@
       (unHTMLMediaElement (toHTMLMediaElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"pause\"]()"
         ghcjs_dom_html_media_element_pause ::
         JSRef HTMLMediaElement -> IO ()
@@ -181,7 +181,7 @@
 cHAVE_ENOUGH_DATA = 4
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"error\"]"
         ghcjs_dom_html_media_element_get_error ::
         JSRef HTMLMediaElement -> IO (JSRef MediaError)
@@ -199,7 +199,7 @@
          (unHTMLMediaElement (toHTMLMediaElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"src\"] = $2;"
         ghcjs_dom_html_media_element_set_src ::
         JSRef HTMLMediaElement -> JSString -> IO ()
@@ -217,7 +217,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"src\"]"
         ghcjs_dom_html_media_element_get_src ::
         JSRef HTMLMediaElement -> IO JSString
@@ -235,7 +235,7 @@
          (unHTMLMediaElement (toHTMLMediaElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"currentSrc\"]"
         ghcjs_dom_html_media_element_get_current_src ::
         JSRef HTMLMediaElement -> IO JSString
@@ -253,7 +253,7 @@
          (unHTMLMediaElement (toHTMLMediaElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"networkState\"]"
         ghcjs_dom_html_media_element_get_network_state ::
         JSRef HTMLMediaElement -> IO Word
@@ -270,7 +270,7 @@
       (unHTMLMediaElement (toHTMLMediaElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"preload\"] = $2;"
         ghcjs_dom_html_media_element_set_preload ::
         JSRef HTMLMediaElement -> JSString -> IO ()
@@ -288,7 +288,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"preload\"]"
         ghcjs_dom_html_media_element_get_preload ::
         JSRef HTMLMediaElement -> IO JSString
@@ -306,7 +306,7 @@
          (unHTMLMediaElement (toHTMLMediaElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"buffered\"]"
         ghcjs_dom_html_media_element_get_buffered ::
         JSRef HTMLMediaElement -> IO (JSRef TimeRanges)
@@ -324,7 +324,7 @@
          (unHTMLMediaElement (toHTMLMediaElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"readyState\"]"
         ghcjs_dom_html_media_element_get_ready_state ::
         JSRef HTMLMediaElement -> IO Word
@@ -341,7 +341,7 @@
       (unHTMLMediaElement (toHTMLMediaElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"seeking\"] ? 1 : 0)"
         ghcjs_dom_html_media_element_get_seeking ::
         JSRef HTMLMediaElement -> IO Bool
@@ -358,7 +358,7 @@
       (unHTMLMediaElement (toHTMLMediaElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"currentTime\"] = $2;"
         ghcjs_dom_html_media_element_set_current_time ::
         JSRef HTMLMediaElement -> Double -> IO ()
@@ -376,7 +376,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"currentTime\"]"
         ghcjs_dom_html_media_element_get_current_time ::
         JSRef HTMLMediaElement -> IO Double
@@ -393,7 +393,7 @@
       (unHTMLMediaElement (toHTMLMediaElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"initialTime\"]"
         ghcjs_dom_html_media_element_get_initial_time ::
         JSRef HTMLMediaElement -> IO Double
@@ -410,7 +410,7 @@
       (unHTMLMediaElement (toHTMLMediaElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"startTime\"]"
         ghcjs_dom_html_media_element_get_start_time ::
         JSRef HTMLMediaElement -> IO Double
@@ -427,7 +427,7 @@
       (unHTMLMediaElement (toHTMLMediaElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"duration\"]"
         ghcjs_dom_html_media_element_get_duration ::
         JSRef HTMLMediaElement -> IO Double
@@ -444,7 +444,7 @@
       (unHTMLMediaElement (toHTMLMediaElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"paused\"] ? 1 : 0)"
         ghcjs_dom_html_media_element_get_paused ::
         JSRef HTMLMediaElement -> IO Bool
@@ -461,7 +461,7 @@
       (unHTMLMediaElement (toHTMLMediaElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "$1[\"defaultPlaybackRate\"] = $2;"
         ghcjs_dom_html_media_element_set_default_playback_rate ::
@@ -480,7 +480,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"defaultPlaybackRate\"]"
         ghcjs_dom_html_media_element_get_default_playback_rate ::
         JSRef HTMLMediaElement -> IO Double
@@ -497,7 +497,7 @@
       (unHTMLMediaElement (toHTMLMediaElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"playbackRate\"] = $2;"
         ghcjs_dom_html_media_element_set_playback_rate ::
         JSRef HTMLMediaElement -> Double -> IO ()
@@ -515,7 +515,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"playbackRate\"]"
         ghcjs_dom_html_media_element_get_playback_rate ::
         JSRef HTMLMediaElement -> IO Double
@@ -532,7 +532,7 @@
       (unHTMLMediaElement (toHTMLMediaElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"played\"]"
         ghcjs_dom_html_media_element_get_played ::
         JSRef HTMLMediaElement -> IO (JSRef TimeRanges)
@@ -550,7 +550,7 @@
          (unHTMLMediaElement (toHTMLMediaElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"seekable\"]"
         ghcjs_dom_html_media_element_get_seekable ::
         JSRef HTMLMediaElement -> IO (JSRef TimeRanges)
@@ -568,7 +568,7 @@
          (unHTMLMediaElement (toHTMLMediaElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"ended\"] ? 1 : 0)"
         ghcjs_dom_html_media_element_get_ended ::
         JSRef HTMLMediaElement -> IO Bool
@@ -585,7 +585,7 @@
       (unHTMLMediaElement (toHTMLMediaElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"autoplay\"] = $2;"
         ghcjs_dom_html_media_element_set_autoplay ::
         JSRef HTMLMediaElement -> Bool -> IO ()
@@ -603,7 +603,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"autoplay\"] ? 1 : 0)"
         ghcjs_dom_html_media_element_get_autoplay ::
         JSRef HTMLMediaElement -> IO Bool
@@ -620,7 +620,7 @@
       (unHTMLMediaElement (toHTMLMediaElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"loop\"] = $2;"
         ghcjs_dom_html_media_element_set_loop ::
         JSRef HTMLMediaElement -> Bool -> IO ()
@@ -638,7 +638,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"loop\"] ? 1 : 0)"
         ghcjs_dom_html_media_element_get_loop ::
         JSRef HTMLMediaElement -> IO Bool
@@ -655,7 +655,7 @@
       (unHTMLMediaElement (toHTMLMediaElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"controls\"] = $2;"
         ghcjs_dom_html_media_element_set_controls ::
         JSRef HTMLMediaElement -> Bool -> IO ()
@@ -673,7 +673,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"controls\"] ? 1 : 0)"
         ghcjs_dom_html_media_element_get_controls ::
         JSRef HTMLMediaElement -> IO Bool
@@ -690,7 +690,7 @@
       (unHTMLMediaElement (toHTMLMediaElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"volume\"] = $2;"
         ghcjs_dom_html_media_element_set_volume ::
         JSRef HTMLMediaElement -> Double -> IO ()
@@ -708,7 +708,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"volume\"]"
         ghcjs_dom_html_media_element_get_volume ::
         JSRef HTMLMediaElement -> IO Double
@@ -725,7 +725,7 @@
       (unHTMLMediaElement (toHTMLMediaElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"muted\"] = $2;"
         ghcjs_dom_html_media_element_set_muted ::
         JSRef HTMLMediaElement -> Bool -> IO ()
@@ -743,7 +743,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"muted\"] ? 1 : 0)"
         ghcjs_dom_html_media_element_get_muted ::
         JSRef HTMLMediaElement -> IO Bool
@@ -760,7 +760,7 @@
       (unHTMLMediaElement (toHTMLMediaElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"defaultMuted\"] = $2;"
         ghcjs_dom_html_media_element_set_default_muted ::
         JSRef HTMLMediaElement -> Bool -> IO ()
@@ -778,7 +778,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"defaultMuted\"] ? 1 : 0)"
         ghcjs_dom_html_media_element_get_default_muted ::
         JSRef HTMLMediaElement -> IO Bool
@@ -795,7 +795,7 @@
       (unHTMLMediaElement (toHTMLMediaElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "$1[\"webkitPreservesPitch\"] = $2;"
         ghcjs_dom_html_media_element_set_webkit_preserves_pitch ::
@@ -814,7 +814,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "($1[\"webkitPreservesPitch\"] ? 1 : 0)"
         ghcjs_dom_html_media_element_get_webkit_preserves_pitch ::
@@ -832,7 +832,7 @@
       (unHTMLMediaElement (toHTMLMediaElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "($1[\"webkitHasClosedCaptions\"] ? 1 : 0)"
         ghcjs_dom_html_media_element_get_webkit_has_closed_captions ::
@@ -851,7 +851,7 @@
       (unHTMLMediaElement (toHTMLMediaElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "$1[\"webkitClosedCaptionsVisible\"] = $2;"
         ghcjs_dom_html_media_element_set_webkit_closed_captions_visible ::
@@ -872,7 +872,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "($1[\"webkitClosedCaptionsVisible\"] ? 1 : 0)"
         ghcjs_dom_html_media_element_get_webkit_closed_captions_visible ::
@@ -891,7 +891,7 @@
       (unHTMLMediaElement (toHTMLMediaElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "$1[\"webkitAudioDecodedByteCount\"]"
         ghcjs_dom_html_media_element_get_webkit_audio_decoded_byte_count ::
@@ -910,7 +910,7 @@
       (unHTMLMediaElement (toHTMLMediaElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "$1[\"webkitVideoDecodedByteCount\"]"
         ghcjs_dom_html_media_element_get_webkit_video_decoded_byte_count ::
@@ -933,7 +933,7 @@
 htmlMediaElementOnwebkitneedkey = (connect "webkitneedkey")
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"mediaGroup\"] = $2;"
         ghcjs_dom_html_media_element_set_media_group ::
         JSRef HTMLMediaElement -> JSString -> IO ()
@@ -951,7 +951,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"mediaGroup\"]"
         ghcjs_dom_html_media_element_get_media_group ::
         JSRef HTMLMediaElement -> IO JSString
diff --git a/src/GHCJS/DOM/HTMLMenuElement.hs b/src/GHCJS/DOM/HTMLMenuElement.hs
--- a/src/GHCJS/DOM/HTMLMenuElement.hs
+++ b/src/GHCJS/DOM/HTMLMenuElement.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.HTMLMenuElement
        (ghcjs_dom_html_menu_element_set_compact,
@@ -22,7 +22,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"compact\"] = $2;"
         ghcjs_dom_html_menu_element_set_compact ::
         JSRef HTMLMenuElement -> Bool -> IO ()
@@ -40,7 +40,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"compact\"] ? 1 : 0)"
         ghcjs_dom_html_menu_element_get_compact ::
         JSRef HTMLMenuElement -> IO Bool
diff --git a/src/GHCJS/DOM/HTMLMetaElement.hs b/src/GHCJS/DOM/HTMLMetaElement.hs
--- a/src/GHCJS/DOM/HTMLMetaElement.hs
+++ b/src/GHCJS/DOM/HTMLMetaElement.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.HTMLMetaElement
        (ghcjs_dom_html_meta_element_set_content,
@@ -30,7 +30,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"content\"] = $2;"
         ghcjs_dom_html_meta_element_set_content ::
         JSRef HTMLMetaElement -> JSString -> IO ()
@@ -48,7 +48,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"content\"]"
         ghcjs_dom_html_meta_element_get_content ::
         JSRef HTMLMetaElement -> IO JSString
@@ -66,7 +66,7 @@
          (unHTMLMetaElement (toHTMLMetaElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"httpEquiv\"] = $2;"
         ghcjs_dom_html_meta_element_set_http_equiv ::
         JSRef HTMLMetaElement -> JSString -> IO ()
@@ -84,7 +84,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"httpEquiv\"]"
         ghcjs_dom_html_meta_element_get_http_equiv ::
         JSRef HTMLMetaElement -> IO JSString
@@ -102,7 +102,7 @@
          (unHTMLMetaElement (toHTMLMetaElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"name\"] = $2;"
         ghcjs_dom_html_meta_element_set_name ::
         JSRef HTMLMetaElement -> JSString -> IO ()
@@ -120,7 +120,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"name\"]"
         ghcjs_dom_html_meta_element_get_name ::
         JSRef HTMLMetaElement -> IO JSString
@@ -138,7 +138,7 @@
          (unHTMLMetaElement (toHTMLMetaElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"scheme\"] = $2;"
         ghcjs_dom_html_meta_element_set_scheme ::
         JSRef HTMLMetaElement -> JSString -> IO ()
@@ -156,7 +156,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"scheme\"]"
         ghcjs_dom_html_meta_element_get_scheme ::
         JSRef HTMLMetaElement -> IO JSString
diff --git a/src/GHCJS/DOM/HTMLModElement.hs b/src/GHCJS/DOM/HTMLModElement.hs
--- a/src/GHCJS/DOM/HTMLModElement.hs
+++ b/src/GHCJS/DOM/HTMLModElement.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.HTMLModElement
        (ghcjs_dom_html_mod_element_set_cite, htmlModElementSetCite,
@@ -25,7 +25,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"cite\"] = $2;"
         ghcjs_dom_html_mod_element_set_cite ::
         JSRef HTMLModElement -> JSString -> IO ()
@@ -43,7 +43,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"cite\"]"
         ghcjs_dom_html_mod_element_get_cite ::
         JSRef HTMLModElement -> IO JSString
@@ -61,7 +61,7 @@
          (unHTMLModElement (toHTMLModElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"dateTime\"] = $2;"
         ghcjs_dom_html_mod_element_set_date_time ::
         JSRef HTMLModElement -> JSString -> IO ()
@@ -79,7 +79,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"dateTime\"]"
         ghcjs_dom_html_mod_element_get_date_time ::
         JSRef HTMLModElement -> IO JSString
diff --git a/src/GHCJS/DOM/HTMLOListElement.hs b/src/GHCJS/DOM/HTMLOListElement.hs
--- a/src/GHCJS/DOM/HTMLOListElement.hs
+++ b/src/GHCJS/DOM/HTMLOListElement.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.HTMLOListElement
        (ghcjs_dom_htmlo_list_element_set_compact,
@@ -29,7 +29,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"compact\"] = $2;"
         ghcjs_dom_htmlo_list_element_set_compact ::
         JSRef HTMLOListElement -> Bool -> IO ()
@@ -47,7 +47,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"compact\"] ? 1 : 0)"
         ghcjs_dom_htmlo_list_element_get_compact ::
         JSRef HTMLOListElement -> IO Bool
@@ -64,7 +64,7 @@
       (unHTMLOListElement (toHTMLOListElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"start\"] = $2;"
         ghcjs_dom_htmlo_list_element_set_start ::
         JSRef HTMLOListElement -> Int -> IO ()
@@ -82,7 +82,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"start\"]"
         ghcjs_dom_htmlo_list_element_get_start ::
         JSRef HTMLOListElement -> IO Int
@@ -99,7 +99,7 @@
       (unHTMLOListElement (toHTMLOListElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"reversed\"] = $2;"
         ghcjs_dom_htmlo_list_element_set_reversed ::
         JSRef HTMLOListElement -> Bool -> IO ()
@@ -117,7 +117,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"reversed\"] ? 1 : 0)"
         ghcjs_dom_htmlo_list_element_get_reversed ::
         JSRef HTMLOListElement -> IO Bool
diff --git a/src/GHCJS/DOM/HTMLObjectElement.hs b/src/GHCJS/DOM/HTMLObjectElement.hs
--- a/src/GHCJS/DOM/HTMLObjectElement.hs
+++ b/src/GHCJS/DOM/HTMLObjectElement.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.HTMLObjectElement
        (ghcjs_dom_html_object_element_check_validity,
@@ -83,7 +83,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "($1[\"checkValidity\"]() ? 1 : 0)"
         ghcjs_dom_html_object_element_check_validity ::
@@ -101,7 +101,7 @@
       (unHTMLObjectElement (toHTMLObjectElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"
         ghcjs_dom_html_object_element_set_custom_validity ::
         JSRef HTMLObjectElement -> JSString -> IO ()
@@ -120,7 +120,7 @@
       (toJSString error)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"form\"]"
         ghcjs_dom_html_object_element_get_form ::
         JSRef HTMLObjectElement -> IO (JSRef HTMLFormElement)
@@ -138,7 +138,7 @@
          (unHTMLObjectElement (toHTMLObjectElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"code\"] = $2;"
         ghcjs_dom_html_object_element_set_code ::
         JSRef HTMLObjectElement -> JSString -> IO ()
@@ -156,7 +156,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"code\"]"
         ghcjs_dom_html_object_element_get_code ::
         JSRef HTMLObjectElement -> IO JSString
@@ -175,7 +175,7 @@
          (unHTMLObjectElement (toHTMLObjectElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"align\"] = $2;"
         ghcjs_dom_html_object_element_set_align ::
         JSRef HTMLObjectElement -> JSString -> IO ()
@@ -193,7 +193,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"align\"]"
         ghcjs_dom_html_object_element_get_align ::
         JSRef HTMLObjectElement -> IO JSString
@@ -212,7 +212,7 @@
          (unHTMLObjectElement (toHTMLObjectElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"archive\"] = $2;"
         ghcjs_dom_html_object_element_set_archive ::
         JSRef HTMLObjectElement -> JSString -> IO ()
@@ -230,7 +230,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"archive\"]"
         ghcjs_dom_html_object_element_get_archive ::
         JSRef HTMLObjectElement -> IO JSString
@@ -249,7 +249,7 @@
          (unHTMLObjectElement (toHTMLObjectElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"border\"] = $2;"
         ghcjs_dom_html_object_element_set_border ::
         JSRef HTMLObjectElement -> JSString -> IO ()
@@ -267,7 +267,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"border\"]"
         ghcjs_dom_html_object_element_get_border ::
         JSRef HTMLObjectElement -> IO JSString
@@ -286,7 +286,7 @@
          (unHTMLObjectElement (toHTMLObjectElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"codeBase\"] = $2;"
         ghcjs_dom_html_object_element_set_code_base ::
         JSRef HTMLObjectElement -> JSString -> IO ()
@@ -304,7 +304,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"codeBase\"]"
         ghcjs_dom_html_object_element_get_code_base ::
         JSRef HTMLObjectElement -> IO JSString
@@ -323,7 +323,7 @@
          (unHTMLObjectElement (toHTMLObjectElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"codeType\"] = $2;"
         ghcjs_dom_html_object_element_set_code_type ::
         JSRef HTMLObjectElement -> JSString -> IO ()
@@ -341,7 +341,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"codeType\"]"
         ghcjs_dom_html_object_element_get_code_type ::
         JSRef HTMLObjectElement -> IO JSString
@@ -360,7 +360,7 @@
          (unHTMLObjectElement (toHTMLObjectElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"data\"] = $2;"
         ghcjs_dom_html_object_element_set_data ::
         JSRef HTMLObjectElement -> JSString -> IO ()
@@ -378,7 +378,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"data\"]"
         ghcjs_dom_html_object_element_get_data ::
         JSRef HTMLObjectElement -> IO JSString
@@ -397,7 +397,7 @@
          (unHTMLObjectElement (toHTMLObjectElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"declare\"] = $2;"
         ghcjs_dom_html_object_element_set_declare ::
         JSRef HTMLObjectElement -> Bool -> IO ()
@@ -415,7 +415,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"declare\"] ? 1 : 0)"
         ghcjs_dom_html_object_element_get_declare ::
         JSRef HTMLObjectElement -> IO Bool
@@ -432,7 +432,7 @@
       (unHTMLObjectElement (toHTMLObjectElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"height\"] = $2;"
         ghcjs_dom_html_object_element_set_height ::
         JSRef HTMLObjectElement -> JSString -> IO ()
@@ -450,7 +450,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"height\"]"
         ghcjs_dom_html_object_element_get_height ::
         JSRef HTMLObjectElement -> IO JSString
@@ -469,7 +469,7 @@
          (unHTMLObjectElement (toHTMLObjectElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"hspace\"] = $2;"
         ghcjs_dom_html_object_element_set_hspace ::
         JSRef HTMLObjectElement -> Int -> IO ()
@@ -487,7 +487,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"hspace\"]"
         ghcjs_dom_html_object_element_get_hspace ::
         JSRef HTMLObjectElement -> IO Int
@@ -504,7 +504,7 @@
       (unHTMLObjectElement (toHTMLObjectElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"name\"] = $2;"
         ghcjs_dom_html_object_element_set_name ::
         JSRef HTMLObjectElement -> JSString -> IO ()
@@ -522,7 +522,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"name\"]"
         ghcjs_dom_html_object_element_get_name ::
         JSRef HTMLObjectElement -> IO JSString
@@ -541,7 +541,7 @@
          (unHTMLObjectElement (toHTMLObjectElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"standby\"] = $2;"
         ghcjs_dom_html_object_element_set_standby ::
         JSRef HTMLObjectElement -> JSString -> IO ()
@@ -559,7 +559,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"standby\"]"
         ghcjs_dom_html_object_element_get_standby ::
         JSRef HTMLObjectElement -> IO JSString
@@ -578,7 +578,7 @@
          (unHTMLObjectElement (toHTMLObjectElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"useMap\"] = $2;"
         ghcjs_dom_html_object_element_set_use_map ::
         JSRef HTMLObjectElement -> JSString -> IO ()
@@ -596,7 +596,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"useMap\"]"
         ghcjs_dom_html_object_element_get_use_map ::
         JSRef HTMLObjectElement -> IO JSString
@@ -615,7 +615,7 @@
          (unHTMLObjectElement (toHTMLObjectElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"vspace\"] = $2;"
         ghcjs_dom_html_object_element_set_vspace ::
         JSRef HTMLObjectElement -> Int -> IO ()
@@ -633,7 +633,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"vspace\"]"
         ghcjs_dom_html_object_element_get_vspace ::
         JSRef HTMLObjectElement -> IO Int
@@ -650,7 +650,7 @@
       (unHTMLObjectElement (toHTMLObjectElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"width\"] = $2;"
         ghcjs_dom_html_object_element_set_width ::
         JSRef HTMLObjectElement -> JSString -> IO ()
@@ -668,7 +668,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"width\"]"
         ghcjs_dom_html_object_element_get_width ::
         JSRef HTMLObjectElement -> IO JSString
@@ -687,7 +687,7 @@
          (unHTMLObjectElement (toHTMLObjectElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)"
         ghcjs_dom_html_object_element_get_will_validate ::
         JSRef HTMLObjectElement -> IO Bool
@@ -704,7 +704,7 @@
       (unHTMLObjectElement (toHTMLObjectElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"validity\"]"
         ghcjs_dom_html_object_element_get_validity ::
         JSRef HTMLObjectElement -> IO (JSRef ValidityState)
@@ -722,7 +722,7 @@
          (unHTMLObjectElement (toHTMLObjectElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"validationMessage\"]"
         ghcjs_dom_html_object_element_get_validation_message ::
         JSRef HTMLObjectElement -> IO JSString
@@ -741,7 +741,7 @@
          (unHTMLObjectElement (toHTMLObjectElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"contentDocument\"]"
         ghcjs_dom_html_object_element_get_content_document ::
         JSRef HTMLObjectElement -> IO (JSRef Document)
diff --git a/src/GHCJS/DOM/HTMLOptGroupElement.hs b/src/GHCJS/DOM/HTMLOptGroupElement.hs
--- a/src/GHCJS/DOM/HTMLOptGroupElement.hs
+++ b/src/GHCJS/DOM/HTMLOptGroupElement.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.HTMLOptGroupElement
        (ghcjs_dom_html_opt_group_element_set_disabled,
@@ -28,7 +28,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"disabled\"] = $2;"
         ghcjs_dom_html_opt_group_element_set_disabled ::
         JSRef HTMLOptGroupElement -> Bool -> IO ()
@@ -46,7 +46,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"
         ghcjs_dom_html_opt_group_element_get_disabled ::
         JSRef HTMLOptGroupElement -> IO Bool
@@ -63,7 +63,7 @@
       (unHTMLOptGroupElement (toHTMLOptGroupElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"label\"] = $2;"
         ghcjs_dom_html_opt_group_element_set_label ::
         JSRef HTMLOptGroupElement -> JSString -> IO ()
@@ -82,7 +82,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"label\"]"
         ghcjs_dom_html_opt_group_element_get_label ::
         JSRef HTMLOptGroupElement -> IO JSString
diff --git a/src/GHCJS/DOM/HTMLOptionElement.hs b/src/GHCJS/DOM/HTMLOptionElement.hs
--- a/src/GHCJS/DOM/HTMLOptionElement.hs
+++ b/src/GHCJS/DOM/HTMLOptionElement.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.HTMLOptionElement
        (ghcjs_dom_html_option_element_set_disabled,
@@ -39,7 +39,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"disabled\"] = $2;"
         ghcjs_dom_html_option_element_set_disabled ::
         JSRef HTMLOptionElement -> Bool -> IO ()
@@ -57,7 +57,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"
         ghcjs_dom_html_option_element_get_disabled ::
         JSRef HTMLOptionElement -> IO Bool
@@ -74,7 +74,7 @@
       (unHTMLOptionElement (toHTMLOptionElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"form\"]"
         ghcjs_dom_html_option_element_get_form ::
         JSRef HTMLOptionElement -> IO (JSRef HTMLFormElement)
@@ -92,7 +92,7 @@
          (unHTMLOptionElement (toHTMLOptionElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"label\"] = $2;"
         ghcjs_dom_html_option_element_set_label ::
         JSRef HTMLOptionElement -> JSString -> IO ()
@@ -110,7 +110,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"label\"]"
         ghcjs_dom_html_option_element_get_label ::
         JSRef HTMLOptionElement -> IO JSString
@@ -129,7 +129,7 @@
          (unHTMLOptionElement (toHTMLOptionElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"defaultSelected\"] = $2;"
         ghcjs_dom_html_option_element_set_default_selected ::
         JSRef HTMLOptionElement -> Bool -> IO ()
@@ -147,7 +147,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "($1[\"defaultSelected\"] ? 1 : 0)"
         ghcjs_dom_html_option_element_get_default_selected ::
@@ -165,7 +165,7 @@
       (unHTMLOptionElement (toHTMLOptionElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"selected\"] = $2;"
         ghcjs_dom_html_option_element_set_selected ::
         JSRef HTMLOptionElement -> Bool -> IO ()
@@ -183,7 +183,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"selected\"] ? 1 : 0)"
         ghcjs_dom_html_option_element_get_selected ::
         JSRef HTMLOptionElement -> IO Bool
@@ -200,7 +200,7 @@
       (unHTMLOptionElement (toHTMLOptionElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"value\"] = $2;"
         ghcjs_dom_html_option_element_set_value ::
         JSRef HTMLOptionElement -> JSString -> IO ()
@@ -218,7 +218,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"value\"]"
         ghcjs_dom_html_option_element_get_value ::
         JSRef HTMLOptionElement -> IO JSString
@@ -237,7 +237,7 @@
          (unHTMLOptionElement (toHTMLOptionElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"text\"]"
         ghcjs_dom_html_option_element_get_text ::
         JSRef HTMLOptionElement -> IO JSString
@@ -256,7 +256,7 @@
          (unHTMLOptionElement (toHTMLOptionElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"index\"]"
         ghcjs_dom_html_option_element_get_index ::
         JSRef HTMLOptionElement -> IO Int
diff --git a/src/GHCJS/DOM/HTMLOptionsCollection.hs b/src/GHCJS/DOM/HTMLOptionsCollection.hs
--- a/src/GHCJS/DOM/HTMLOptionsCollection.hs
+++ b/src/GHCJS/DOM/HTMLOptionsCollection.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.HTMLOptionsCollection
        (ghcjs_dom_html_options_collection_named_item,
@@ -26,7 +26,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"namedItem\"]($2)"
         ghcjs_dom_html_options_collection_named_item ::
         JSRef HTMLOptionsCollection -> JSString -> IO (JSRef Node)
@@ -47,7 +47,7 @@
          (toJSString name))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"selectedIndex\"] = $2;"
         ghcjs_dom_html_options_collection_set_selected_index ::
         JSRef HTMLOptionsCollection -> Int -> IO ()
@@ -65,7 +65,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"selectedIndex\"]"
         ghcjs_dom_html_options_collection_get_selected_index ::
         JSRef HTMLOptionsCollection -> IO Int
diff --git a/src/GHCJS/DOM/HTMLParagraphElement.hs b/src/GHCJS/DOM/HTMLParagraphElement.hs
--- a/src/GHCJS/DOM/HTMLParagraphElement.hs
+++ b/src/GHCJS/DOM/HTMLParagraphElement.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.HTMLParagraphElement
        (ghcjs_dom_html_paragraph_element_set_align,
@@ -24,7 +24,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"align\"] = $2;"
         ghcjs_dom_html_paragraph_element_set_align ::
         JSRef HTMLParagraphElement -> JSString -> IO ()
@@ -43,7 +43,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"align\"]"
         ghcjs_dom_html_paragraph_element_get_align ::
         JSRef HTMLParagraphElement -> IO JSString
diff --git a/src/GHCJS/DOM/HTMLParamElement.hs b/src/GHCJS/DOM/HTMLParamElement.hs
--- a/src/GHCJS/DOM/HTMLParamElement.hs
+++ b/src/GHCJS/DOM/HTMLParamElement.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.HTMLParamElement
        (ghcjs_dom_html_param_element_set_name, htmlParamElementSetName,
@@ -27,7 +27,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"name\"] = $2;"
         ghcjs_dom_html_param_element_set_name ::
         JSRef HTMLParamElement -> JSString -> IO ()
@@ -45,7 +45,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"name\"]"
         ghcjs_dom_html_param_element_get_name ::
         JSRef HTMLParamElement -> IO JSString
@@ -63,7 +63,7 @@
          (unHTMLParamElement (toHTMLParamElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"value\"] = $2;"
         ghcjs_dom_html_param_element_set_value ::
         JSRef HTMLParamElement -> JSString -> IO ()
@@ -81,7 +81,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"value\"]"
         ghcjs_dom_html_param_element_get_value ::
         JSRef HTMLParamElement -> IO JSString
@@ -99,7 +99,7 @@
          (unHTMLParamElement (toHTMLParamElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"valueType\"] = $2;"
         ghcjs_dom_html_param_element_set_value_type ::
         JSRef HTMLParamElement -> JSString -> IO ()
@@ -117,7 +117,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"valueType\"]"
         ghcjs_dom_html_param_element_get_value_type ::
         JSRef HTMLParamElement -> IO JSString
diff --git a/src/GHCJS/DOM/HTMLPreElement.hs b/src/GHCJS/DOM/HTMLPreElement.hs
--- a/src/GHCJS/DOM/HTMLPreElement.hs
+++ b/src/GHCJS/DOM/HTMLPreElement.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.HTMLPreElement
        (ghcjs_dom_html_pre_element_set_width, htmlPreElementSetWidth,
@@ -24,7 +24,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"width\"] = $2;"
         ghcjs_dom_html_pre_element_set_width ::
         JSRef HTMLPreElement -> Int -> IO ()
@@ -42,7 +42,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"width\"]"
         ghcjs_dom_html_pre_element_get_width ::
         JSRef HTMLPreElement -> IO Int
@@ -58,7 +58,7 @@
       (unHTMLPreElement (toHTMLPreElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"wrap\"] = $2;"
         ghcjs_dom_html_pre_element_set_wrap ::
         JSRef HTMLPreElement -> Bool -> IO ()
@@ -76,7 +76,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"wrap\"] ? 1 : 0)"
         ghcjs_dom_html_pre_element_get_wrap ::
         JSRef HTMLPreElement -> IO Bool
diff --git a/src/GHCJS/DOM/HTMLQuoteElement.hs b/src/GHCJS/DOM/HTMLQuoteElement.hs
--- a/src/GHCJS/DOM/HTMLQuoteElement.hs
+++ b/src/GHCJS/DOM/HTMLQuoteElement.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.HTMLQuoteElement
        (ghcjs_dom_html_quote_element_set_cite, htmlQuoteElementSetCite,
@@ -22,7 +22,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"cite\"] = $2;"
         ghcjs_dom_html_quote_element_set_cite ::
         JSRef HTMLQuoteElement -> JSString -> IO ()
@@ -40,7 +40,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"cite\"]"
         ghcjs_dom_html_quote_element_get_cite ::
         JSRef HTMLQuoteElement -> IO JSString
diff --git a/src/GHCJS/DOM/HTMLScriptElement.hs b/src/GHCJS/DOM/HTMLScriptElement.hs
--- a/src/GHCJS/DOM/HTMLScriptElement.hs
+++ b/src/GHCJS/DOM/HTMLScriptElement.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.HTMLScriptElement
        (ghcjs_dom_html_script_element_set_text, htmlScriptElementSetText,
@@ -44,7 +44,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"text\"] = $2;"
         ghcjs_dom_html_script_element_set_text ::
         JSRef HTMLScriptElement -> JSString -> IO ()
@@ -62,7 +62,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"text\"]"
         ghcjs_dom_html_script_element_get_text ::
         JSRef HTMLScriptElement -> IO JSString
@@ -81,7 +81,7 @@
          (unHTMLScriptElement (toHTMLScriptElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"htmlFor\"] = $2;"
         ghcjs_dom_html_script_element_set_html_for ::
         JSRef HTMLScriptElement -> JSString -> IO ()
@@ -99,7 +99,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"htmlFor\"]"
         ghcjs_dom_html_script_element_get_html_for ::
         JSRef HTMLScriptElement -> IO JSString
@@ -118,7 +118,7 @@
          (unHTMLScriptElement (toHTMLScriptElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"event\"] = $2;"
         ghcjs_dom_html_script_element_set_event ::
         JSRef HTMLScriptElement -> JSString -> IO ()
@@ -136,7 +136,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"event\"]"
         ghcjs_dom_html_script_element_get_event ::
         JSRef HTMLScriptElement -> IO JSString
@@ -155,7 +155,7 @@
          (unHTMLScriptElement (toHTMLScriptElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"charset\"] = $2;"
         ghcjs_dom_html_script_element_set_charset ::
         JSRef HTMLScriptElement -> JSString -> IO ()
@@ -173,7 +173,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"charset\"]"
         ghcjs_dom_html_script_element_get_charset ::
         JSRef HTMLScriptElement -> IO JSString
@@ -192,7 +192,7 @@
          (unHTMLScriptElement (toHTMLScriptElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"async\"] = $2;"
         ghcjs_dom_html_script_element_set_async ::
         JSRef HTMLScriptElement -> Bool -> IO ()
@@ -210,7 +210,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"async\"] ? 1 : 0)"
         ghcjs_dom_html_script_element_get_async ::
         JSRef HTMLScriptElement -> IO Bool
@@ -227,7 +227,7 @@
       (unHTMLScriptElement (toHTMLScriptElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"defer\"] = $2;"
         ghcjs_dom_html_script_element_set_defer ::
         JSRef HTMLScriptElement -> Bool -> IO ()
@@ -245,7 +245,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"defer\"] ? 1 : 0)"
         ghcjs_dom_html_script_element_get_defer ::
         JSRef HTMLScriptElement -> IO Bool
@@ -262,7 +262,7 @@
       (unHTMLScriptElement (toHTMLScriptElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"src\"] = $2;"
         ghcjs_dom_html_script_element_set_src ::
         JSRef HTMLScriptElement -> JSString -> IO ()
@@ -280,7 +280,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"src\"]"
         ghcjs_dom_html_script_element_get_src ::
         JSRef HTMLScriptElement -> IO JSString
@@ -299,7 +299,7 @@
          (unHTMLScriptElement (toHTMLScriptElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"crossOrigin\"] = $2;"
         ghcjs_dom_html_script_element_set_cross_origin ::
         JSRef HTMLScriptElement -> JSString -> IO ()
@@ -317,7 +317,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"crossOrigin\"]"
         ghcjs_dom_html_script_element_get_cross_origin ::
         JSRef HTMLScriptElement -> IO JSString
@@ -336,7 +336,7 @@
          (unHTMLScriptElement (toHTMLScriptElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"nonce\"] = $2;"
         ghcjs_dom_html_script_element_set_nonce ::
         JSRef HTMLScriptElement -> JSString -> IO ()
@@ -354,7 +354,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"nonce\"]"
         ghcjs_dom_html_script_element_get_nonce ::
         JSRef HTMLScriptElement -> IO JSString
diff --git a/src/GHCJS/DOM/HTMLSelectElement.hs b/src/GHCJS/DOM/HTMLSelectElement.hs
--- a/src/GHCJS/DOM/HTMLSelectElement.hs
+++ b/src/GHCJS/DOM/HTMLSelectElement.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.HTMLSelectElement
        (ghcjs_dom_html_select_element_item, htmlSelectElementItem,
@@ -72,7 +72,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"item\"]($2)"
         ghcjs_dom_html_select_element_item ::
         JSRef HTMLSelectElement -> Word -> IO (JSRef Node)
@@ -91,7 +91,7 @@
          index)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"namedItem\"]($2)"
         ghcjs_dom_html_select_element_named_item ::
         JSRef HTMLSelectElement -> JSString -> IO (JSRef Node)
@@ -111,7 +111,7 @@
          (toJSString name))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"add\"]($2, $3)"
         ghcjs_dom_html_select_element_add ::
         JSRef HTMLSelectElement ->
@@ -134,7 +134,7 @@
       (maybe jsNull (unHTMLElement . toHTMLElement) before)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"remove\"]($2)"
         ghcjs_dom_html_select_element_remove ::
         JSRef HTMLSelectElement -> Int -> IO ()
@@ -152,7 +152,7 @@
       index
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "($1[\"checkValidity\"]() ? 1 : 0)"
         ghcjs_dom_html_select_element_check_validity ::
@@ -170,7 +170,7 @@
       (unHTMLSelectElement (toHTMLSelectElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"
         ghcjs_dom_html_select_element_set_custom_validity ::
         JSRef HTMLSelectElement -> JSString -> IO ()
@@ -189,7 +189,7 @@
       (toJSString error)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"autofocus\"] = $2;"
         ghcjs_dom_html_select_element_set_autofocus ::
         JSRef HTMLSelectElement -> Bool -> IO ()
@@ -207,7 +207,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"autofocus\"] ? 1 : 0)"
         ghcjs_dom_html_select_element_get_autofocus ::
         JSRef HTMLSelectElement -> IO Bool
@@ -224,7 +224,7 @@
       (unHTMLSelectElement (toHTMLSelectElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"disabled\"] = $2;"
         ghcjs_dom_html_select_element_set_disabled ::
         JSRef HTMLSelectElement -> Bool -> IO ()
@@ -242,7 +242,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"
         ghcjs_dom_html_select_element_get_disabled ::
         JSRef HTMLSelectElement -> IO Bool
@@ -259,7 +259,7 @@
       (unHTMLSelectElement (toHTMLSelectElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"form\"]"
         ghcjs_dom_html_select_element_get_form ::
         JSRef HTMLSelectElement -> IO (JSRef HTMLFormElement)
@@ -277,7 +277,7 @@
          (unHTMLSelectElement (toHTMLSelectElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"multiple\"] = $2;"
         ghcjs_dom_html_select_element_set_multiple ::
         JSRef HTMLSelectElement -> Bool -> IO ()
@@ -295,7 +295,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"multiple\"] ? 1 : 0)"
         ghcjs_dom_html_select_element_get_multiple ::
         JSRef HTMLSelectElement -> IO Bool
@@ -312,7 +312,7 @@
       (unHTMLSelectElement (toHTMLSelectElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"name\"] = $2;"
         ghcjs_dom_html_select_element_set_name ::
         JSRef HTMLSelectElement -> JSString -> IO ()
@@ -330,7 +330,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"name\"]"
         ghcjs_dom_html_select_element_get_name ::
         JSRef HTMLSelectElement -> IO JSString
@@ -349,7 +349,7 @@
          (unHTMLSelectElement (toHTMLSelectElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"required\"] = $2;"
         ghcjs_dom_html_select_element_set_required ::
         JSRef HTMLSelectElement -> Bool -> IO ()
@@ -367,7 +367,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"required\"] ? 1 : 0)"
         ghcjs_dom_html_select_element_get_required ::
         JSRef HTMLSelectElement -> IO Bool
@@ -384,7 +384,7 @@
       (unHTMLSelectElement (toHTMLSelectElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"size\"] = $2;"
         ghcjs_dom_html_select_element_set_size ::
         JSRef HTMLSelectElement -> Int -> IO ()
@@ -402,7 +402,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"size\"]"
         ghcjs_dom_html_select_element_get_size ::
         JSRef HTMLSelectElement -> IO Int
@@ -419,7 +419,7 @@
       (unHTMLSelectElement (toHTMLSelectElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"options\"]"
         ghcjs_dom_html_select_element_get_options ::
         JSRef HTMLSelectElement -> IO (JSRef HTMLOptionsCollection)
@@ -439,7 +439,7 @@
          (unHTMLSelectElement (toHTMLSelectElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"length\"] = $2;"
         ghcjs_dom_html_select_element_set_length ::
         JSRef HTMLSelectElement -> Word -> IO ()
@@ -457,7 +457,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"length\"]"
         ghcjs_dom_html_select_element_get_length ::
         JSRef HTMLSelectElement -> IO Word
@@ -474,7 +474,7 @@
       (unHTMLSelectElement (toHTMLSelectElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"selectedOptions\"]"
         ghcjs_dom_html_select_element_get_selected_options ::
         JSRef HTMLSelectElement -> IO (JSRef HTMLCollection)
@@ -493,7 +493,7 @@
          (unHTMLSelectElement (toHTMLSelectElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"selectedIndex\"] = $2;"
         ghcjs_dom_html_select_element_set_selected_index ::
         JSRef HTMLSelectElement -> Int -> IO ()
@@ -511,7 +511,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"selectedIndex\"]"
         ghcjs_dom_html_select_element_get_selected_index ::
         JSRef HTMLSelectElement -> IO Int
@@ -528,7 +528,7 @@
       (unHTMLSelectElement (toHTMLSelectElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"value\"] = $2;"
         ghcjs_dom_html_select_element_set_value ::
         JSRef HTMLSelectElement -> JSString -> IO ()
@@ -546,7 +546,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"value\"]"
         ghcjs_dom_html_select_element_get_value ::
         JSRef HTMLSelectElement -> IO JSString
@@ -565,7 +565,7 @@
          (unHTMLSelectElement (toHTMLSelectElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)"
         ghcjs_dom_html_select_element_get_will_validate ::
         JSRef HTMLSelectElement -> IO Bool
@@ -582,7 +582,7 @@
       (unHTMLSelectElement (toHTMLSelectElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"validity\"]"
         ghcjs_dom_html_select_element_get_validity ::
         JSRef HTMLSelectElement -> IO (JSRef ValidityState)
@@ -600,7 +600,7 @@
          (unHTMLSelectElement (toHTMLSelectElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"validationMessage\"]"
         ghcjs_dom_html_select_element_get_validation_message ::
         JSRef HTMLSelectElement -> IO JSString
@@ -619,7 +619,7 @@
          (unHTMLSelectElement (toHTMLSelectElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"labels\"]"
         ghcjs_dom_html_select_element_get_labels ::
         JSRef HTMLSelectElement -> IO (JSRef NodeList)
diff --git a/src/GHCJS/DOM/HTMLStyleElement.hs b/src/GHCJS/DOM/HTMLStyleElement.hs
--- a/src/GHCJS/DOM/HTMLStyleElement.hs
+++ b/src/GHCJS/DOM/HTMLStyleElement.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.HTMLStyleElement
        (ghcjs_dom_html_style_element_set_disabled,
@@ -29,7 +29,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"disabled\"] = $2;"
         ghcjs_dom_html_style_element_set_disabled ::
         JSRef HTMLStyleElement -> Bool -> IO ()
@@ -47,7 +47,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"
         ghcjs_dom_html_style_element_get_disabled ::
         JSRef HTMLStyleElement -> IO Bool
@@ -64,7 +64,7 @@
       (unHTMLStyleElement (toHTMLStyleElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"scoped\"] = $2;"
         ghcjs_dom_html_style_element_set_scoped ::
         JSRef HTMLStyleElement -> Bool -> IO ()
@@ -82,7 +82,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"scoped\"] ? 1 : 0)"
         ghcjs_dom_html_style_element_get_scoped ::
         JSRef HTMLStyleElement -> IO Bool
@@ -99,7 +99,7 @@
       (unHTMLStyleElement (toHTMLStyleElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"media\"] = $2;"
         ghcjs_dom_html_style_element_set_media ::
         JSRef HTMLStyleElement -> JSString -> IO ()
@@ -117,7 +117,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"media\"]"
         ghcjs_dom_html_style_element_get_media ::
         JSRef HTMLStyleElement -> IO JSString
@@ -135,7 +135,7 @@
          (unHTMLStyleElement (toHTMLStyleElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"sheet\"]"
         ghcjs_dom_html_style_element_get_sheet ::
         JSRef HTMLStyleElement -> IO (JSRef StyleSheet)
diff --git a/src/GHCJS/DOM/HTMLTableCaptionElement.hs b/src/GHCJS/DOM/HTMLTableCaptionElement.hs
--- a/src/GHCJS/DOM/HTMLTableCaptionElement.hs
+++ b/src/GHCJS/DOM/HTMLTableCaptionElement.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.HTMLTableCaptionElement
        (ghcjs_dom_html_table_caption_element_set_align,
@@ -24,7 +24,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"align\"] = $2;"
         ghcjs_dom_html_table_caption_element_set_align ::
         JSRef HTMLTableCaptionElement -> JSString -> IO ()
@@ -43,7 +43,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"align\"]"
         ghcjs_dom_html_table_caption_element_get_align ::
         JSRef HTMLTableCaptionElement -> IO JSString
diff --git a/src/GHCJS/DOM/HTMLTableCellElement.hs b/src/GHCJS/DOM/HTMLTableCellElement.hs
--- a/src/GHCJS/DOM/HTMLTableCellElement.hs
+++ b/src/GHCJS/DOM/HTMLTableCellElement.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.HTMLTableCellElement
        (ghcjs_dom_html_table_cell_element_get_cell_index,
@@ -78,7 +78,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"cellIndex\"]"
         ghcjs_dom_html_table_cell_element_get_cell_index ::
         JSRef HTMLTableCellElement -> IO Int
@@ -95,7 +95,7 @@
       (unHTMLTableCellElement (toHTMLTableCellElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"abbr\"] = $2;"
         ghcjs_dom_html_table_cell_element_set_abbr ::
         JSRef HTMLTableCellElement -> JSString -> IO ()
@@ -114,7 +114,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"abbr\"]"
         ghcjs_dom_html_table_cell_element_get_abbr ::
         JSRef HTMLTableCellElement -> IO JSString
@@ -133,7 +133,7 @@
          (unHTMLTableCellElement (toHTMLTableCellElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"align\"] = $2;"
         ghcjs_dom_html_table_cell_element_set_align ::
         JSRef HTMLTableCellElement -> JSString -> IO ()
@@ -152,7 +152,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"align\"]"
         ghcjs_dom_html_table_cell_element_get_align ::
         JSRef HTMLTableCellElement -> IO JSString
@@ -171,7 +171,7 @@
          (unHTMLTableCellElement (toHTMLTableCellElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"axis\"] = $2;"
         ghcjs_dom_html_table_cell_element_set_axis ::
         JSRef HTMLTableCellElement -> JSString -> IO ()
@@ -190,7 +190,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"axis\"]"
         ghcjs_dom_html_table_cell_element_get_axis ::
         JSRef HTMLTableCellElement -> IO JSString
@@ -209,7 +209,7 @@
          (unHTMLTableCellElement (toHTMLTableCellElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"bgColor\"] = $2;"
         ghcjs_dom_html_table_cell_element_set_bg_color ::
         JSRef HTMLTableCellElement -> JSString -> IO ()
@@ -228,7 +228,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"bgColor\"]"
         ghcjs_dom_html_table_cell_element_get_bg_color ::
         JSRef HTMLTableCellElement -> IO JSString
@@ -247,7 +247,7 @@
          (unHTMLTableCellElement (toHTMLTableCellElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"ch\"] = $2;"
         ghcjs_dom_html_table_cell_element_set_ch ::
         JSRef HTMLTableCellElement -> JSString -> IO ()
@@ -266,7 +266,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"ch\"]"
         ghcjs_dom_html_table_cell_element_get_ch ::
         JSRef HTMLTableCellElement -> IO JSString
@@ -285,7 +285,7 @@
          (unHTMLTableCellElement (toHTMLTableCellElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"chOff\"] = $2;"
         ghcjs_dom_html_table_cell_element_set_ch_off ::
         JSRef HTMLTableCellElement -> JSString -> IO ()
@@ -304,7 +304,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"chOff\"]"
         ghcjs_dom_html_table_cell_element_get_ch_off ::
         JSRef HTMLTableCellElement -> IO JSString
@@ -323,7 +323,7 @@
          (unHTMLTableCellElement (toHTMLTableCellElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"colSpan\"] = $2;"
         ghcjs_dom_html_table_cell_element_set_col_span ::
         JSRef HTMLTableCellElement -> Int -> IO ()
@@ -341,7 +341,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"colSpan\"]"
         ghcjs_dom_html_table_cell_element_get_col_span ::
         JSRef HTMLTableCellElement -> IO Int
@@ -358,7 +358,7 @@
       (unHTMLTableCellElement (toHTMLTableCellElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"headers\"] = $2;"
         ghcjs_dom_html_table_cell_element_set_headers ::
         JSRef HTMLTableCellElement -> JSString -> IO ()
@@ -377,7 +377,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"headers\"]"
         ghcjs_dom_html_table_cell_element_get_headers ::
         JSRef HTMLTableCellElement -> IO JSString
@@ -396,7 +396,7 @@
          (unHTMLTableCellElement (toHTMLTableCellElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"height\"] = $2;"
         ghcjs_dom_html_table_cell_element_set_height ::
         JSRef HTMLTableCellElement -> JSString -> IO ()
@@ -415,7 +415,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"height\"]"
         ghcjs_dom_html_table_cell_element_get_height ::
         JSRef HTMLTableCellElement -> IO JSString
@@ -434,7 +434,7 @@
          (unHTMLTableCellElement (toHTMLTableCellElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"noWrap\"] = $2;"
         ghcjs_dom_html_table_cell_element_set_no_wrap ::
         JSRef HTMLTableCellElement -> Bool -> IO ()
@@ -452,7 +452,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"noWrap\"] ? 1 : 0)"
         ghcjs_dom_html_table_cell_element_get_no_wrap ::
         JSRef HTMLTableCellElement -> IO Bool
@@ -469,7 +469,7 @@
       (unHTMLTableCellElement (toHTMLTableCellElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"rowSpan\"] = $2;"
         ghcjs_dom_html_table_cell_element_set_row_span ::
         JSRef HTMLTableCellElement -> Int -> IO ()
@@ -487,7 +487,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"rowSpan\"]"
         ghcjs_dom_html_table_cell_element_get_row_span ::
         JSRef HTMLTableCellElement -> IO Int
@@ -504,7 +504,7 @@
       (unHTMLTableCellElement (toHTMLTableCellElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"scope\"] = $2;"
         ghcjs_dom_html_table_cell_element_set_scope ::
         JSRef HTMLTableCellElement -> JSString -> IO ()
@@ -523,7 +523,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"scope\"]"
         ghcjs_dom_html_table_cell_element_get_scope ::
         JSRef HTMLTableCellElement -> IO JSString
@@ -542,7 +542,7 @@
          (unHTMLTableCellElement (toHTMLTableCellElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"vAlign\"] = $2;"
         ghcjs_dom_html_table_cell_element_set_v_align ::
         JSRef HTMLTableCellElement -> JSString -> IO ()
@@ -561,7 +561,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"vAlign\"]"
         ghcjs_dom_html_table_cell_element_get_v_align ::
         JSRef HTMLTableCellElement -> IO JSString
@@ -580,7 +580,7 @@
          (unHTMLTableCellElement (toHTMLTableCellElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"width\"] = $2;"
         ghcjs_dom_html_table_cell_element_set_width ::
         JSRef HTMLTableCellElement -> JSString -> IO ()
@@ -599,7 +599,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"width\"]"
         ghcjs_dom_html_table_cell_element_get_width ::
         JSRef HTMLTableCellElement -> IO JSString
diff --git a/src/GHCJS/DOM/HTMLTableColElement.hs b/src/GHCJS/DOM/HTMLTableColElement.hs
--- a/src/GHCJS/DOM/HTMLTableColElement.hs
+++ b/src/GHCJS/DOM/HTMLTableColElement.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.HTMLTableColElement
        (ghcjs_dom_html_table_col_element_set_align,
@@ -42,7 +42,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"align\"] = $2;"
         ghcjs_dom_html_table_col_element_set_align ::
         JSRef HTMLTableColElement -> JSString -> IO ()
@@ -61,7 +61,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"align\"]"
         ghcjs_dom_html_table_col_element_get_align ::
         JSRef HTMLTableColElement -> IO JSString
@@ -80,7 +80,7 @@
          (unHTMLTableColElement (toHTMLTableColElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"ch\"] = $2;"
         ghcjs_dom_html_table_col_element_set_ch ::
         JSRef HTMLTableColElement -> JSString -> IO ()
@@ -99,7 +99,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"ch\"]"
         ghcjs_dom_html_table_col_element_get_ch ::
         JSRef HTMLTableColElement -> IO JSString
@@ -118,7 +118,7 @@
          (unHTMLTableColElement (toHTMLTableColElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"chOff\"] = $2;"
         ghcjs_dom_html_table_col_element_set_ch_off ::
         JSRef HTMLTableColElement -> JSString -> IO ()
@@ -137,7 +137,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"chOff\"]"
         ghcjs_dom_html_table_col_element_get_ch_off ::
         JSRef HTMLTableColElement -> IO JSString
@@ -156,7 +156,7 @@
          (unHTMLTableColElement (toHTMLTableColElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"span\"] = $2;"
         ghcjs_dom_html_table_col_element_set_span ::
         JSRef HTMLTableColElement -> Int -> IO ()
@@ -174,7 +174,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"span\"]"
         ghcjs_dom_html_table_col_element_get_span ::
         JSRef HTMLTableColElement -> IO Int
@@ -191,7 +191,7 @@
       (unHTMLTableColElement (toHTMLTableColElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"vAlign\"] = $2;"
         ghcjs_dom_html_table_col_element_set_v_align ::
         JSRef HTMLTableColElement -> JSString -> IO ()
@@ -210,7 +210,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"vAlign\"]"
         ghcjs_dom_html_table_col_element_get_v_align ::
         JSRef HTMLTableColElement -> IO JSString
@@ -229,7 +229,7 @@
          (unHTMLTableColElement (toHTMLTableColElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"width\"] = $2;"
         ghcjs_dom_html_table_col_element_set_width ::
         JSRef HTMLTableColElement -> JSString -> IO ()
@@ -248,7 +248,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"width\"]"
         ghcjs_dom_html_table_col_element_get_width ::
         JSRef HTMLTableColElement -> IO JSString
diff --git a/src/GHCJS/DOM/HTMLTableElement.hs b/src/GHCJS/DOM/HTMLTableElement.hs
--- a/src/GHCJS/DOM/HTMLTableElement.hs
+++ b/src/GHCJS/DOM/HTMLTableElement.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.HTMLTableElement
        (ghcjs_dom_html_table_element_create_t_head,
@@ -72,7 +72,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"createTHead\"]()"
         ghcjs_dom_html_table_element_create_t_head ::
         JSRef HTMLTableElement -> IO (JSRef HTMLElement)
@@ -90,7 +90,7 @@
          (unHTMLTableElement (toHTMLTableElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"deleteTHead\"]()"
         ghcjs_dom_html_table_element_delete_t_head ::
         JSRef HTMLTableElement -> IO ()
@@ -107,7 +107,7 @@
       (unHTMLTableElement (toHTMLTableElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"createTFoot\"]()"
         ghcjs_dom_html_table_element_create_t_foot ::
         JSRef HTMLTableElement -> IO (JSRef HTMLElement)
@@ -125,7 +125,7 @@
          (unHTMLTableElement (toHTMLTableElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"deleteTFoot\"]()"
         ghcjs_dom_html_table_element_delete_t_foot ::
         JSRef HTMLTableElement -> IO ()
@@ -142,7 +142,7 @@
       (unHTMLTableElement (toHTMLTableElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"createTBody\"]()"
         ghcjs_dom_html_table_element_create_t_body ::
         JSRef HTMLTableElement -> IO (JSRef HTMLElement)
@@ -160,7 +160,7 @@
          (unHTMLTableElement (toHTMLTableElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"createCaption\"]()"
         ghcjs_dom_html_table_element_create_caption ::
         JSRef HTMLTableElement -> IO (JSRef HTMLElement)
@@ -178,7 +178,7 @@
          (unHTMLTableElement (toHTMLTableElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"deleteCaption\"]()"
         ghcjs_dom_html_table_element_delete_caption ::
         JSRef HTMLTableElement -> IO ()
@@ -195,7 +195,7 @@
       (unHTMLTableElement (toHTMLTableElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"insertRow\"]($2)"
         ghcjs_dom_html_table_element_insert_row ::
         JSRef HTMLTableElement -> Int -> IO (JSRef HTMLElement)
@@ -214,7 +214,7 @@
          index)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"deleteRow\"]($2)"
         ghcjs_dom_html_table_element_delete_row ::
         JSRef HTMLTableElement -> Int -> IO ()
@@ -232,7 +232,7 @@
       index
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"caption\"] = $2;"
         ghcjs_dom_html_table_element_set_caption ::
         JSRef HTMLTableElement -> JSRef HTMLTableCaptionElement -> IO ()
@@ -254,7 +254,7 @@
          val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"caption\"]"
         ghcjs_dom_html_table_element_get_caption ::
         JSRef HTMLTableElement -> IO (JSRef HTMLTableCaptionElement)
@@ -274,7 +274,7 @@
          (unHTMLTableElement (toHTMLTableElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"tHead\"] = $2;"
         ghcjs_dom_html_table_element_set_t_head ::
         JSRef HTMLTableElement -> JSRef HTMLTableSectionElement -> IO ()
@@ -296,7 +296,7 @@
          val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"tHead\"]"
         ghcjs_dom_html_table_element_get_t_head ::
         JSRef HTMLTableElement -> IO (JSRef HTMLTableSectionElement)
@@ -316,7 +316,7 @@
          (unHTMLTableElement (toHTMLTableElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"tFoot\"] = $2;"
         ghcjs_dom_html_table_element_set_t_foot ::
         JSRef HTMLTableElement -> JSRef HTMLTableSectionElement -> IO ()
@@ -338,7 +338,7 @@
          val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"tFoot\"]"
         ghcjs_dom_html_table_element_get_t_foot ::
         JSRef HTMLTableElement -> IO (JSRef HTMLTableSectionElement)
@@ -358,7 +358,7 @@
          (unHTMLTableElement (toHTMLTableElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"rows\"]"
         ghcjs_dom_html_table_element_get_rows ::
         JSRef HTMLTableElement -> IO (JSRef HTMLCollection)
@@ -376,7 +376,7 @@
          (unHTMLTableElement (toHTMLTableElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"tBodies\"]"
         ghcjs_dom_html_table_element_get_t_bodies ::
         JSRef HTMLTableElement -> IO (JSRef HTMLCollection)
@@ -394,7 +394,7 @@
          (unHTMLTableElement (toHTMLTableElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"align\"] = $2;"
         ghcjs_dom_html_table_element_set_align ::
         JSRef HTMLTableElement -> JSString -> IO ()
@@ -412,7 +412,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"align\"]"
         ghcjs_dom_html_table_element_get_align ::
         JSRef HTMLTableElement -> IO JSString
@@ -430,7 +430,7 @@
          (unHTMLTableElement (toHTMLTableElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"bgColor\"] = $2;"
         ghcjs_dom_html_table_element_set_bg_color ::
         JSRef HTMLTableElement -> JSString -> IO ()
@@ -448,7 +448,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"bgColor\"]"
         ghcjs_dom_html_table_element_get_bg_color ::
         JSRef HTMLTableElement -> IO JSString
@@ -466,7 +466,7 @@
          (unHTMLTableElement (toHTMLTableElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"border\"] = $2;"
         ghcjs_dom_html_table_element_set_border ::
         JSRef HTMLTableElement -> JSString -> IO ()
@@ -484,7 +484,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"border\"]"
         ghcjs_dom_html_table_element_get_border ::
         JSRef HTMLTableElement -> IO JSString
@@ -502,7 +502,7 @@
          (unHTMLTableElement (toHTMLTableElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"cellPadding\"] = $2;"
         ghcjs_dom_html_table_element_set_cell_padding ::
         JSRef HTMLTableElement -> JSString -> IO ()
@@ -520,7 +520,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"cellPadding\"]"
         ghcjs_dom_html_table_element_get_cell_padding ::
         JSRef HTMLTableElement -> IO JSString
@@ -538,7 +538,7 @@
          (unHTMLTableElement (toHTMLTableElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"cellSpacing\"] = $2;"
         ghcjs_dom_html_table_element_set_cell_spacing ::
         JSRef HTMLTableElement -> JSString -> IO ()
@@ -556,7 +556,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"cellSpacing\"]"
         ghcjs_dom_html_table_element_get_cell_spacing ::
         JSRef HTMLTableElement -> IO JSString
@@ -574,7 +574,7 @@
          (unHTMLTableElement (toHTMLTableElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"frame\"] = $2;"
         ghcjs_dom_html_table_element_set_frame ::
         JSRef HTMLTableElement -> JSString -> IO ()
@@ -592,7 +592,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"frame\"]"
         ghcjs_dom_html_table_element_get_frame ::
         JSRef HTMLTableElement -> IO JSString
@@ -610,7 +610,7 @@
          (unHTMLTableElement (toHTMLTableElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"rules\"] = $2;"
         ghcjs_dom_html_table_element_set_rules ::
         JSRef HTMLTableElement -> JSString -> IO ()
@@ -628,7 +628,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"rules\"]"
         ghcjs_dom_html_table_element_get_rules ::
         JSRef HTMLTableElement -> IO JSString
@@ -646,7 +646,7 @@
          (unHTMLTableElement (toHTMLTableElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"summary\"] = $2;"
         ghcjs_dom_html_table_element_set_summary ::
         JSRef HTMLTableElement -> JSString -> IO ()
@@ -664,7 +664,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"summary\"]"
         ghcjs_dom_html_table_element_get_summary ::
         JSRef HTMLTableElement -> IO JSString
@@ -682,7 +682,7 @@
          (unHTMLTableElement (toHTMLTableElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"width\"] = $2;"
         ghcjs_dom_html_table_element_set_width ::
         JSRef HTMLTableElement -> JSString -> IO ()
@@ -700,7 +700,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"width\"]"
         ghcjs_dom_html_table_element_get_width ::
         JSRef HTMLTableElement -> IO JSString
diff --git a/src/GHCJS/DOM/HTMLTableRowElement.hs b/src/GHCJS/DOM/HTMLTableRowElement.hs
--- a/src/GHCJS/DOM/HTMLTableRowElement.hs
+++ b/src/GHCJS/DOM/HTMLTableRowElement.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.HTMLTableRowElement
        (ghcjs_dom_html_table_row_element_insert_cell,
@@ -48,7 +48,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"insertCell\"]($2)"
         ghcjs_dom_html_table_row_element_insert_cell ::
         JSRef HTMLTableRowElement -> Int -> IO (JSRef HTMLElement)
@@ -69,7 +69,7 @@
          index)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"deleteCell\"]($2)"
         ghcjs_dom_html_table_row_element_delete_cell ::
         JSRef HTMLTableRowElement -> Int -> IO ()
@@ -87,7 +87,7 @@
       index
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"rowIndex\"]"
         ghcjs_dom_html_table_row_element_get_row_index ::
         JSRef HTMLTableRowElement -> IO Int
@@ -104,7 +104,7 @@
       (unHTMLTableRowElement (toHTMLTableRowElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"sectionRowIndex\"]"
         ghcjs_dom_html_table_row_element_get_section_row_index ::
         JSRef HTMLTableRowElement -> IO Int
@@ -121,7 +121,7 @@
       (unHTMLTableRowElement (toHTMLTableRowElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"cells\"]"
         ghcjs_dom_html_table_row_element_get_cells ::
         JSRef HTMLTableRowElement -> IO (JSRef HTMLCollection)
@@ -139,7 +139,7 @@
          (unHTMLTableRowElement (toHTMLTableRowElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"align\"] = $2;"
         ghcjs_dom_html_table_row_element_set_align ::
         JSRef HTMLTableRowElement -> JSString -> IO ()
@@ -158,7 +158,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"align\"]"
         ghcjs_dom_html_table_row_element_get_align ::
         JSRef HTMLTableRowElement -> IO JSString
@@ -177,7 +177,7 @@
          (unHTMLTableRowElement (toHTMLTableRowElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"bgColor\"] = $2;"
         ghcjs_dom_html_table_row_element_set_bg_color ::
         JSRef HTMLTableRowElement -> JSString -> IO ()
@@ -196,7 +196,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"bgColor\"]"
         ghcjs_dom_html_table_row_element_get_bg_color ::
         JSRef HTMLTableRowElement -> IO JSString
@@ -215,7 +215,7 @@
          (unHTMLTableRowElement (toHTMLTableRowElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"ch\"] = $2;"
         ghcjs_dom_html_table_row_element_set_ch ::
         JSRef HTMLTableRowElement -> JSString -> IO ()
@@ -234,7 +234,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"ch\"]"
         ghcjs_dom_html_table_row_element_get_ch ::
         JSRef HTMLTableRowElement -> IO JSString
@@ -253,7 +253,7 @@
          (unHTMLTableRowElement (toHTMLTableRowElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"chOff\"] = $2;"
         ghcjs_dom_html_table_row_element_set_ch_off ::
         JSRef HTMLTableRowElement -> JSString -> IO ()
@@ -272,7 +272,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"chOff\"]"
         ghcjs_dom_html_table_row_element_get_ch_off ::
         JSRef HTMLTableRowElement -> IO JSString
@@ -291,7 +291,7 @@
          (unHTMLTableRowElement (toHTMLTableRowElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"vAlign\"] = $2;"
         ghcjs_dom_html_table_row_element_set_v_align ::
         JSRef HTMLTableRowElement -> JSString -> IO ()
@@ -310,7 +310,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"vAlign\"]"
         ghcjs_dom_html_table_row_element_get_v_align ::
         JSRef HTMLTableRowElement -> IO JSString
diff --git a/src/GHCJS/DOM/HTMLTableSectionElement.hs b/src/GHCJS/DOM/HTMLTableSectionElement.hs
--- a/src/GHCJS/DOM/HTMLTableSectionElement.hs
+++ b/src/GHCJS/DOM/HTMLTableSectionElement.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.HTMLTableSectionElement
        (ghcjs_dom_html_table_section_element_insert_row,
@@ -42,7 +42,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"insertRow\"]($2)"
         ghcjs_dom_html_table_section_element_insert_row ::
         JSRef HTMLTableSectionElement -> Int -> IO (JSRef HTMLElement)
@@ -63,7 +63,7 @@
          index)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"deleteRow\"]($2)"
         ghcjs_dom_html_table_section_element_delete_row ::
         JSRef HTMLTableSectionElement -> Int -> IO ()
@@ -81,7 +81,7 @@
       index
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"align\"] = $2;"
         ghcjs_dom_html_table_section_element_set_align ::
         JSRef HTMLTableSectionElement -> JSString -> IO ()
@@ -100,7 +100,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"align\"]"
         ghcjs_dom_html_table_section_element_get_align ::
         JSRef HTMLTableSectionElement -> IO JSString
@@ -119,7 +119,7 @@
          (unHTMLTableSectionElement (toHTMLTableSectionElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"ch\"] = $2;"
         ghcjs_dom_html_table_section_element_set_ch ::
         JSRef HTMLTableSectionElement -> JSString -> IO ()
@@ -138,7 +138,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"ch\"]"
         ghcjs_dom_html_table_section_element_get_ch ::
         JSRef HTMLTableSectionElement -> IO JSString
@@ -157,7 +157,7 @@
          (unHTMLTableSectionElement (toHTMLTableSectionElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"chOff\"] = $2;"
         ghcjs_dom_html_table_section_element_set_ch_off ::
         JSRef HTMLTableSectionElement -> JSString -> IO ()
@@ -176,7 +176,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"chOff\"]"
         ghcjs_dom_html_table_section_element_get_ch_off ::
         JSRef HTMLTableSectionElement -> IO JSString
@@ -195,7 +195,7 @@
          (unHTMLTableSectionElement (toHTMLTableSectionElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"vAlign\"] = $2;"
         ghcjs_dom_html_table_section_element_set_v_align ::
         JSRef HTMLTableSectionElement -> JSString -> IO ()
@@ -215,7 +215,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"vAlign\"]"
         ghcjs_dom_html_table_section_element_get_v_align ::
         JSRef HTMLTableSectionElement -> IO JSString
@@ -234,7 +234,7 @@
          (unHTMLTableSectionElement (toHTMLTableSectionElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"rows\"]"
         ghcjs_dom_html_table_section_element_get_rows ::
         JSRef HTMLTableSectionElement -> IO (JSRef HTMLCollection)
diff --git a/src/GHCJS/DOM/HTMLTextAreaElement.hs b/src/GHCJS/DOM/HTMLTextAreaElement.hs
--- a/src/GHCJS/DOM/HTMLTextAreaElement.hs
+++ b/src/GHCJS/DOM/HTMLTextAreaElement.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.HTMLTextAreaElement
        (ghcjs_dom_html_text_area_element_check_validity,
@@ -105,17 +105,17 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe
         "($1[\"checkValidity\"]() ? 1 : 0)"
         ghcjs_dom_html_text_area_element_check_validity ::
         JSRef HTMLTextAreaElement -> IO Bool
-#else 
+#else
 ghcjs_dom_html_text_area_element_check_validity ::
                                                   JSRef HTMLTextAreaElement -> IO Bool
 ghcjs_dom_html_text_area_element_check_validity = undefined
 #endif
- 
+
 htmlTextAreaElementCheckValidity ::
                                  (IsHTMLTextAreaElement self) => self -> IO Bool
 htmlTextAreaElementCheckValidity self
@@ -123,17 +123,17 @@
       (unHTMLTextAreaElement (toHTMLTextAreaElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"
         ghcjs_dom_html_text_area_element_set_custom_validity ::
         JSRef HTMLTextAreaElement -> JSString -> IO ()
-#else 
+#else
 ghcjs_dom_html_text_area_element_set_custom_validity ::
                                                        JSRef HTMLTextAreaElement ->
                                                          JSString -> IO ()
 ghcjs_dom_html_text_area_element_set_custom_validity = undefined
 #endif
- 
+
 htmlTextAreaElementSetCustomValidity ::
                                      (IsHTMLTextAreaElement self, ToJSString error) =>
                                        self -> error -> IO ()
@@ -143,16 +143,16 @@
       (toJSString error)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"select\"]()"
         ghcjs_dom_html_text_area_element_select ::
         JSRef HTMLTextAreaElement -> IO ()
-#else 
+#else
 ghcjs_dom_html_text_area_element_select ::
                                           JSRef HTMLTextAreaElement -> IO ()
 ghcjs_dom_html_text_area_element_select = undefined
 #endif
- 
+
 htmlTextAreaElementSelect ::
                           (IsHTMLTextAreaElement self) => self -> IO ()
 htmlTextAreaElementSelect self
@@ -160,38 +160,19 @@
       (unHTMLTextAreaElement (toHTMLTextAreaElement self))
 
 
-#ifdef __GHCJS__ 
-foreign import javascript unsafe "$1[\"setRangeText\"]($2)"
-        ghcjs_dom_html_text_area_element_set_range_text ::
-        JSRef HTMLTextAreaElement -> JSString -> IO ()
-#else 
-ghcjs_dom_html_text_area_element_set_range_text ::
-                                                  JSRef HTMLTextAreaElement -> JSString -> IO ()
-ghcjs_dom_html_text_area_element_set_range_text = undefined
-#endif
- 
-htmlTextAreaElementSetRangeText ::
-                                (IsHTMLTextAreaElement self, ToJSString replacement) =>
-                                  self -> replacement -> IO ()
-htmlTextAreaElementSetRangeText self replacement
-  = ghcjs_dom_html_text_area_element_set_range_text
-      (unHTMLTextAreaElement (toHTMLTextAreaElement self))
-      (toJSString replacement)
-
-
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe
         "$1[\"setRangeText\"]($2, $3, $4,\n$5)"
         ghcjs_dom_html_text_area_element_set_range_text ::
         JSRef HTMLTextAreaElement ->
           JSString -> Word -> Word -> JSString -> IO ()
-#else 
+#else
 ghcjs_dom_html_text_area_element_set_range_text ::
                                                   JSRef HTMLTextAreaElement ->
                                                     JSString -> Word -> Word -> JSString -> IO ()
 ghcjs_dom_html_text_area_element_set_range_text = undefined
 #endif
- 
+
 htmlTextAreaElementSetRangeText ::
                                 (IsHTMLTextAreaElement self, ToJSString replacement,
                                  ToJSString selectionMode) =>
@@ -206,18 +187,18 @@
       (toJSString selectionMode)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe
         "$1[\"setSelectionRange\"]($2, $3,\n$4)"
         ghcjs_dom_html_text_area_element_set_selection_range ::
         JSRef HTMLTextAreaElement -> Int -> Int -> JSString -> IO ()
-#else 
+#else
 ghcjs_dom_html_text_area_element_set_selection_range ::
                                                        JSRef HTMLTextAreaElement ->
                                                          Int -> Int -> JSString -> IO ()
 ghcjs_dom_html_text_area_element_set_selection_range = undefined
 #endif
- 
+
 htmlTextAreaElementSetSelectionRange ::
                                      (IsHTMLTextAreaElement self, ToJSString direction) =>
                                        self -> Int -> Int -> direction -> IO ()
@@ -229,16 +210,16 @@
       (toJSString direction)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"autofocus\"] = $2;"
         ghcjs_dom_html_text_area_element_set_autofocus ::
         JSRef HTMLTextAreaElement -> Bool -> IO ()
-#else 
+#else
 ghcjs_dom_html_text_area_element_set_autofocus ::
                                                  JSRef HTMLTextAreaElement -> Bool -> IO ()
 ghcjs_dom_html_text_area_element_set_autofocus = undefined
 #endif
- 
+
 htmlTextAreaElementSetAutofocus ::
                                 (IsHTMLTextAreaElement self) => self -> Bool -> IO ()
 htmlTextAreaElementSetAutofocus self val
@@ -247,16 +228,16 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "($1[\"autofocus\"] ? 1 : 0)"
         ghcjs_dom_html_text_area_element_get_autofocus ::
         JSRef HTMLTextAreaElement -> IO Bool
-#else 
+#else
 ghcjs_dom_html_text_area_element_get_autofocus ::
                                                  JSRef HTMLTextAreaElement -> IO Bool
 ghcjs_dom_html_text_area_element_get_autofocus = undefined
 #endif
- 
+
 htmlTextAreaElementGetAutofocus ::
                                 (IsHTMLTextAreaElement self) => self -> IO Bool
 htmlTextAreaElementGetAutofocus self
@@ -264,16 +245,16 @@
       (unHTMLTextAreaElement (toHTMLTextAreaElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"cols\"] = $2;"
         ghcjs_dom_html_text_area_element_set_cols ::
         JSRef HTMLTextAreaElement -> Int -> IO ()
-#else 
+#else
 ghcjs_dom_html_text_area_element_set_cols ::
                                             JSRef HTMLTextAreaElement -> Int -> IO ()
 ghcjs_dom_html_text_area_element_set_cols = undefined
 #endif
- 
+
 htmlTextAreaElementSetCols ::
                            (IsHTMLTextAreaElement self) => self -> Int -> IO ()
 htmlTextAreaElementSetCols self val
@@ -282,16 +263,16 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"cols\"]"
         ghcjs_dom_html_text_area_element_get_cols ::
         JSRef HTMLTextAreaElement -> IO Int
-#else 
+#else
 ghcjs_dom_html_text_area_element_get_cols ::
                                             JSRef HTMLTextAreaElement -> IO Int
 ghcjs_dom_html_text_area_element_get_cols = undefined
 #endif
- 
+
 htmlTextAreaElementGetCols ::
                            (IsHTMLTextAreaElement self) => self -> IO Int
 htmlTextAreaElementGetCols self
@@ -299,16 +280,16 @@
       (unHTMLTextAreaElement (toHTMLTextAreaElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"dirName\"] = $2;"
         ghcjs_dom_html_text_area_element_set_dir_name ::
         JSRef HTMLTextAreaElement -> JSString -> IO ()
-#else 
+#else
 ghcjs_dom_html_text_area_element_set_dir_name ::
                                                 JSRef HTMLTextAreaElement -> JSString -> IO ()
 ghcjs_dom_html_text_area_element_set_dir_name = undefined
 #endif
- 
+
 htmlTextAreaElementSetDirName ::
                               (IsHTMLTextAreaElement self, ToJSString val) =>
                                 self -> val -> IO ()
@@ -318,16 +299,16 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"dirName\"]"
         ghcjs_dom_html_text_area_element_get_dir_name ::
         JSRef HTMLTextAreaElement -> IO JSString
-#else 
+#else
 ghcjs_dom_html_text_area_element_get_dir_name ::
                                                 JSRef HTMLTextAreaElement -> IO JSString
 ghcjs_dom_html_text_area_element_get_dir_name = undefined
 #endif
- 
+
 htmlTextAreaElementGetDirName ::
                               (IsHTMLTextAreaElement self, FromJSString result) =>
                                 self -> IO result
@@ -337,16 +318,16 @@
          (unHTMLTextAreaElement (toHTMLTextAreaElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"disabled\"] = $2;"
         ghcjs_dom_html_text_area_element_set_disabled ::
         JSRef HTMLTextAreaElement -> Bool -> IO ()
-#else 
+#else
 ghcjs_dom_html_text_area_element_set_disabled ::
                                                 JSRef HTMLTextAreaElement -> Bool -> IO ()
 ghcjs_dom_html_text_area_element_set_disabled = undefined
 #endif
- 
+
 htmlTextAreaElementSetDisabled ::
                                (IsHTMLTextAreaElement self) => self -> Bool -> IO ()
 htmlTextAreaElementSetDisabled self val
@@ -355,16 +336,16 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"
         ghcjs_dom_html_text_area_element_get_disabled ::
         JSRef HTMLTextAreaElement -> IO Bool
-#else 
+#else
 ghcjs_dom_html_text_area_element_get_disabled ::
                                                 JSRef HTMLTextAreaElement -> IO Bool
 ghcjs_dom_html_text_area_element_get_disabled = undefined
 #endif
- 
+
 htmlTextAreaElementGetDisabled ::
                                (IsHTMLTextAreaElement self) => self -> IO Bool
 htmlTextAreaElementGetDisabled self
@@ -372,16 +353,16 @@
       (unHTMLTextAreaElement (toHTMLTextAreaElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"form\"]"
         ghcjs_dom_html_text_area_element_get_form ::
         JSRef HTMLTextAreaElement -> IO (JSRef HTMLFormElement)
-#else 
+#else
 ghcjs_dom_html_text_area_element_get_form ::
                                             JSRef HTMLTextAreaElement -> IO (JSRef HTMLFormElement)
 ghcjs_dom_html_text_area_element_get_form = undefined
 #endif
- 
+
 htmlTextAreaElementGetForm ::
                            (IsHTMLTextAreaElement self) => self -> IO (Maybe HTMLFormElement)
 htmlTextAreaElementGetForm self
@@ -390,16 +371,16 @@
          (unHTMLTextAreaElement (toHTMLTextAreaElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"maxLength\"] = $2;"
         ghcjs_dom_html_text_area_element_set_max_length ::
         JSRef HTMLTextAreaElement -> Int -> IO ()
-#else 
+#else
 ghcjs_dom_html_text_area_element_set_max_length ::
                                                   JSRef HTMLTextAreaElement -> Int -> IO ()
 ghcjs_dom_html_text_area_element_set_max_length = undefined
 #endif
- 
+
 htmlTextAreaElementSetMaxLength ::
                                 (IsHTMLTextAreaElement self) => self -> Int -> IO ()
 htmlTextAreaElementSetMaxLength self val
@@ -408,16 +389,16 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"maxLength\"]"
         ghcjs_dom_html_text_area_element_get_max_length ::
         JSRef HTMLTextAreaElement -> IO Int
-#else 
+#else
 ghcjs_dom_html_text_area_element_get_max_length ::
                                                   JSRef HTMLTextAreaElement -> IO Int
 ghcjs_dom_html_text_area_element_get_max_length = undefined
 #endif
- 
+
 htmlTextAreaElementGetMaxLength ::
                                 (IsHTMLTextAreaElement self) => self -> IO Int
 htmlTextAreaElementGetMaxLength self
@@ -425,16 +406,16 @@
       (unHTMLTextAreaElement (toHTMLTextAreaElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"name\"] = $2;"
         ghcjs_dom_html_text_area_element_set_name ::
         JSRef HTMLTextAreaElement -> JSString -> IO ()
-#else 
+#else
 ghcjs_dom_html_text_area_element_set_name ::
                                             JSRef HTMLTextAreaElement -> JSString -> IO ()
 ghcjs_dom_html_text_area_element_set_name = undefined
 #endif
- 
+
 htmlTextAreaElementSetName ::
                            (IsHTMLTextAreaElement self, ToJSString val) =>
                              self -> val -> IO ()
@@ -444,16 +425,16 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"name\"]"
         ghcjs_dom_html_text_area_element_get_name ::
         JSRef HTMLTextAreaElement -> IO JSString
-#else 
+#else
 ghcjs_dom_html_text_area_element_get_name ::
                                             JSRef HTMLTextAreaElement -> IO JSString
 ghcjs_dom_html_text_area_element_get_name = undefined
 #endif
- 
+
 htmlTextAreaElementGetName ::
                            (IsHTMLTextAreaElement self, FromJSString result) =>
                              self -> IO result
@@ -463,16 +444,16 @@
          (unHTMLTextAreaElement (toHTMLTextAreaElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"placeholder\"] = $2;"
         ghcjs_dom_html_text_area_element_set_placeholder ::
         JSRef HTMLTextAreaElement -> JSString -> IO ()
-#else 
+#else
 ghcjs_dom_html_text_area_element_set_placeholder ::
                                                    JSRef HTMLTextAreaElement -> JSString -> IO ()
 ghcjs_dom_html_text_area_element_set_placeholder = undefined
 #endif
- 
+
 htmlTextAreaElementSetPlaceholder ::
                                   (IsHTMLTextAreaElement self, ToJSString val) =>
                                     self -> val -> IO ()
@@ -482,16 +463,16 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"placeholder\"]"
         ghcjs_dom_html_text_area_element_get_placeholder ::
         JSRef HTMLTextAreaElement -> IO JSString
-#else 
+#else
 ghcjs_dom_html_text_area_element_get_placeholder ::
                                                    JSRef HTMLTextAreaElement -> IO JSString
 ghcjs_dom_html_text_area_element_get_placeholder = undefined
 #endif
- 
+
 htmlTextAreaElementGetPlaceholder ::
                                   (IsHTMLTextAreaElement self, FromJSString result) =>
                                     self -> IO result
@@ -501,16 +482,16 @@
          (unHTMLTextAreaElement (toHTMLTextAreaElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"readOnly\"] = $2;"
         ghcjs_dom_html_text_area_element_set_read_only ::
         JSRef HTMLTextAreaElement -> Bool -> IO ()
-#else 
+#else
 ghcjs_dom_html_text_area_element_set_read_only ::
                                                  JSRef HTMLTextAreaElement -> Bool -> IO ()
 ghcjs_dom_html_text_area_element_set_read_only = undefined
 #endif
- 
+
 htmlTextAreaElementSetReadOnly ::
                                (IsHTMLTextAreaElement self) => self -> Bool -> IO ()
 htmlTextAreaElementSetReadOnly self val
@@ -519,16 +500,16 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "($1[\"readOnly\"] ? 1 : 0)"
         ghcjs_dom_html_text_area_element_get_read_only ::
         JSRef HTMLTextAreaElement -> IO Bool
-#else 
+#else
 ghcjs_dom_html_text_area_element_get_read_only ::
                                                  JSRef HTMLTextAreaElement -> IO Bool
 ghcjs_dom_html_text_area_element_get_read_only = undefined
 #endif
- 
+
 htmlTextAreaElementGetReadOnly ::
                                (IsHTMLTextAreaElement self) => self -> IO Bool
 htmlTextAreaElementGetReadOnly self
@@ -536,16 +517,16 @@
       (unHTMLTextAreaElement (toHTMLTextAreaElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"required\"] = $2;"
         ghcjs_dom_html_text_area_element_set_required ::
         JSRef HTMLTextAreaElement -> Bool -> IO ()
-#else 
+#else
 ghcjs_dom_html_text_area_element_set_required ::
                                                 JSRef HTMLTextAreaElement -> Bool -> IO ()
 ghcjs_dom_html_text_area_element_set_required = undefined
 #endif
- 
+
 htmlTextAreaElementSetRequired ::
                                (IsHTMLTextAreaElement self) => self -> Bool -> IO ()
 htmlTextAreaElementSetRequired self val
@@ -554,16 +535,16 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "($1[\"required\"] ? 1 : 0)"
         ghcjs_dom_html_text_area_element_get_required ::
         JSRef HTMLTextAreaElement -> IO Bool
-#else 
+#else
 ghcjs_dom_html_text_area_element_get_required ::
                                                 JSRef HTMLTextAreaElement -> IO Bool
 ghcjs_dom_html_text_area_element_get_required = undefined
 #endif
- 
+
 htmlTextAreaElementGetRequired ::
                                (IsHTMLTextAreaElement self) => self -> IO Bool
 htmlTextAreaElementGetRequired self
@@ -571,16 +552,16 @@
       (unHTMLTextAreaElement (toHTMLTextAreaElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"rows\"] = $2;"
         ghcjs_dom_html_text_area_element_set_rows ::
         JSRef HTMLTextAreaElement -> Int -> IO ()
-#else 
+#else
 ghcjs_dom_html_text_area_element_set_rows ::
                                             JSRef HTMLTextAreaElement -> Int -> IO ()
 ghcjs_dom_html_text_area_element_set_rows = undefined
 #endif
- 
+
 htmlTextAreaElementSetRows ::
                            (IsHTMLTextAreaElement self) => self -> Int -> IO ()
 htmlTextAreaElementSetRows self val
@@ -589,16 +570,16 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"rows\"]"
         ghcjs_dom_html_text_area_element_get_rows ::
         JSRef HTMLTextAreaElement -> IO Int
-#else 
+#else
 ghcjs_dom_html_text_area_element_get_rows ::
                                             JSRef HTMLTextAreaElement -> IO Int
 ghcjs_dom_html_text_area_element_get_rows = undefined
 #endif
- 
+
 htmlTextAreaElementGetRows ::
                            (IsHTMLTextAreaElement self) => self -> IO Int
 htmlTextAreaElementGetRows self
@@ -606,16 +587,16 @@
       (unHTMLTextAreaElement (toHTMLTextAreaElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"wrap\"] = $2;"
         ghcjs_dom_html_text_area_element_set_wrap ::
         JSRef HTMLTextAreaElement -> JSString -> IO ()
-#else 
+#else
 ghcjs_dom_html_text_area_element_set_wrap ::
                                             JSRef HTMLTextAreaElement -> JSString -> IO ()
 ghcjs_dom_html_text_area_element_set_wrap = undefined
 #endif
- 
+
 htmlTextAreaElementSetWrap ::
                            (IsHTMLTextAreaElement self, ToJSString val) =>
                              self -> val -> IO ()
@@ -625,16 +606,16 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"wrap\"]"
         ghcjs_dom_html_text_area_element_get_wrap ::
         JSRef HTMLTextAreaElement -> IO JSString
-#else 
+#else
 ghcjs_dom_html_text_area_element_get_wrap ::
                                             JSRef HTMLTextAreaElement -> IO JSString
 ghcjs_dom_html_text_area_element_get_wrap = undefined
 #endif
- 
+
 htmlTextAreaElementGetWrap ::
                            (IsHTMLTextAreaElement self, FromJSString result) =>
                              self -> IO result
@@ -644,16 +625,16 @@
          (unHTMLTextAreaElement (toHTMLTextAreaElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"defaultValue\"] = $2;"
         ghcjs_dom_html_text_area_element_set_default_value ::
         JSRef HTMLTextAreaElement -> JSString -> IO ()
-#else 
+#else
 ghcjs_dom_html_text_area_element_set_default_value ::
                                                      JSRef HTMLTextAreaElement -> JSString -> IO ()
 ghcjs_dom_html_text_area_element_set_default_value = undefined
 #endif
- 
+
 htmlTextAreaElementSetDefaultValue ::
                                    (IsHTMLTextAreaElement self, ToJSString val) =>
                                      self -> val -> IO ()
@@ -663,16 +644,16 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"defaultValue\"]"
         ghcjs_dom_html_text_area_element_get_default_value ::
         JSRef HTMLTextAreaElement -> IO JSString
-#else 
+#else
 ghcjs_dom_html_text_area_element_get_default_value ::
                                                      JSRef HTMLTextAreaElement -> IO JSString
 ghcjs_dom_html_text_area_element_get_default_value = undefined
 #endif
- 
+
 htmlTextAreaElementGetDefaultValue ::
                                    (IsHTMLTextAreaElement self, FromJSString result) =>
                                      self -> IO result
@@ -682,16 +663,16 @@
          (unHTMLTextAreaElement (toHTMLTextAreaElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"value\"] = $2;"
         ghcjs_dom_html_text_area_element_set_value ::
         JSRef HTMLTextAreaElement -> JSString -> IO ()
-#else 
+#else
 ghcjs_dom_html_text_area_element_set_value ::
                                              JSRef HTMLTextAreaElement -> JSString -> IO ()
 ghcjs_dom_html_text_area_element_set_value = undefined
 #endif
- 
+
 htmlTextAreaElementSetValue ::
                             (IsHTMLTextAreaElement self, ToJSString val) =>
                               self -> val -> IO ()
@@ -701,16 +682,16 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"value\"]"
         ghcjs_dom_html_text_area_element_get_value ::
         JSRef HTMLTextAreaElement -> IO JSString
-#else 
+#else
 ghcjs_dom_html_text_area_element_get_value ::
                                              JSRef HTMLTextAreaElement -> IO JSString
 ghcjs_dom_html_text_area_element_get_value = undefined
 #endif
- 
+
 htmlTextAreaElementGetValue ::
                             (IsHTMLTextAreaElement self, FromJSString result) =>
                               self -> IO result
@@ -720,16 +701,16 @@
          (unHTMLTextAreaElement (toHTMLTextAreaElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"textLength\"]"
         ghcjs_dom_html_text_area_element_get_text_length ::
         JSRef HTMLTextAreaElement -> IO Word
-#else 
+#else
 ghcjs_dom_html_text_area_element_get_text_length ::
                                                    JSRef HTMLTextAreaElement -> IO Word
 ghcjs_dom_html_text_area_element_get_text_length = undefined
 #endif
- 
+
 htmlTextAreaElementGetTextLength ::
                                  (IsHTMLTextAreaElement self) => self -> IO Word
 htmlTextAreaElementGetTextLength self
@@ -737,16 +718,16 @@
       (unHTMLTextAreaElement (toHTMLTextAreaElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)"
         ghcjs_dom_html_text_area_element_get_will_validate ::
         JSRef HTMLTextAreaElement -> IO Bool
-#else 
+#else
 ghcjs_dom_html_text_area_element_get_will_validate ::
                                                      JSRef HTMLTextAreaElement -> IO Bool
 ghcjs_dom_html_text_area_element_get_will_validate = undefined
 #endif
- 
+
 htmlTextAreaElementGetWillValidate ::
                                    (IsHTMLTextAreaElement self) => self -> IO Bool
 htmlTextAreaElementGetWillValidate self
@@ -754,17 +735,17 @@
       (unHTMLTextAreaElement (toHTMLTextAreaElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"validity\"]"
         ghcjs_dom_html_text_area_element_get_validity ::
         JSRef HTMLTextAreaElement -> IO (JSRef ValidityState)
-#else 
+#else
 ghcjs_dom_html_text_area_element_get_validity ::
                                                 JSRef HTMLTextAreaElement ->
                                                   IO (JSRef ValidityState)
 ghcjs_dom_html_text_area_element_get_validity = undefined
 #endif
- 
+
 htmlTextAreaElementGetValidity ::
                                (IsHTMLTextAreaElement self) => self -> IO (Maybe ValidityState)
 htmlTextAreaElementGetValidity self
@@ -773,16 +754,16 @@
          (unHTMLTextAreaElement (toHTMLTextAreaElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"validationMessage\"]"
         ghcjs_dom_html_text_area_element_get_validation_message ::
         JSRef HTMLTextAreaElement -> IO JSString
-#else 
+#else
 ghcjs_dom_html_text_area_element_get_validation_message ::
                                                           JSRef HTMLTextAreaElement -> IO JSString
 ghcjs_dom_html_text_area_element_get_validation_message = undefined
 #endif
- 
+
 htmlTextAreaElementGetValidationMessage ::
                                         (IsHTMLTextAreaElement self, FromJSString result) =>
                                           self -> IO result
@@ -792,16 +773,16 @@
          (unHTMLTextAreaElement (toHTMLTextAreaElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"labels\"]"
         ghcjs_dom_html_text_area_element_get_labels ::
         JSRef HTMLTextAreaElement -> IO (JSRef NodeList)
-#else 
+#else
 ghcjs_dom_html_text_area_element_get_labels ::
                                               JSRef HTMLTextAreaElement -> IO (JSRef NodeList)
 ghcjs_dom_html_text_area_element_get_labels = undefined
 #endif
- 
+
 htmlTextAreaElementGetLabels ::
                              (IsHTMLTextAreaElement self) => self -> IO (Maybe NodeList)
 htmlTextAreaElementGetLabels self
@@ -810,16 +791,16 @@
          (unHTMLTextAreaElement (toHTMLTextAreaElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"selectionStart\"] = $2;"
         ghcjs_dom_html_text_area_element_set_selection_start ::
         JSRef HTMLTextAreaElement -> Int -> IO ()
-#else 
+#else
 ghcjs_dom_html_text_area_element_set_selection_start ::
                                                        JSRef HTMLTextAreaElement -> Int -> IO ()
 ghcjs_dom_html_text_area_element_set_selection_start = undefined
 #endif
- 
+
 htmlTextAreaElementSetSelectionStart ::
                                      (IsHTMLTextAreaElement self) => self -> Int -> IO ()
 htmlTextAreaElementSetSelectionStart self val
@@ -828,16 +809,16 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"selectionStart\"]"
         ghcjs_dom_html_text_area_element_get_selection_start ::
         JSRef HTMLTextAreaElement -> IO Int
-#else 
+#else
 ghcjs_dom_html_text_area_element_get_selection_start ::
                                                        JSRef HTMLTextAreaElement -> IO Int
 ghcjs_dom_html_text_area_element_get_selection_start = undefined
 #endif
- 
+
 htmlTextAreaElementGetSelectionStart ::
                                      (IsHTMLTextAreaElement self) => self -> IO Int
 htmlTextAreaElementGetSelectionStart self
@@ -845,16 +826,16 @@
       (unHTMLTextAreaElement (toHTMLTextAreaElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"selectionEnd\"] = $2;"
         ghcjs_dom_html_text_area_element_set_selection_end ::
         JSRef HTMLTextAreaElement -> Int -> IO ()
-#else 
+#else
 ghcjs_dom_html_text_area_element_set_selection_end ::
                                                      JSRef HTMLTextAreaElement -> Int -> IO ()
 ghcjs_dom_html_text_area_element_set_selection_end = undefined
 #endif
- 
+
 htmlTextAreaElementSetSelectionEnd ::
                                    (IsHTMLTextAreaElement self) => self -> Int -> IO ()
 htmlTextAreaElementSetSelectionEnd self val
@@ -863,16 +844,16 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"selectionEnd\"]"
         ghcjs_dom_html_text_area_element_get_selection_end ::
         JSRef HTMLTextAreaElement -> IO Int
-#else 
+#else
 ghcjs_dom_html_text_area_element_get_selection_end ::
                                                      JSRef HTMLTextAreaElement -> IO Int
 ghcjs_dom_html_text_area_element_get_selection_end = undefined
 #endif
- 
+
 htmlTextAreaElementGetSelectionEnd ::
                                    (IsHTMLTextAreaElement self) => self -> IO Int
 htmlTextAreaElementGetSelectionEnd self
@@ -880,18 +861,18 @@
       (unHTMLTextAreaElement (toHTMLTextAreaElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"selectionDirection\"] = $2;"
         ghcjs_dom_html_text_area_element_set_selection_direction ::
         JSRef HTMLTextAreaElement -> JSString -> IO ()
-#else 
+#else
 ghcjs_dom_html_text_area_element_set_selection_direction ::
                                                            JSRef HTMLTextAreaElement ->
                                                              JSString -> IO ()
 ghcjs_dom_html_text_area_element_set_selection_direction
   = undefined
 #endif
- 
+
 htmlTextAreaElementSetSelectionDirection ::
                                          (IsHTMLTextAreaElement self, ToJSString val) =>
                                            self -> val -> IO ()
@@ -901,17 +882,17 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"selectionDirection\"]"
         ghcjs_dom_html_text_area_element_get_selection_direction ::
         JSRef HTMLTextAreaElement -> IO JSString
-#else 
+#else
 ghcjs_dom_html_text_area_element_get_selection_direction ::
                                                            JSRef HTMLTextAreaElement -> IO JSString
 ghcjs_dom_html_text_area_element_get_selection_direction
   = undefined
 #endif
- 
+
 htmlTextAreaElementGetSelectionDirection ::
                                          (IsHTMLTextAreaElement self, FromJSString result) =>
                                            self -> IO result
diff --git a/src/GHCJS/DOM/HTMLTitleElement.hs b/src/GHCJS/DOM/HTMLTitleElement.hs
--- a/src/GHCJS/DOM/HTMLTitleElement.hs
+++ b/src/GHCJS/DOM/HTMLTitleElement.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.HTMLTitleElement
        (ghcjs_dom_html_title_element_set_text, htmlTitleElementSetText,
@@ -22,7 +22,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"text\"] = $2;"
         ghcjs_dom_html_title_element_set_text ::
         JSRef HTMLTitleElement -> JSString -> IO ()
@@ -40,7 +40,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"text\"]"
         ghcjs_dom_html_title_element_get_text ::
         JSRef HTMLTitleElement -> IO JSString
diff --git a/src/GHCJS/DOM/HTMLUListElement.hs b/src/GHCJS/DOM/HTMLUListElement.hs
--- a/src/GHCJS/DOM/HTMLUListElement.hs
+++ b/src/GHCJS/DOM/HTMLUListElement.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.HTMLUListElement
        (ghcjs_dom_htmlu_list_element_set_compact,
@@ -23,7 +23,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"compact\"] = $2;"
         ghcjs_dom_htmlu_list_element_set_compact ::
         JSRef HTMLUListElement -> Bool -> IO ()
@@ -41,7 +41,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"compact\"] ? 1 : 0)"
         ghcjs_dom_htmlu_list_element_get_compact ::
         JSRef HTMLUListElement -> IO Bool
diff --git a/src/GHCJS/DOM/HTMLVideoElement.hs b/src/GHCJS/DOM/HTMLVideoElement.hs
--- a/src/GHCJS/DOM/HTMLVideoElement.hs
+++ b/src/GHCJS/DOM/HTMLVideoElement.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.HTMLVideoElement
        (ghcjs_dom_html_video_element_webkit_enter_fullscreen,
@@ -46,7 +46,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"webkitEnterFullscreen\"]()"
         ghcjs_dom_html_video_element_webkit_enter_fullscreen ::
         JSRef HTMLVideoElement -> IO ()
@@ -63,7 +63,7 @@
       (unHTMLVideoElement (toHTMLVideoElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"webkitExitFullscreen\"]()"
         ghcjs_dom_html_video_element_webkit_exit_fullscreen ::
         JSRef HTMLVideoElement -> IO ()
@@ -80,7 +80,7 @@
       (unHTMLVideoElement (toHTMLVideoElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"webkitEnterFullScreen\"]()"
         ghcjs_dom_html_video_element_webkit_enter_full_screen ::
         JSRef HTMLVideoElement -> IO ()
@@ -97,7 +97,7 @@
       (unHTMLVideoElement (toHTMLVideoElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"webkitExitFullScreen\"]()"
         ghcjs_dom_html_video_element_webkit_exit_full_screen ::
         JSRef HTMLVideoElement -> IO ()
@@ -114,7 +114,7 @@
       (unHTMLVideoElement (toHTMLVideoElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"width\"] = $2;"
         ghcjs_dom_html_video_element_set_width ::
         JSRef HTMLVideoElement -> Word -> IO ()
@@ -132,7 +132,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"width\"]"
         ghcjs_dom_html_video_element_get_width ::
         JSRef HTMLVideoElement -> IO Word
@@ -149,7 +149,7 @@
       (unHTMLVideoElement (toHTMLVideoElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"height\"] = $2;"
         ghcjs_dom_html_video_element_set_height ::
         JSRef HTMLVideoElement -> Word -> IO ()
@@ -167,7 +167,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"height\"]"
         ghcjs_dom_html_video_element_get_height ::
         JSRef HTMLVideoElement -> IO Word
@@ -184,7 +184,7 @@
       (unHTMLVideoElement (toHTMLVideoElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"videoWidth\"]"
         ghcjs_dom_html_video_element_get_video_width ::
         JSRef HTMLVideoElement -> IO Word
@@ -201,7 +201,7 @@
       (unHTMLVideoElement (toHTMLVideoElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"videoHeight\"]"
         ghcjs_dom_html_video_element_get_video_height ::
         JSRef HTMLVideoElement -> IO Word
@@ -218,7 +218,7 @@
       (unHTMLVideoElement (toHTMLVideoElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"poster\"] = $2;"
         ghcjs_dom_html_video_element_set_poster ::
         JSRef HTMLVideoElement -> JSString -> IO ()
@@ -236,7 +236,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"poster\"]"
         ghcjs_dom_html_video_element_get_poster ::
         JSRef HTMLVideoElement -> IO JSString
@@ -254,7 +254,7 @@
          (unHTMLVideoElement (toHTMLVideoElement self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "($1[\"webkitSupportsFullscreen\"] ? 1 : 0)"
         ghcjs_dom_html_video_element_get_webkit_supports_fullscreen ::
@@ -273,7 +273,7 @@
       (unHTMLVideoElement (toHTMLVideoElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "($1[\"webkitDisplayingFullscreen\"] ? 1 : 0)"
         ghcjs_dom_html_video_element_get_webkit_displaying_fullscreen ::
@@ -292,7 +292,7 @@
       (unHTMLVideoElement (toHTMLVideoElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"webkitDecodedFrameCount\"]"
         ghcjs_dom_html_video_element_get_webkit_decoded_frame_count ::
         JSRef HTMLVideoElement -> IO Word
@@ -310,7 +310,7 @@
       (unHTMLVideoElement (toHTMLVideoElement self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"webkitDroppedFrameCount\"]"
         ghcjs_dom_html_video_element_get_webkit_dropped_frame_count ::
         JSRef HTMLVideoElement -> IO Word
diff --git a/src/GHCJS/DOM/History.hs b/src/GHCJS/DOM/History.hs
--- a/src/GHCJS/DOM/History.hs
+++ b/src/GHCJS/DOM/History.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.History
        (ghcjs_dom_history_get_length, historyGetLength, History,
@@ -20,7 +20,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"length\"]"
         ghcjs_dom_history_get_length :: JSRef History -> IO Word
 #else 
diff --git a/src/GHCJS/DOM/KeyboardEvent.hs b/src/GHCJS/DOM/KeyboardEvent.hs
--- a/src/GHCJS/DOM/KeyboardEvent.hs
+++ b/src/GHCJS/DOM/KeyboardEvent.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.KeyboardEvent
        (ghcjs_dom_keyboard_event_get_modifier_state,
@@ -34,7 +34,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "($1[\"getModifierState\"]($2) ? 1 : 0)"
         ghcjs_dom_keyboard_event_get_modifier_state ::
@@ -54,7 +54,7 @@
       (toJSString keyIdentifierArg)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "$1[\"initKeyboardEvent\"]($2, $3,\n$4, $5, $6, $7, $8, $9, $10,\n$11, $12)"
         ghcjs_dom_keyboard_event_init_keyboard_event ::
@@ -109,7 +109,7 @@
 cKEY_LOCATION_NUMPAD = 3
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"keyIdentifier\"]"
         ghcjs_dom_keyboard_event_get_key_identifier ::
         JSRef KeyboardEvent -> IO JSString
@@ -127,7 +127,7 @@
          (unKeyboardEvent (toKeyboardEvent self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"keyLocation\"]"
         ghcjs_dom_keyboard_event_get_key_location ::
         JSRef KeyboardEvent -> IO Word
@@ -144,7 +144,7 @@
       (unKeyboardEvent (toKeyboardEvent self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"ctrlKey\"] ? 1 : 0)"
         ghcjs_dom_keyboard_event_get_ctrl_key ::
         JSRef KeyboardEvent -> IO Bool
@@ -161,7 +161,7 @@
       (unKeyboardEvent (toKeyboardEvent self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"shiftKey\"] ? 1 : 0)"
         ghcjs_dom_keyboard_event_get_shift_key ::
         JSRef KeyboardEvent -> IO Bool
@@ -178,7 +178,7 @@
       (unKeyboardEvent (toKeyboardEvent self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"altKey\"] ? 1 : 0)"
         ghcjs_dom_keyboard_event_get_alt_key ::
         JSRef KeyboardEvent -> IO Bool
@@ -194,7 +194,7 @@
       (unKeyboardEvent (toKeyboardEvent self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"metaKey\"] ? 1 : 0)"
         ghcjs_dom_keyboard_event_get_meta_key ::
         JSRef KeyboardEvent -> IO Bool
@@ -211,7 +211,7 @@
       (unKeyboardEvent (toKeyboardEvent self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"altGraphKey\"] ? 1 : 0)"
         ghcjs_dom_keyboard_event_get_alt_graph_key ::
         JSRef KeyboardEvent -> IO Bool
diff --git a/src/GHCJS/DOM/Location.hs b/src/GHCJS/DOM/Location.hs
--- a/src/GHCJS/DOM/Location.hs
+++ b/src/GHCJS/DOM/Location.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.Location
        (ghcjs_dom_location_get_origin, locationGetOrigin,
@@ -22,7 +22,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"origin\"]"
         ghcjs_dom_location_get_origin :: JSRef Location -> IO JSString
 #else 
@@ -37,7 +37,7 @@
       (ghcjs_dom_location_get_origin (unLocation (toLocation self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"ancestorOrigins\"]"
         ghcjs_dom_location_get_ancestor_origins ::
         JSRef Location -> IO (JSRef DOMStringList)
diff --git a/src/GHCJS/DOM/MediaError.hs b/src/GHCJS/DOM/MediaError.hs
--- a/src/GHCJS/DOM/MediaError.hs
+++ b/src/GHCJS/DOM/MediaError.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.MediaError
        (cMEDIA_ERR_ABORTED, cMEDIA_ERR_NETWORK, cMEDIA_ERR_DECODE,
@@ -26,7 +26,7 @@
 cMEDIA_ERR_SRC_NOT_SUPPORTED = 4
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"code\"]"
         ghcjs_dom_media_error_get_code :: JSRef MediaError -> IO Word
 #else 
diff --git a/src/GHCJS/DOM/MediaList.hs b/src/GHCJS/DOM/MediaList.hs
--- a/src/GHCJS/DOM/MediaList.hs
+++ b/src/GHCJS/DOM/MediaList.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.MediaList
        (ghcjs_dom_media_list_item, mediaListItem,
@@ -25,7 +25,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"item\"]($2)"
         ghcjs_dom_media_list_item :: JSRef MediaList -> Word -> IO JSString
 #else 
@@ -41,7 +41,7 @@
       (ghcjs_dom_media_list_item (unMediaList (toMediaList self)) index)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"deleteMedium\"]($2)"
         ghcjs_dom_media_list_delete_medium ::
         JSRef MediaList -> JSString -> IO ()
@@ -60,7 +60,7 @@
       (toJSString oldMedium)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"appendMedium\"]($2)"
         ghcjs_dom_media_list_append_medium ::
         JSRef MediaList -> JSString -> IO ()
@@ -79,7 +79,7 @@
       (toJSString newMedium)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"mediaText\"] = $2;"
         ghcjs_dom_media_list_set_media_text ::
         JSRef MediaList -> JSString -> IO ()
@@ -97,7 +97,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"mediaText\"]"
         ghcjs_dom_media_list_get_media_text ::
         JSRef MediaList -> IO JSString
@@ -115,7 +115,7 @@
          (unMediaList (toMediaList self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"length\"]"
         ghcjs_dom_media_list_get_length :: JSRef MediaList -> IO Word
 #else 
diff --git a/src/GHCJS/DOM/MediaQueryList.hs b/src/GHCJS/DOM/MediaQueryList.hs
--- a/src/GHCJS/DOM/MediaQueryList.hs
+++ b/src/GHCJS/DOM/MediaQueryList.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.MediaQueryList
        (ghcjs_dom_media_query_list_get_media, mediaQueryListGetMedia,
@@ -22,7 +22,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"media\"]"
         ghcjs_dom_media_query_list_get_media ::
         JSRef MediaQueryList -> IO JSString
@@ -40,7 +40,7 @@
          (unMediaQueryList (toMediaQueryList self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"matches\"] ? 1 : 0)"
         ghcjs_dom_media_query_list_get_matches ::
         JSRef MediaQueryList -> IO Bool
diff --git a/src/GHCJS/DOM/MouseEvent.hs b/src/GHCJS/DOM/MouseEvent.hs
--- a/src/GHCJS/DOM/MouseEvent.hs
+++ b/src/GHCJS/DOM/MouseEvent.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.MouseEvent
        (ghcjs_dom_mouse_event_init_mouse_event, mouseEventInitMouseEvent,
@@ -39,7 +39,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "$1[\"initMouseEvent\"]($2, $3, $4,\n$5, $6, $7, $8, $9, $10, $11,\n$12, $13, $14, $15, $16)"
         ghcjs_dom_mouse_event_init_mouse_event ::
@@ -114,7 +114,7 @@
       (maybe jsNull (unEventTarget . toEventTarget) relatedTarget)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"screenX\"]"
         ghcjs_dom_mouse_event_get_screen_x :: JSRef MouseEvent -> IO Int
 #else 
@@ -128,7 +128,7 @@
       (unMouseEvent (toMouseEvent self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"screenY\"]"
         ghcjs_dom_mouse_event_get_screen_y :: JSRef MouseEvent -> IO Int
 #else 
@@ -142,7 +142,7 @@
       (unMouseEvent (toMouseEvent self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"clientX\"]"
         ghcjs_dom_mouse_event_get_client_x :: JSRef MouseEvent -> IO Int
 #else 
@@ -156,7 +156,7 @@
       (unMouseEvent (toMouseEvent self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"clientY\"]"
         ghcjs_dom_mouse_event_get_client_y :: JSRef MouseEvent -> IO Int
 #else 
@@ -170,7 +170,7 @@
       (unMouseEvent (toMouseEvent self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"ctrlKey\"] ? 1 : 0)"
         ghcjs_dom_mouse_event_get_ctrl_key :: JSRef MouseEvent -> IO Bool
 #else 
@@ -184,7 +184,7 @@
       (unMouseEvent (toMouseEvent self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"shiftKey\"] ? 1 : 0)"
         ghcjs_dom_mouse_event_get_shift_key :: JSRef MouseEvent -> IO Bool
 #else 
@@ -198,7 +198,7 @@
       (unMouseEvent (toMouseEvent self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"altKey\"] ? 1 : 0)"
         ghcjs_dom_mouse_event_get_alt_key :: JSRef MouseEvent -> IO Bool
 #else 
@@ -212,7 +212,7 @@
       (unMouseEvent (toMouseEvent self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"metaKey\"] ? 1 : 0)"
         ghcjs_dom_mouse_event_get_meta_key :: JSRef MouseEvent -> IO Bool
 #else 
@@ -226,7 +226,7 @@
       (unMouseEvent (toMouseEvent self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"button\"]"
         ghcjs_dom_mouse_event_get_button :: JSRef MouseEvent -> IO Word
 #else 
@@ -240,7 +240,7 @@
       (unMouseEvent (toMouseEvent self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"relatedTarget\"]"
         ghcjs_dom_mouse_event_get_related_target ::
         JSRef MouseEvent -> IO (JSRef EventTarget)
@@ -258,7 +258,7 @@
          (unMouseEvent (toMouseEvent self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"webkitMovementX\"]"
         ghcjs_dom_mouse_event_get_webkit_movement_x ::
         JSRef MouseEvent -> IO Int
@@ -275,7 +275,7 @@
       (unMouseEvent (toMouseEvent self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"webkitMovementY\"]"
         ghcjs_dom_mouse_event_get_webkit_movement_y ::
         JSRef MouseEvent -> IO Int
@@ -292,7 +292,7 @@
       (unMouseEvent (toMouseEvent self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"offsetX\"]"
         ghcjs_dom_mouse_event_get_offset_x :: JSRef MouseEvent -> IO Int
 #else 
@@ -306,7 +306,7 @@
       (unMouseEvent (toMouseEvent self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"offsetY\"]"
         ghcjs_dom_mouse_event_get_offset_y :: JSRef MouseEvent -> IO Int
 #else 
@@ -320,7 +320,7 @@
       (unMouseEvent (toMouseEvent self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"x\"]"
         ghcjs_dom_mouse_event_get_x :: JSRef MouseEvent -> IO Int
 #else 
@@ -333,7 +333,7 @@
   = ghcjs_dom_mouse_event_get_x (unMouseEvent (toMouseEvent self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"y\"]"
         ghcjs_dom_mouse_event_get_y :: JSRef MouseEvent -> IO Int
 #else 
@@ -346,7 +346,7 @@
   = ghcjs_dom_mouse_event_get_y (unMouseEvent (toMouseEvent self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"fromElement\"]"
         ghcjs_dom_mouse_event_get_from_element ::
         JSRef MouseEvent -> IO (JSRef Node)
@@ -364,7 +364,7 @@
          (unMouseEvent (toMouseEvent self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"toElement\"]"
         ghcjs_dom_mouse_event_get_to_element ::
         JSRef MouseEvent -> IO (JSRef Node)
diff --git a/src/GHCJS/DOM/NamedNodeMap.hs b/src/GHCJS/DOM/NamedNodeMap.hs
--- a/src/GHCJS/DOM/NamedNodeMap.hs
+++ b/src/GHCJS/DOM/NamedNodeMap.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.NamedNodeMap
        (ghcjs_dom_named_node_map_get_named_item, namedNodeMapGetNamedItem,
@@ -30,7 +30,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"getNamedItem\"]($2)"
         ghcjs_dom_named_node_map_get_named_item ::
         JSRef NamedNodeMap -> JSString -> IO (JSRef Node)
@@ -50,7 +50,7 @@
          (toJSString name))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"setNamedItem\"]($2)"
         ghcjs_dom_named_node_map_set_named_item ::
         JSRef NamedNodeMap -> JSRef Node -> IO (JSRef Node)
@@ -70,7 +70,7 @@
          (maybe jsNull (unNode . toNode) node))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"removeNamedItem\"]($2)"
         ghcjs_dom_named_node_map_remove_named_item ::
         JSRef NamedNodeMap -> JSString -> IO (JSRef Node)
@@ -90,7 +90,7 @@
          (toJSString name))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"item\"]($2)"
         ghcjs_dom_named_node_map_item ::
         JSRef NamedNodeMap -> Word -> IO (JSRef Node)
@@ -109,7 +109,7 @@
          index)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"getNamedItemNS\"]($2, $3)"
         ghcjs_dom_named_node_map_get_named_item_ns ::
         JSRef NamedNodeMap -> JSString -> JSString -> IO (JSRef Node)
@@ -132,7 +132,7 @@
          (toJSString localName))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"setNamedItemNS\"]($2)"
         ghcjs_dom_named_node_map_set_named_item_ns ::
         JSRef NamedNodeMap -> JSRef Node -> IO (JSRef Node)
@@ -152,7 +152,7 @@
          (maybe jsNull (unNode . toNode) node))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "$1[\"removeNamedItemNS\"]($2, $3)"
         ghcjs_dom_named_node_map_remove_named_item_ns ::
@@ -176,7 +176,7 @@
          (toJSString localName))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"length\"]"
         ghcjs_dom_named_node_map_get_length ::
         JSRef NamedNodeMap -> IO Word
diff --git a/src/GHCJS/DOM/Navigator.hs b/src/GHCJS/DOM/Navigator.hs
--- a/src/GHCJS/DOM/Navigator.hs
+++ b/src/GHCJS/DOM/Navigator.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.Navigator
        (ghcjs_dom_navigator_java_enabled, navigatorJavaEnabled,
@@ -36,7 +36,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"javaEnabled\"]() ? 1 : 0)"
         ghcjs_dom_navigator_java_enabled :: JSRef Navigator -> IO Bool
 #else 
@@ -49,7 +49,7 @@
   = ghcjs_dom_navigator_java_enabled (unNavigator (toNavigator self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"getStorageUpdates\"]()"
         ghcjs_dom_navigator_get_storage_updates :: JSRef Navigator -> IO ()
 #else 
@@ -63,7 +63,7 @@
       (unNavigator (toNavigator self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"appCodeName\"]"
         ghcjs_dom_navigator_get_app_code_name ::
         JSRef Navigator -> IO JSString
@@ -81,7 +81,7 @@
          (unNavigator (toNavigator self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"appName\"]"
         ghcjs_dom_navigator_get_app_name :: JSRef Navigator -> IO JSString
 #else 
@@ -96,7 +96,7 @@
       (ghcjs_dom_navigator_get_app_name (unNavigator (toNavigator self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"appVersion\"]"
         ghcjs_dom_navigator_get_app_version ::
         JSRef Navigator -> IO JSString
@@ -114,7 +114,7 @@
          (unNavigator (toNavigator self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"language\"]"
         ghcjs_dom_navigator_get_language :: JSRef Navigator -> IO JSString
 #else 
@@ -129,7 +129,7 @@
       (ghcjs_dom_navigator_get_language (unNavigator (toNavigator self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"userAgent\"]"
         ghcjs_dom_navigator_get_user_agent ::
         JSRef Navigator -> IO JSString
@@ -147,7 +147,7 @@
          (unNavigator (toNavigator self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"platform\"]"
         ghcjs_dom_navigator_get_platform :: JSRef Navigator -> IO JSString
 #else 
@@ -162,7 +162,7 @@
       (ghcjs_dom_navigator_get_platform (unNavigator (toNavigator self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"plugins\"]"
         ghcjs_dom_navigator_get_plugins ::
         JSRef Navigator -> IO (JSRef DOMPluginArray)
@@ -179,7 +179,7 @@
       (ghcjs_dom_navigator_get_plugins (unNavigator (toNavigator self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"mimeTypes\"]"
         ghcjs_dom_navigator_get_mime_types ::
         JSRef Navigator -> IO (JSRef DOMMimeTypeArray)
@@ -197,7 +197,7 @@
          (unNavigator (toNavigator self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"product\"]"
         ghcjs_dom_navigator_get_product :: JSRef Navigator -> IO JSString
 #else 
@@ -212,7 +212,7 @@
       (ghcjs_dom_navigator_get_product (unNavigator (toNavigator self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"productSub\"]"
         ghcjs_dom_navigator_get_product_sub ::
         JSRef Navigator -> IO JSString
@@ -230,7 +230,7 @@
          (unNavigator (toNavigator self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"vendor\"]"
         ghcjs_dom_navigator_get_vendor :: JSRef Navigator -> IO JSString
 #else 
@@ -245,7 +245,7 @@
       (ghcjs_dom_navigator_get_vendor (unNavigator (toNavigator self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"vendorSub\"]"
         ghcjs_dom_navigator_get_vendor_sub ::
         JSRef Navigator -> IO JSString
@@ -263,7 +263,7 @@
          (unNavigator (toNavigator self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"cookieEnabled\"] ? 1 : 0)"
         ghcjs_dom_navigator_get_cookie_enabled ::
         JSRef Navigator -> IO Bool
@@ -279,7 +279,7 @@
       (unNavigator (toNavigator self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"onLine\"] ? 1 : 0)"
         ghcjs_dom_navigator_get_on_line :: JSRef Navigator -> IO Bool
 #else 
diff --git a/src/GHCJS/DOM/Node.hs b/src/GHCJS/DOM/Node.hs
--- a/src/GHCJS/DOM/Node.hs
+++ b/src/GHCJS/DOM/Node.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.Node
        (ghcjs_dom_node_insert_before, nodeInsertBefore,
@@ -61,7 +61,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"insertBefore\"]($2, $3)"
         ghcjs_dom_node_insert_before ::
         JSRef Node -> JSRef Node -> JSRef Node -> IO (JSRef Node)
@@ -81,7 +81,7 @@
          (maybe jsNull (unNode . toNode) refChild))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"replaceChild\"]($2, $3)"
         ghcjs_dom_node_replace_child ::
         JSRef Node -> JSRef Node -> JSRef Node -> IO (JSRef Node)
@@ -101,7 +101,7 @@
          (maybe jsNull (unNode . toNode) oldChild))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"removeChild\"]($2)"
         ghcjs_dom_node_remove_child ::
         JSRef Node -> JSRef Node -> IO (JSRef Node)
@@ -120,7 +120,7 @@
          (maybe jsNull (unNode . toNode) oldChild))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"appendChild\"]($2)"
         ghcjs_dom_node_append_child ::
         JSRef Node -> JSRef Node -> IO (JSRef Node)
@@ -139,7 +139,7 @@
          (maybe jsNull (unNode . toNode) newChild))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "($1[\"hasChildNodes\"]() ? 1 : 0)" ghcjs_dom_node_has_child_nodes
         :: JSRef Node -> IO Bool
@@ -153,7 +153,7 @@
   = ghcjs_dom_node_has_child_nodes (unNode (toNode self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"cloneNode\"]($2)"
         ghcjs_dom_node_clone_node :: JSRef Node -> Bool -> IO (JSRef Node)
 #else 
@@ -167,7 +167,7 @@
       (ghcjs_dom_node_clone_node (unNode (toNode self)) deep)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"normalize\"]()"
         ghcjs_dom_node_normalize :: JSRef Node -> IO ()
 #else 
@@ -180,7 +180,7 @@
   = ghcjs_dom_node_normalize (unNode (toNode self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "($1[\"isSupported\"]($2,\n$3) ? 1 : 0)"
         ghcjs_dom_node_is_supported ::
@@ -200,7 +200,7 @@
       (toJSString version)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"isSameNode\"]($2) ? 1 : 0)"
         ghcjs_dom_node_is_same_node :: JSRef Node -> JSRef Node -> IO Bool
 #else 
@@ -215,7 +215,7 @@
       (maybe jsNull (unNode . toNode) other)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "($1[\"isEqualNode\"]($2) ? 1 : 0)" ghcjs_dom_node_is_equal_node ::
         JSRef Node -> JSRef Node -> IO Bool
@@ -231,7 +231,7 @@
       (maybe jsNull (unNode . toNode) other)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"lookupPrefix\"]($2)"
         ghcjs_dom_node_lookup_prefix ::
         JSRef Node -> JSString -> IO JSString
@@ -250,7 +250,7 @@
          (toJSString namespaceURI))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "($1[\"isDefaultNamespace\"]($2) ? 1 : 0)"
         ghcjs_dom_node_is_default_namespace ::
@@ -269,7 +269,7 @@
       (toJSString namespaceURI)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"lookupNamespaceURI\"]($2)"
         ghcjs_dom_node_lookup_namespace_uri ::
         JSRef Node -> JSString -> IO JSString
@@ -288,7 +288,7 @@
          (toJSString prefix))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "$1[\"compareDocumentPosition\"]($2)"
         ghcjs_dom_node_compare_document_position ::
@@ -306,7 +306,7 @@
       (maybe jsNull (unNode . toNode) other)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"contains\"]($2) ? 1 : 0)"
         ghcjs_dom_node_contains :: JSRef Node -> JSRef Node -> IO Bool
 #else 
@@ -321,7 +321,7 @@
       (maybe jsNull (unNode . toNode) other)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "($1[\"dispatchEvent\"]($2) ? 1 : 0)" ghcjs_dom_node_dispatch_event
         :: JSRef Node -> JSRef Event -> IO Bool
@@ -356,7 +356,7 @@
 cDOCUMENT_POSITION_IMPLEMENTATION_SPECIFIC = 32
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"nodeName\"]"
         ghcjs_dom_node_get_node_name :: JSRef Node -> IO JSString
 #else 
@@ -371,7 +371,7 @@
       (ghcjs_dom_node_get_node_name (unNode (toNode self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"nodeValue\"] = $2;"
         ghcjs_dom_node_set_node_value :: JSRef Node -> JSString -> IO ()
 #else 
@@ -386,7 +386,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"nodeValue\"]"
         ghcjs_dom_node_get_node_value :: JSRef Node -> IO JSString
 #else 
@@ -401,7 +401,7 @@
       (ghcjs_dom_node_get_node_value (unNode (toNode self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"nodeType\"]"
         ghcjs_dom_node_get_node_type :: JSRef Node -> IO Word
 #else 
@@ -414,7 +414,7 @@
   = ghcjs_dom_node_get_node_type (unNode (toNode self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"parentNode\"]"
         ghcjs_dom_node_get_parent_node :: JSRef Node -> IO (JSRef Node)
 #else 
@@ -428,7 +428,7 @@
       (ghcjs_dom_node_get_parent_node (unNode (toNode self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"childNodes\"]"
         ghcjs_dom_node_get_child_nodes :: JSRef Node -> IO (JSRef NodeList)
 #else 
@@ -442,7 +442,7 @@
       (ghcjs_dom_node_get_child_nodes (unNode (toNode self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"firstChild\"]"
         ghcjs_dom_node_get_first_child :: JSRef Node -> IO (JSRef Node)
 #else 
@@ -456,7 +456,7 @@
       (ghcjs_dom_node_get_first_child (unNode (toNode self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"lastChild\"]"
         ghcjs_dom_node_get_last_child :: JSRef Node -> IO (JSRef Node)
 #else 
@@ -470,7 +470,7 @@
       (ghcjs_dom_node_get_last_child (unNode (toNode self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"previousSibling\"]"
         ghcjs_dom_node_get_previous_sibling ::
         JSRef Node -> IO (JSRef Node)
@@ -486,7 +486,7 @@
       (ghcjs_dom_node_get_previous_sibling (unNode (toNode self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"nextSibling\"]"
         ghcjs_dom_node_get_next_sibling :: JSRef Node -> IO (JSRef Node)
 #else 
@@ -500,7 +500,7 @@
       (ghcjs_dom_node_get_next_sibling (unNode (toNode self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"ownerDocument\"]"
         ghcjs_dom_node_get_owner_document ::
         JSRef Node -> IO (JSRef Document)
@@ -517,7 +517,7 @@
       (ghcjs_dom_node_get_owner_document (unNode (toNode self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"namespaceURI\"]"
         ghcjs_dom_node_get_namespace_uri :: JSRef Node -> IO JSString
 #else 
@@ -532,7 +532,7 @@
       (ghcjs_dom_node_get_namespace_uri (unNode (toNode self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"prefix\"] = $2;"
         ghcjs_dom_node_set_prefix :: JSRef Node -> JSString -> IO ()
 #else 
@@ -546,7 +546,7 @@
   = ghcjs_dom_node_set_prefix (unNode (toNode self)) (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"prefix\"]"
         ghcjs_dom_node_get_prefix :: JSRef Node -> IO JSString
 #else 
@@ -561,7 +561,7 @@
       (ghcjs_dom_node_get_prefix (unNode (toNode self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"localName\"]"
         ghcjs_dom_node_get_local_name :: JSRef Node -> IO JSString
 #else 
@@ -576,7 +576,7 @@
       (ghcjs_dom_node_get_local_name (unNode (toNode self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"baseURI\"]"
         ghcjs_dom_node_get_base_uri :: JSRef Node -> IO JSString
 #else 
@@ -591,7 +591,7 @@
       (ghcjs_dom_node_get_base_uri (unNode (toNode self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"textContent\"] = $2;"
         ghcjs_dom_node_set_text_content :: JSRef Node -> JSString -> IO ()
 #else 
@@ -606,7 +606,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"textContent\"]"
         ghcjs_dom_node_get_text_content :: JSRef Node -> IO JSString
 #else 
@@ -621,7 +621,7 @@
       (ghcjs_dom_node_get_text_content (unNode (toNode self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"parentElement\"]"
         ghcjs_dom_node_get_parent_element ::
         JSRef Node -> IO (JSRef Element)
diff --git a/src/GHCJS/DOM/NodeFilter.hs b/src/GHCJS/DOM/NodeFilter.hs
--- a/src/GHCJS/DOM/NodeFilter.hs
+++ b/src/GHCJS/DOM/NodeFilter.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.NodeFilter
        (cFILTER_ACCEPT, cFILTER_REJECT, cFILTER_SKIP, cSHOW_ALL,
diff --git a/src/GHCJS/DOM/NodeIterator.hs b/src/GHCJS/DOM/NodeIterator.hs
--- a/src/GHCJS/DOM/NodeIterator.hs
+++ b/src/GHCJS/DOM/NodeIterator.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.NodeIterator
        (ghcjs_dom_node_iterator_detach, nodeIteratorDetach,
@@ -31,7 +31,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"detach\"]()"
         ghcjs_dom_node_iterator_detach :: JSRef NodeIterator -> IO ()
 #else 
@@ -45,7 +45,7 @@
       (unNodeIterator (toNodeIterator self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"root\"]"
         ghcjs_dom_node_iterator_get_root ::
         JSRef NodeIterator -> IO (JSRef Node)
@@ -63,7 +63,7 @@
          (unNodeIterator (toNodeIterator self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"whatToShow\"]"
         ghcjs_dom_node_iterator_get_what_to_show ::
         JSRef NodeIterator -> IO Word
@@ -80,7 +80,7 @@
       (unNodeIterator (toNodeIterator self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"filter\"]"
         ghcjs_dom_node_iterator_get_filter ::
         JSRef NodeIterator -> IO (JSRef NodeFilter)
@@ -98,7 +98,7 @@
          (unNodeIterator (toNodeIterator self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "($1[\"expandEntityReferences\"] ? 1 : 0)"
         ghcjs_dom_node_iterator_get_expand_entity_references ::
@@ -116,7 +116,7 @@
       (unNodeIterator (toNodeIterator self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"referenceNode\"]"
         ghcjs_dom_node_iterator_get_reference_node ::
         JSRef NodeIterator -> IO (JSRef Node)
@@ -134,7 +134,7 @@
          (unNodeIterator (toNodeIterator self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "($1[\"pointerBeforeReferenceNode\"] ? 1 : 0)"
         ghcjs_dom_node_iterator_get_pointer_before_reference_node ::
diff --git a/src/GHCJS/DOM/NodeList.hs b/src/GHCJS/DOM/NodeList.hs
--- a/src/GHCJS/DOM/NodeList.hs
+++ b/src/GHCJS/DOM/NodeList.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.NodeList
        (ghcjs_dom_node_list_item, nodeListItem,
@@ -21,7 +21,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"item\"]($2)"
         ghcjs_dom_node_list_item ::
         JSRef NodeList -> Word -> IO (JSRef Node)
@@ -38,7 +38,7 @@
       (ghcjs_dom_node_list_item (unNodeList (toNodeList self)) index)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"length\"]"
         ghcjs_dom_node_list_get_length :: JSRef NodeList -> IO Word
 #else 
diff --git a/src/GHCJS/DOM/ProcessingInstruction.hs b/src/GHCJS/DOM/ProcessingInstruction.hs
--- a/src/GHCJS/DOM/ProcessingInstruction.hs
+++ b/src/GHCJS/DOM/ProcessingInstruction.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.ProcessingInstruction
        (ghcjs_dom_processing_instruction_get_target,
@@ -28,7 +28,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"target\"]"
         ghcjs_dom_processing_instruction_get_target ::
         JSRef ProcessingInstruction -> IO JSString
@@ -47,7 +47,7 @@
          (unProcessingInstruction (toProcessingInstruction self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"data\"] = $2;"
         ghcjs_dom_processing_instruction_set_data ::
         JSRef ProcessingInstruction -> JSString -> IO ()
@@ -66,7 +66,7 @@
       (toJSString val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"data\"]"
         ghcjs_dom_processing_instruction_get_data ::
         JSRef ProcessingInstruction -> IO JSString
@@ -85,7 +85,7 @@
          (unProcessingInstruction (toProcessingInstruction self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"sheet\"]"
         ghcjs_dom_processing_instruction_get_sheet ::
         JSRef ProcessingInstruction -> IO (JSRef StyleSheet)
diff --git a/src/GHCJS/DOM/Range.hs b/src/GHCJS/DOM/Range.hs
--- a/src/GHCJS/DOM/Range.hs
+++ b/src/GHCJS/DOM/Range.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.Range
        (ghcjs_dom_range_set_start, rangeSetStart, ghcjs_dom_range_set_end,
@@ -33,7 +33,7 @@
         ghcjs_dom_range_get_collapsed, rangeGetCollapsed,
         ghcjs_dom_range_get_common_ancestor_container,
         rangeGetCommonAncestorContainer, ghcjs_dom_range_get_text,
-        rangeGetText, Range, IsRange, castToRange, gTypeRange, toRange)
+        rangeGetText, DOMRange, IsDOMRange, castToDOMRange, gTypeDOMRange, toDOMRange)
        where
 import GHCJS.Types
 import GHCJS.Foreign
@@ -50,16 +50,16 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"setStart\"]($2, $3)"
         ghcjs_dom_range_set_start ::
         JSRef DOMRange -> JSRef Node -> Int -> IO ()
-#else 
+#else
 ghcjs_dom_range_set_start ::
                             JSRef DOMRange -> JSRef Node -> Int -> IO ()
 ghcjs_dom_range_set_start = undefined
 #endif
- 
+
 rangeSetStart ::
               (IsDOMRange self, IsNode refNode) =>
                 self -> Maybe refNode -> Int -> IO ()
@@ -69,16 +69,16 @@
       offset
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"setEnd\"]($2, $3)"
         ghcjs_dom_range_set_end ::
         JSRef DOMRange -> JSRef Node -> Int -> IO ()
-#else 
+#else
 ghcjs_dom_range_set_end ::
                           JSRef DOMRange -> JSRef Node -> Int -> IO ()
 ghcjs_dom_range_set_end = undefined
 #endif
- 
+
 rangeSetEnd ::
             (IsDOMRange self, IsNode refNode) =>
               self -> Maybe refNode -> Int -> IO ()
@@ -88,16 +88,16 @@
       offset
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"setStartBefore\"]($2)"
         ghcjs_dom_range_set_start_before ::
         JSRef DOMRange -> JSRef Node -> IO ()
-#else 
+#else
 ghcjs_dom_range_set_start_before ::
                                    JSRef DOMRange -> JSRef Node -> IO ()
 ghcjs_dom_range_set_start_before = undefined
 #endif
- 
+
 rangeSetStartBefore ::
                     (IsDOMRange self, IsNode refNode) => self -> Maybe refNode -> IO ()
 rangeSetStartBefore self refNode
@@ -105,16 +105,16 @@
       (maybe jsNull (unNode . toNode) refNode)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"setStartAfter\"]($2)"
         ghcjs_dom_range_set_start_after ::
         JSRef DOMRange -> JSRef Node -> IO ()
-#else 
+#else
 ghcjs_dom_range_set_start_after ::
                                   JSRef DOMRange -> JSRef Node -> IO ()
 ghcjs_dom_range_set_start_after = undefined
 #endif
- 
+
 rangeSetStartAfter ::
                    (IsDOMRange self, IsNode refNode) => self -> Maybe refNode -> IO ()
 rangeSetStartAfter self refNode
@@ -122,16 +122,16 @@
       (maybe jsNull (unNode . toNode) refNode)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"setEndBefore\"]($2)"
         ghcjs_dom_range_set_end_before ::
         JSRef DOMRange -> JSRef Node -> IO ()
-#else 
+#else
 ghcjs_dom_range_set_end_before ::
                                  JSRef DOMRange -> JSRef Node -> IO ()
 ghcjs_dom_range_set_end_before = undefined
 #endif
- 
+
 rangeSetEndBefore ::
                   (IsDOMRange self, IsNode refNode) => self -> Maybe refNode -> IO ()
 rangeSetEndBefore self refNode
@@ -139,16 +139,16 @@
       (maybe jsNull (unNode . toNode) refNode)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"setEndAfter\"]($2)"
         ghcjs_dom_range_set_end_after ::
         JSRef DOMRange -> JSRef Node -> IO ()
-#else 
+#else
 ghcjs_dom_range_set_end_after ::
                                 JSRef DOMRange -> JSRef Node -> IO ()
 ghcjs_dom_range_set_end_after = undefined
 #endif
- 
+
 rangeSetEndAfter ::
                  (IsDOMRange self, IsNode refNode) => self -> Maybe refNode -> IO ()
 rangeSetEndAfter self refNode
@@ -156,29 +156,29 @@
       (maybe jsNull (unNode . toNode) refNode)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"collapse\"]($2)"
         ghcjs_dom_range_collapse :: JSRef DOMRange -> Bool -> IO ()
-#else 
+#else
 ghcjs_dom_range_collapse :: JSRef DOMRange -> Bool -> IO ()
 ghcjs_dom_range_collapse = undefined
 #endif
- 
+
 rangeCollapse :: (IsDOMRange self) => self -> Bool -> IO ()
 rangeCollapse self toStart
   = ghcjs_dom_range_collapse (unDOMRange (toDOMRange self)) toStart
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"selectNode\"]($2)"
         ghcjs_dom_range_select_node ::
         JSRef DOMRange -> JSRef Node -> IO ()
-#else 
+#else
 ghcjs_dom_range_select_node ::
                               JSRef DOMRange -> JSRef Node -> IO ()
 ghcjs_dom_range_select_node = undefined
 #endif
- 
+
 rangeSelectNode ::
                 (IsDOMRange self, IsNode refNode) => self -> Maybe refNode -> IO ()
 rangeSelectNode self refNode
@@ -186,16 +186,16 @@
       (maybe jsNull (unNode . toNode) refNode)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"selectNodeContents\"]($2)"
         ghcjs_dom_range_select_node_contents ::
         JSRef DOMRange -> JSRef Node -> IO ()
-#else 
+#else
 ghcjs_dom_range_select_node_contents ::
                                        JSRef DOMRange -> JSRef Node -> IO ()
 ghcjs_dom_range_select_node_contents = undefined
 #endif
- 
+
 rangeSelectNodeContents ::
                         (IsDOMRange self, IsNode refNode) => self -> Maybe refNode -> IO ()
 rangeSelectNodeContents self refNode
@@ -204,17 +204,17 @@
       (maybe jsNull (unNode . toNode) refNode)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe
         "$1[\"compareBoundaryPoints\"]($2,\n$3)"
         ghcjs_dom_range_compare_boundary_points ::
         JSRef DOMRange -> Word -> JSRef DOMRange -> IO Int
-#else 
+#else
 ghcjs_dom_range_compare_boundary_points ::
                                           JSRef DOMRange -> Word -> JSRef DOMRange -> IO Int
 ghcjs_dom_range_compare_boundary_points = undefined
 #endif
- 
+
 rangeCompareBoundaryPoints ::
                            (IsDOMRange self, IsDOMRange sourceRange) =>
                              self -> Word -> Maybe sourceRange -> IO Int
@@ -225,29 +225,29 @@
       (maybe jsNull (unDOMRange . toDOMRange) sourceRange)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"deleteContents\"]()"
         ghcjs_dom_range_delete_contents :: JSRef DOMRange -> IO ()
-#else 
+#else
 ghcjs_dom_range_delete_contents :: JSRef DOMRange -> IO ()
 ghcjs_dom_range_delete_contents = undefined
 #endif
- 
+
 rangeDeleteContents :: (IsDOMRange self) => self -> IO ()
 rangeDeleteContents self
   = ghcjs_dom_range_delete_contents (unDOMRange (toDOMRange self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"extractContents\"]()"
         ghcjs_dom_range_extract_contents ::
         JSRef DOMRange -> IO (JSRef DocumentFragment)
-#else 
+#else
 ghcjs_dom_range_extract_contents ::
                                    JSRef DOMRange -> IO (JSRef DocumentFragment)
 ghcjs_dom_range_extract_contents = undefined
 #endif
- 
+
 rangeExtractContents ::
                      (IsDOMRange self) => self -> IO (Maybe DocumentFragment)
 rangeExtractContents self
@@ -255,16 +255,16 @@
       (ghcjs_dom_range_extract_contents (unDOMRange (toDOMRange self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"cloneContents\"]()"
         ghcjs_dom_range_clone_contents ::
         JSRef DOMRange -> IO (JSRef DocumentFragment)
-#else 
+#else
 ghcjs_dom_range_clone_contents ::
                                  JSRef DOMRange -> IO (JSRef DocumentFragment)
 ghcjs_dom_range_clone_contents = undefined
 #endif
- 
+
 rangeCloneContents ::
                    (IsDOMRange self) => self -> IO (Maybe DocumentFragment)
 rangeCloneContents self
@@ -272,16 +272,16 @@
       (ghcjs_dom_range_clone_contents (unDOMRange (toDOMRange self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"insertNode\"]($2)"
         ghcjs_dom_range_insert_node ::
         JSRef DOMRange -> JSRef Node -> IO ()
-#else 
+#else
 ghcjs_dom_range_insert_node ::
                               JSRef DOMRange -> JSRef Node -> IO ()
 ghcjs_dom_range_insert_node = undefined
 #endif
- 
+
 rangeInsertNode ::
                 (IsDOMRange self, IsNode newNode) => self -> Maybe newNode -> IO ()
 rangeInsertNode self newNode
@@ -289,16 +289,16 @@
       (maybe jsNull (unNode . toNode) newNode)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"surroundContents\"]($2)"
         ghcjs_dom_range_surround_contents ::
         JSRef DOMRange -> JSRef Node -> IO ()
-#else 
+#else
 ghcjs_dom_range_surround_contents ::
                                     JSRef DOMRange -> JSRef Node -> IO ()
 ghcjs_dom_range_surround_contents = undefined
 #endif
- 
+
 rangeSurroundContents ::
                       (IsDOMRange self, IsNode newParent) =>
                         self -> Maybe newParent -> IO ()
@@ -307,30 +307,30 @@
       (maybe jsNull (unNode . toNode) newParent)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"cloneRange\"]()"
         ghcjs_dom_range_clone_range ::
         JSRef DOMRange -> IO (JSRef DOMRange)
-#else 
+#else
 ghcjs_dom_range_clone_range ::
                               JSRef DOMRange -> IO (JSRef DOMRange)
 ghcjs_dom_range_clone_range = undefined
 #endif
- 
+
 rangeCloneRange :: (IsDOMRange self) => self -> IO (Maybe DOMRange)
 rangeCloneRange self
   = fmap DOMRange . maybeJSNull <$>
       (ghcjs_dom_range_clone_range (unDOMRange (toDOMRange self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"toString\"]()"
         ghcjs_dom_range_to_string :: JSRef DOMRange -> IO JSString
-#else 
+#else
 ghcjs_dom_range_to_string :: JSRef DOMRange -> IO JSString
 ghcjs_dom_range_to_string = undefined
 #endif
- 
+
 rangeToString ::
               (IsDOMRange self, FromJSString result) => self -> IO result
 rangeToString self
@@ -338,31 +338,31 @@
       (ghcjs_dom_range_to_string (unDOMRange (toDOMRange self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"detach\"]()"
         ghcjs_dom_range_detach :: JSRef DOMRange -> IO ()
-#else 
+#else
 ghcjs_dom_range_detach :: JSRef DOMRange -> IO ()
 ghcjs_dom_range_detach = undefined
 #endif
- 
+
 rangeDetach :: (IsDOMRange self) => self -> IO ()
 rangeDetach self
   = ghcjs_dom_range_detach (unDOMRange (toDOMRange self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe
         "$1[\"createContextualFragment\"]($2)"
         ghcjs_dom_range_create_contextual_fragment ::
         JSRef DOMRange -> JSString -> IO (JSRef DocumentFragment)
-#else 
+#else
 ghcjs_dom_range_create_contextual_fragment ::
                                              JSRef DOMRange ->
                                                JSString -> IO (JSRef DocumentFragment)
 ghcjs_dom_range_create_contextual_fragment = undefined
 #endif
- 
+
 rangeCreateContextualFragment ::
                               (IsDOMRange self, ToJSString html) =>
                                 self -> html -> IO (Maybe DocumentFragment)
@@ -373,17 +373,17 @@
          (toJSString html))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe
         "($1[\"intersectsNode\"]($2) ? 1 : 0)"
         ghcjs_dom_range_intersects_node ::
         JSRef DOMRange -> JSRef Node -> IO Bool
-#else 
+#else
 ghcjs_dom_range_intersects_node ::
                                   JSRef DOMRange -> JSRef Node -> IO Bool
 ghcjs_dom_range_intersects_node = undefined
 #endif
- 
+
 rangeIntersectsNode ::
                     (IsDOMRange self, IsNode refNode) =>
                       self -> Maybe refNode -> IO Bool
@@ -392,16 +392,16 @@
       (maybe jsNull (unNode . toNode) refNode)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"compareNode\"]($2)"
         ghcjs_dom_range_compare_node ::
         JSRef DOMRange -> JSRef Node -> IO Int
-#else 
+#else
 ghcjs_dom_range_compare_node ::
                                JSRef DOMRange -> JSRef Node -> IO Int
 ghcjs_dom_range_compare_node = undefined
 #endif
- 
+
 rangeCompareNode ::
                  (IsDOMRange self, IsNode refNode) =>
                    self -> Maybe refNode -> IO Int
@@ -410,16 +410,16 @@
       (maybe jsNull (unNode . toNode) refNode)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"comparePoint\"]($2, $3)"
         ghcjs_dom_range_compare_point ::
         JSRef DOMRange -> JSRef Node -> Int -> IO Int
-#else 
+#else
 ghcjs_dom_range_compare_point ::
                                 JSRef DOMRange -> JSRef Node -> Int -> IO Int
 ghcjs_dom_range_compare_point = undefined
 #endif
- 
+
 rangeComparePoint ::
                   (IsDOMRange self, IsNode refNode) =>
                     self -> Maybe refNode -> Int -> IO Int
@@ -429,17 +429,17 @@
       offset
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe
         "($1[\"isPointInRange\"]($2,\n$3) ? 1 : 0)"
         ghcjs_dom_range_is_point_in_range ::
         JSRef DOMRange -> JSRef Node -> Int -> IO Bool
-#else 
+#else
 ghcjs_dom_range_is_point_in_range ::
                                     JSRef DOMRange -> JSRef Node -> Int -> IO Bool
 ghcjs_dom_range_is_point_in_range = undefined
 #endif
- 
+
 rangeIsPointInRange ::
                     (IsDOMRange self, IsNode refNode) =>
                       self -> Maybe refNode -> Int -> IO Bool
@@ -449,14 +449,14 @@
       offset
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"expand\"]($2)"
         ghcjs_dom_range_expand :: JSRef DOMRange -> JSString -> IO ()
-#else 
+#else
 ghcjs_dom_range_expand :: JSRef DOMRange -> JSString -> IO ()
 ghcjs_dom_range_expand = undefined
 #endif
- 
+
 rangeExpand ::
             (IsDOMRange self, ToJSString unit) => self -> unit -> IO ()
 rangeExpand self unit
@@ -472,16 +472,16 @@
 cNODE_INSIDE = 3
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"startContainer\"]"
         ghcjs_dom_range_get_start_container ::
         JSRef DOMRange -> IO (JSRef Node)
-#else 
+#else
 ghcjs_dom_range_get_start_container ::
                                       JSRef DOMRange -> IO (JSRef Node)
 ghcjs_dom_range_get_start_container = undefined
 #endif
- 
+
 rangeGetStartContainer ::
                        (IsDOMRange self) => self -> IO (Maybe Node)
 rangeGetStartContainer self
@@ -490,29 +490,29 @@
          (unDOMRange (toDOMRange self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"startOffset\"]"
         ghcjs_dom_range_get_start_offset :: JSRef DOMRange -> IO Int
-#else 
+#else
 ghcjs_dom_range_get_start_offset :: JSRef DOMRange -> IO Int
 ghcjs_dom_range_get_start_offset = undefined
 #endif
- 
+
 rangeGetStartOffset :: (IsDOMRange self) => self -> IO Int
 rangeGetStartOffset self
   = ghcjs_dom_range_get_start_offset (unDOMRange (toDOMRange self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"endContainer\"]"
         ghcjs_dom_range_get_end_container ::
         JSRef DOMRange -> IO (JSRef Node)
-#else 
+#else
 ghcjs_dom_range_get_end_container ::
                                     JSRef DOMRange -> IO (JSRef Node)
 ghcjs_dom_range_get_end_container = undefined
 #endif
- 
+
 rangeGetEndContainer ::
                      (IsDOMRange self) => self -> IO (Maybe Node)
 rangeGetEndContainer self
@@ -520,42 +520,42 @@
       (ghcjs_dom_range_get_end_container (unDOMRange (toDOMRange self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"endOffset\"]"
         ghcjs_dom_range_get_end_offset :: JSRef DOMRange -> IO Int
-#else 
+#else
 ghcjs_dom_range_get_end_offset :: JSRef DOMRange -> IO Int
 ghcjs_dom_range_get_end_offset = undefined
 #endif
- 
+
 rangeGetEndOffset :: (IsDOMRange self) => self -> IO Int
 rangeGetEndOffset self
   = ghcjs_dom_range_get_end_offset (unDOMRange (toDOMRange self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "($1[\"collapsed\"] ? 1 : 0)"
         ghcjs_dom_range_get_collapsed :: JSRef DOMRange -> IO Bool
-#else 
+#else
 ghcjs_dom_range_get_collapsed :: JSRef DOMRange -> IO Bool
 ghcjs_dom_range_get_collapsed = undefined
 #endif
- 
+
 rangeGetCollapsed :: (IsDOMRange self) => self -> IO Bool
 rangeGetCollapsed self
   = ghcjs_dom_range_get_collapsed (unDOMRange (toDOMRange self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"commonAncestorContainer\"]"
         ghcjs_dom_range_get_common_ancestor_container ::
         JSRef DOMRange -> IO (JSRef Node)
-#else 
+#else
 ghcjs_dom_range_get_common_ancestor_container ::
                                                 JSRef DOMRange -> IO (JSRef Node)
 ghcjs_dom_range_get_common_ancestor_container = undefined
 #endif
- 
+
 rangeGetCommonAncestorContainer ::
                                 (IsDOMRange self) => self -> IO (Maybe Node)
 rangeGetCommonAncestorContainer self
@@ -564,14 +564,14 @@
          (unDOMRange (toDOMRange self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"text\"]"
         ghcjs_dom_range_get_text :: JSRef DOMRange -> IO JSString
-#else 
+#else
 ghcjs_dom_range_get_text :: JSRef DOMRange -> IO JSString
 ghcjs_dom_range_get_text = undefined
 #endif
- 
+
 rangeGetText ::
              (IsDOMRange self, FromJSString result) => self -> IO result
 rangeGetText self
diff --git a/src/GHCJS/DOM/Ranges.hs b/src/GHCJS/DOM/Ranges.hs
--- a/src/GHCJS/DOM/Ranges.hs
+++ b/src/GHCJS/DOM/Ranges.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.Ranges (DOMRange, IsDOMRange) where
  
diff --git a/src/GHCJS/DOM/Screen.hs b/src/GHCJS/DOM/Screen.hs
--- a/src/GHCJS/DOM/Screen.hs
+++ b/src/GHCJS/DOM/Screen.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.Screen
        (ghcjs_dom_screen_get_height, screenGetHeight,
@@ -9,8 +9,8 @@
         ghcjs_dom_screen_get_avail_left, screenGetAvailLeft,
         ghcjs_dom_screen_get_avail_top, screenGetAvailTop,
         ghcjs_dom_screen_get_avail_height, screenGetAvailHeight,
-        ghcjs_dom_screen_get_avail_width, screenGetAvailWidth, Screen,
-        IsScreen, castToScreen, gTypeScreen, toScreen)
+        ghcjs_dom_screen_get_avail_width, screenGetAvailWidth, DOMScreen,
+        IsDOMScreen, castToDOMScreen, gTypeDOMScreen, toDOMScreen)
        where
 import GHCJS.Types
 import GHCJS.Foreign
@@ -27,106 +27,106 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"height\"]"
         ghcjs_dom_screen_get_height :: JSRef DOMScreen -> IO Word
-#else 
+#else
 ghcjs_dom_screen_get_height :: JSRef DOMScreen -> IO Word
 ghcjs_dom_screen_get_height = undefined
 #endif
- 
+
 screenGetHeight :: (IsDOMScreen self) => self -> IO Word
 screenGetHeight self
   = ghcjs_dom_screen_get_height (unDOMScreen (toDOMScreen self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"width\"]"
         ghcjs_dom_screen_get_width :: JSRef DOMScreen -> IO Word
-#else 
+#else
 ghcjs_dom_screen_get_width :: JSRef DOMScreen -> IO Word
 ghcjs_dom_screen_get_width = undefined
 #endif
- 
+
 screenGetWidth :: (IsDOMScreen self) => self -> IO Word
 screenGetWidth self
   = ghcjs_dom_screen_get_width (unDOMScreen (toDOMScreen self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"colorDepth\"]"
         ghcjs_dom_screen_get_color_depth :: JSRef DOMScreen -> IO Word
-#else 
+#else
 ghcjs_dom_screen_get_color_depth :: JSRef DOMScreen -> IO Word
 ghcjs_dom_screen_get_color_depth = undefined
 #endif
- 
+
 screenGetColorDepth :: (IsDOMScreen self) => self -> IO Word
 screenGetColorDepth self
   = ghcjs_dom_screen_get_color_depth (unDOMScreen (toDOMScreen self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"pixelDepth\"]"
         ghcjs_dom_screen_get_pixel_depth :: JSRef DOMScreen -> IO Word
-#else 
+#else
 ghcjs_dom_screen_get_pixel_depth :: JSRef DOMScreen -> IO Word
 ghcjs_dom_screen_get_pixel_depth = undefined
 #endif
- 
+
 screenGetPixelDepth :: (IsDOMScreen self) => self -> IO Word
 screenGetPixelDepth self
   = ghcjs_dom_screen_get_pixel_depth (unDOMScreen (toDOMScreen self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"availLeft\"]"
         ghcjs_dom_screen_get_avail_left :: JSRef DOMScreen -> IO Int
-#else 
+#else
 ghcjs_dom_screen_get_avail_left :: JSRef DOMScreen -> IO Int
 ghcjs_dom_screen_get_avail_left = undefined
 #endif
- 
+
 screenGetAvailLeft :: (IsDOMScreen self) => self -> IO Int
 screenGetAvailLeft self
   = ghcjs_dom_screen_get_avail_left (unDOMScreen (toDOMScreen self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"availTop\"]"
         ghcjs_dom_screen_get_avail_top :: JSRef DOMScreen -> IO Int
-#else 
+#else
 ghcjs_dom_screen_get_avail_top :: JSRef DOMScreen -> IO Int
 ghcjs_dom_screen_get_avail_top = undefined
 #endif
- 
+
 screenGetAvailTop :: (IsDOMScreen self) => self -> IO Int
 screenGetAvailTop self
   = ghcjs_dom_screen_get_avail_top (unDOMScreen (toDOMScreen self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"availHeight\"]"
         ghcjs_dom_screen_get_avail_height :: JSRef DOMScreen -> IO Word
-#else 
+#else
 ghcjs_dom_screen_get_avail_height :: JSRef DOMScreen -> IO Word
 ghcjs_dom_screen_get_avail_height = undefined
 #endif
- 
+
 screenGetAvailHeight :: (IsDOMScreen self) => self -> IO Word
 screenGetAvailHeight self
   = ghcjs_dom_screen_get_avail_height
       (unDOMScreen (toDOMScreen self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "$1[\"availWidth\"]"
         ghcjs_dom_screen_get_avail_width :: JSRef DOMScreen -> IO Word
-#else 
+#else
 ghcjs_dom_screen_get_avail_width :: JSRef DOMScreen -> IO Word
 ghcjs_dom_screen_get_avail_width = undefined
 #endif
- 
+
 screenGetAvailWidth :: (IsDOMScreen self) => self -> IO Word
 screenGetAvailWidth self
   = ghcjs_dom_screen_get_avail_width (unDOMScreen (toDOMScreen self))
diff --git a/src/GHCJS/DOM/Storage.hs b/src/GHCJS/DOM/Storage.hs
--- a/src/GHCJS/DOM/Storage.hs
+++ b/src/GHCJS/DOM/Storage.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.Storage
        (ghcjs_dom_storage_key, storageKey, ghcjs_dom_storage_get_item,
@@ -24,7 +24,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"key\"]($2)"
         ghcjs_dom_storage_key :: JSRef Storage -> Word -> IO JSString
 #else 
@@ -39,7 +39,7 @@
       (ghcjs_dom_storage_key (unStorage (toStorage self)) index)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"getItem\"]($2)"
         ghcjs_dom_storage_get_item ::
         JSRef Storage -> JSString -> IO JSString
@@ -58,7 +58,7 @@
          (toJSString key))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"setItem\"]($2, $3)"
         ghcjs_dom_storage_set_item ::
         JSRef Storage -> JSString -> JSString -> IO ()
@@ -77,7 +77,7 @@
       (toJSString data')
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"removeItem\"]($2)"
         ghcjs_dom_storage_remove_item :: JSRef Storage -> JSString -> IO ()
 #else 
@@ -92,7 +92,7 @@
       (toJSString key)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"clear\"]()"
         ghcjs_dom_storage_clear :: JSRef Storage -> IO ()
 #else 
@@ -105,7 +105,7 @@
   = ghcjs_dom_storage_clear (unStorage (toStorage self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"length\"]"
         ghcjs_dom_storage_get_length :: JSRef Storage -> IO Word
 #else 
diff --git a/src/GHCJS/DOM/StorageInfo.hs b/src/GHCJS/DOM/StorageInfo.hs
--- a/src/GHCJS/DOM/StorageInfo.hs
+++ b/src/GHCJS/DOM/StorageInfo.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.StorageInfo
        (cTEMPORARY, cPERSISTENT, StorageInfo, IsStorageInfo,
diff --git a/src/GHCJS/DOM/StyleMedia.hs b/src/GHCJS/DOM/StyleMedia.hs
--- a/src/GHCJS/DOM/StyleMedia.hs
+++ b/src/GHCJS/DOM/StyleMedia.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.StyleMedia
        (ghcjs_dom_style_media_match_medium, styleMediaMatchMedium,
@@ -21,7 +21,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "($1[\"matchMedium\"]($2) ? 1 : 0)"
         ghcjs_dom_style_media_match_medium ::
diff --git a/src/GHCJS/DOM/StyleSheet.hs b/src/GHCJS/DOM/StyleSheet.hs
--- a/src/GHCJS/DOM/StyleSheet.hs
+++ b/src/GHCJS/DOM/StyleSheet.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.StyleSheet
        (ghcjs_dom_style_sheet_set_disabled, styleSheetSetDisabled,
@@ -27,7 +27,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"disabled\"] = $2;"
         ghcjs_dom_style_sheet_set_disabled ::
         JSRef StyleSheet -> Bool -> IO ()
@@ -45,7 +45,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"
         ghcjs_dom_style_sheet_get_disabled :: JSRef StyleSheet -> IO Bool
 #else 
@@ -59,7 +59,7 @@
       (unStyleSheet (toStyleSheet self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"ownerNode\"]"
         ghcjs_dom_style_sheet_get_owner_node ::
         JSRef StyleSheet -> IO (JSRef Node)
@@ -77,7 +77,7 @@
          (unStyleSheet (toStyleSheet self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"parentStyleSheet\"]"
         ghcjs_dom_style_sheet_get_parent_style_sheet ::
         JSRef StyleSheet -> IO (JSRef StyleSheet)
@@ -95,7 +95,7 @@
          (unStyleSheet (toStyleSheet self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"href\"]"
         ghcjs_dom_style_sheet_get_href :: JSRef StyleSheet -> IO JSString
 #else 
@@ -110,7 +110,7 @@
       (ghcjs_dom_style_sheet_get_href (unStyleSheet (toStyleSheet self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"title\"]"
         ghcjs_dom_style_sheet_get_title :: JSRef StyleSheet -> IO JSString
 #else 
@@ -126,7 +126,7 @@
          (unStyleSheet (toStyleSheet self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"media\"]"
         ghcjs_dom_style_sheet_get_media ::
         JSRef StyleSheet -> IO (JSRef MediaList)
diff --git a/src/GHCJS/DOM/StyleSheetList.hs b/src/GHCJS/DOM/StyleSheetList.hs
--- a/src/GHCJS/DOM/StyleSheetList.hs
+++ b/src/GHCJS/DOM/StyleSheetList.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.StyleSheetList
        (ghcjs_dom_style_sheet_list_item, styleSheetListItem,
@@ -22,7 +22,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"item\"]($2)"
         ghcjs_dom_style_sheet_list_item ::
         JSRef StyleSheetList -> Word -> IO (JSRef StyleSheet)
@@ -41,7 +41,7 @@
          index)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"length\"]"
         ghcjs_dom_style_sheet_list_get_length ::
         JSRef StyleSheetList -> IO Word
diff --git a/src/GHCJS/DOM/Stylesheets.hs b/src/GHCJS/DOM/Stylesheets.hs
--- a/src/GHCJS/DOM/Stylesheets.hs
+++ b/src/GHCJS/DOM/Stylesheets.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.Stylesheets (MediaList, IsMediaList) where
  
diff --git a/src/GHCJS/DOM/Text.hs b/src/GHCJS/DOM/Text.hs
--- a/src/GHCJS/DOM/Text.hs
+++ b/src/GHCJS/DOM/Text.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.Text
        (ghcjs_dom_text_split_text, textSplitText,
@@ -22,7 +22,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"splitText\"]($2)"
         ghcjs_dom_text_split_text :: JSRef Text -> Word -> IO (JSRef Text)
 #else 
@@ -36,7 +36,7 @@
       (ghcjs_dom_text_split_text (unText (toText self)) offset)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"replaceWholeText\"]($2)"
         ghcjs_dom_text_replace_whole_text ::
         JSRef Text -> JSString -> IO (JSRef Text)
@@ -55,7 +55,7 @@
          (toJSString content))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"wholeText\"]"
         ghcjs_dom_text_get_whole_text :: JSRef Text -> IO JSString
 #else 
diff --git a/src/GHCJS/DOM/TimeRanges.hs b/src/GHCJS/DOM/TimeRanges.hs
--- a/src/GHCJS/DOM/TimeRanges.hs
+++ b/src/GHCJS/DOM/TimeRanges.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.TimeRanges
        (ghcjs_dom_time_ranges_start, timeRangesStart,
@@ -23,7 +23,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"start\"]($2)"
         ghcjs_dom_time_ranges_start ::
         JSRef TimeRanges -> Word -> IO Double
@@ -39,7 +39,7 @@
       index
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"end\"]($2)"
         ghcjs_dom_time_ranges_end :: JSRef TimeRanges -> Word -> IO Double
 #else 
@@ -53,7 +53,7 @@
       index
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"length\"]"
         ghcjs_dom_time_ranges_get_length :: JSRef TimeRanges -> IO Word
 #else 
diff --git a/src/GHCJS/DOM/Traversal.hs b/src/GHCJS/DOM/Traversal.hs
--- a/src/GHCJS/DOM/Traversal.hs
+++ b/src/GHCJS/DOM/Traversal.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.Traversal (NodeFilter, IsNodeFilter) where
  
diff --git a/src/GHCJS/DOM/TreeWalker.hs b/src/GHCJS/DOM/TreeWalker.hs
--- a/src/GHCJS/DOM/TreeWalker.hs
+++ b/src/GHCJS/DOM/TreeWalker.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.TreeWalker
        (ghcjs_dom_tree_walker_get_root, treeWalkerGetRoot,
@@ -27,7 +27,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"root\"]"
         ghcjs_dom_tree_walker_get_root ::
         JSRef TreeWalker -> IO (JSRef Node)
@@ -43,7 +43,7 @@
       (ghcjs_dom_tree_walker_get_root (unTreeWalker (toTreeWalker self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"whatToShow\"]"
         ghcjs_dom_tree_walker_get_what_to_show ::
         JSRef TreeWalker -> IO Word
@@ -59,7 +59,7 @@
       (unTreeWalker (toTreeWalker self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"filter\"]"
         ghcjs_dom_tree_walker_get_filter ::
         JSRef TreeWalker -> IO (JSRef NodeFilter)
@@ -77,7 +77,7 @@
          (unTreeWalker (toTreeWalker self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "($1[\"expandEntityReferences\"] ? 1 : 0)"
         ghcjs_dom_tree_walker_get_expand_entity_references ::
@@ -95,7 +95,7 @@
       (unTreeWalker (toTreeWalker self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"currentNode\"] = $2;"
         ghcjs_dom_tree_walker_set_current_node ::
         JSRef TreeWalker -> JSRef Node -> IO ()
@@ -113,7 +113,7 @@
       (maybe jsNull (unNode . toNode) val)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"currentNode\"]"
         ghcjs_dom_tree_walker_get_current_node ::
         JSRef TreeWalker -> IO (JSRef Node)
diff --git a/src/GHCJS/DOM/Types.hs b/src/GHCJS/DOM/Types.hs
--- a/src/GHCJS/DOM/Types.hs
+++ b/src/GHCJS/DOM/Types.hs
@@ -1,11 +1,11 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE JavaScriptFFI, ForeignFunctionInterface #-}
 #else
 {-# LANGUAGE ConstraintKinds #-}
 #endif
 module GHCJS.DOM.Types (
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
     maybeJSNull, propagateGError, GType(..)
   , GObject(..), GObjectClass, toGObject, unGObject, castToGObject, gTypeGObject, unsafeCastGObject
 
@@ -274,14 +274,14 @@
   ) where
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 import GHCJS.Types (JSRef(..), castRef, isNull)
 #else
 import Graphics.UI.Gtk.WebKit.Types
 import System.Glib (propagateGError, GType(..))
 #endif
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 maybeJSNull :: JSRef a -> Maybe (JSRef a)
 maybeJSNull r | isNull r = Nothing
 maybeJSNull r = Just r
@@ -290,7 +290,7 @@
 
 data GType = GType (JSRef GType)
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "h$isInstanceOf $1 $2"
     typeInstanceIsA' :: JSRef a -> JSRef GType -> Bool
 #else
@@ -329,7 +329,7 @@
 castToGObject :: GObjectClass obj => obj -> obj
 castToGObject = id
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "object" gTypeGObject' :: JSRef GType
 #else
 gTypeGObject' = error "gTypeGObject': only available in JavaScript"
@@ -339,7 +339,7 @@
 
 -- AUTO GENERATION STARTS HERE
 -- The remainder of this file is generated from IDL files using domconv-webkit-jsffi
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype DOMAttr = DOMAttr (JSRef DOMAttr)
 
 unDOMAttr (DOMAttr o) = o
@@ -357,7 +357,7 @@
 castToDOMAttr :: GObjectClass obj => obj -> DOMAttr
 castToDOMAttr = castTo gTypeDOMAttr "DOMAttr"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"DOMAttr\"]" gTypeDOMAttr' :: JSRef GType
 #else
 gTypeDOMAttr' = error "gTypeDOMAttr': only available in JavaScript"
@@ -368,7 +368,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype BarProp = BarProp (JSRef BarProp)
 
 unBarProp (BarProp o) = o
@@ -385,7 +385,7 @@
 castToBarProp :: GObjectClass obj => obj -> BarProp
 castToBarProp = castTo gTypeBarProp "BarProp"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"BarProp\"]" gTypeBarProp' :: JSRef GType
 #else
 gTypeBarProp' = error "gTypeBarProp': only available in JavaScript"
@@ -395,7 +395,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype Blob = Blob (JSRef Blob)
 
 unBlob (Blob o) = o
@@ -412,7 +412,7 @@
 castToBlob :: GObjectClass obj => obj -> Blob
 castToBlob = castTo gTypeBlob "Blob"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"Blob\"]" gTypeBlob' :: JSRef GType
 #else
 gTypeBlob' = error "gTypeBlob': only available in JavaScript"
@@ -423,7 +423,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype CDATASection = CDATASection (JSRef CDATASection)
 
 unCDATASection (CDATASection o) = o
@@ -443,7 +443,7 @@
 castToCDATASection :: GObjectClass obj => obj -> CDATASection
 castToCDATASection = castTo gTypeCDATASection "CDATASection"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"CDATASection\"]" gTypeCDATASection' :: JSRef GType
 #else
 gTypeCDATASection' = error "gTypeCDATASection': only available in JavaScript"
@@ -454,7 +454,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype CSSRule = CSSRule (JSRef CSSRule)
 
 unCSSRule (CSSRule o) = o
@@ -471,7 +471,7 @@
 castToCSSRule :: GObjectClass obj => obj -> CSSRule
 castToCSSRule = castTo gTypeCSSRule "CSSRule"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"CSSRule\"]" gTypeCSSRule' :: JSRef GType
 #else
 gTypeCSSRule' = error "gTypeCSSRule': only available in JavaScript"
@@ -482,7 +482,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype CSSRuleList = CSSRuleList (JSRef CSSRuleList)
 
 unCSSRuleList (CSSRuleList o) = o
@@ -499,7 +499,7 @@
 castToCSSRuleList :: GObjectClass obj => obj -> CSSRuleList
 castToCSSRuleList = castTo gTypeCSSRuleList "CSSRuleList"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"CSSRuleList\"]" gTypeCSSRuleList' :: JSRef GType
 #else
 gTypeCSSRuleList' = error "gTypeCSSRuleList': only available in JavaScript"
@@ -510,7 +510,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype CSSStyleDeclaration = CSSStyleDeclaration (JSRef CSSStyleDeclaration)
 
 unCSSStyleDeclaration (CSSStyleDeclaration o) = o
@@ -527,7 +527,7 @@
 castToCSSStyleDeclaration :: GObjectClass obj => obj -> CSSStyleDeclaration
 castToCSSStyleDeclaration = castTo gTypeCSSStyleDeclaration "CSSStyleDeclaration"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"CSSStyleDeclaration\"]" gTypeCSSStyleDeclaration' :: JSRef GType
 #else
 gTypeCSSStyleDeclaration' = error "gTypeCSSStyleDeclaration': only available in JavaScript"
@@ -538,7 +538,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype CSSStyleSheet = CSSStyleSheet (JSRef CSSStyleSheet)
 
 unCSSStyleSheet (CSSStyleSheet o) = o
@@ -556,7 +556,7 @@
 castToCSSStyleSheet :: GObjectClass obj => obj -> CSSStyleSheet
 castToCSSStyleSheet = castTo gTypeCSSStyleSheet "CSSStyleSheet"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"CSSStyleSheet\"]" gTypeCSSStyleSheet' :: JSRef GType
 #else
 gTypeCSSStyleSheet' = error "gTypeCSSStyleSheet': only available in JavaScript"
@@ -567,7 +567,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype CSSValue = CSSValue (JSRef CSSValue)
 
 unCSSValue (CSSValue o) = o
@@ -584,7 +584,7 @@
 castToCSSValue :: GObjectClass obj => obj -> CSSValue
 castToCSSValue = castTo gTypeCSSValue "CSSValue"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"CSSValue\"]" gTypeCSSValue' :: JSRef GType
 #else
 gTypeCSSValue' = error "gTypeCSSValue': only available in JavaScript"
@@ -595,7 +595,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype CharacterData = CharacterData (JSRef CharacterData)
 
 unCharacterData (CharacterData o) = o
@@ -613,7 +613,7 @@
 castToCharacterData :: GObjectClass obj => obj -> CharacterData
 castToCharacterData = castTo gTypeCharacterData "CharacterData"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"CharacterData\"]" gTypeCharacterData' :: JSRef GType
 #else
 gTypeCharacterData' = error "gTypeCharacterData': only available in JavaScript"
@@ -624,7 +624,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype Comment = Comment (JSRef Comment)
 
 unComment (Comment o) = o
@@ -643,7 +643,7 @@
 castToComment :: GObjectClass obj => obj -> Comment
 castToComment = castTo gTypeComment "Comment"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"Comment\"]" gTypeComment' :: JSRef GType
 #else
 gTypeComment' = error "gTypeComment': only available in JavaScript"
@@ -654,7 +654,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype Console = Console (JSRef Console)
 
 unConsole (Console o) = o
@@ -671,7 +671,7 @@
 castToConsole :: GObjectClass obj => obj -> Console
 castToConsole = castTo gTypeConsole "Console"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"Console\"]" gTypeConsole' :: JSRef GType
 #else
 gTypeConsole' = error "gTypeConsole': only available in JavaScript"
@@ -682,7 +682,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype DOMApplicationCache = DOMApplicationCache (JSRef DOMApplicationCache)
 
 unDOMApplicationCache (DOMApplicationCache o) = o
@@ -699,7 +699,7 @@
 castToDOMApplicationCache :: GObjectClass obj => obj -> DOMApplicationCache
 castToDOMApplicationCache = castTo gTypeDOMApplicationCache "DOMApplicationCache"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"DOMApplicationCache\"]" gTypeDOMApplicationCache' :: JSRef GType
 #else
 gTypeDOMApplicationCache' = error "gTypeDOMApplicationCache': only available in JavaScript"
@@ -710,7 +710,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype DOMImplementation = DOMImplementation (JSRef DOMImplementation)
 
 unDOMImplementation (DOMImplementation o) = o
@@ -727,7 +727,7 @@
 castToDOMImplementation :: GObjectClass obj => obj -> DOMImplementation
 castToDOMImplementation = castTo gTypeDOMImplementation "DOMImplementation"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"DOMImplementation\"]" gTypeDOMImplementation' :: JSRef GType
 #else
 gTypeDOMImplementation' = error "gTypeDOMImplementation': only available in JavaScript"
@@ -738,7 +738,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype DOMMimeType = DOMMimeType (JSRef DOMMimeType)
 
 unDOMMimeType (DOMMimeType o) = o
@@ -755,7 +755,7 @@
 castToDOMMimeType :: GObjectClass obj => obj -> DOMMimeType
 castToDOMMimeType = castTo gTypeDOMMimeType "DOMMimeType"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"DOMMimeType\"]" gTypeDOMMimeType' :: JSRef GType
 #else
 gTypeDOMMimeType' = error "gTypeDOMMimeType': only available in JavaScript"
@@ -766,7 +766,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype DOMMimeTypeArray = DOMMimeTypeArray (JSRef DOMMimeTypeArray)
 
 unDOMMimeTypeArray (DOMMimeTypeArray o) = o
@@ -783,7 +783,7 @@
 castToDOMMimeTypeArray :: GObjectClass obj => obj -> DOMMimeTypeArray
 castToDOMMimeTypeArray = castTo gTypeDOMMimeTypeArray "DOMMimeTypeArray"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"DOMMimeTypeArray\"]" gTypeDOMMimeTypeArray' :: JSRef GType
 #else
 gTypeDOMMimeTypeArray' = error "gTypeDOMMimeTypeArray': only available in JavaScript"
@@ -794,7 +794,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype DOMNamedFlowCollection = DOMNamedFlowCollection (JSRef DOMNamedFlowCollection)
 
 unDOMNamedFlowCollection (DOMNamedFlowCollection o) = o
@@ -811,7 +811,7 @@
 castToDOMNamedFlowCollection :: GObjectClass obj => obj -> DOMNamedFlowCollection
 castToDOMNamedFlowCollection = castTo gTypeDOMNamedFlowCollection "DOMNamedFlowCollection"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"DOMNamedFlowCollection\"]" gTypeDOMNamedFlowCollection' :: JSRef GType
 #else
 gTypeDOMNamedFlowCollection' = error "gTypeDOMNamedFlowCollection': only available in JavaScript"
@@ -821,7 +821,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype DOMPlugin = DOMPlugin (JSRef DOMPlugin)
 
 unDOMPlugin (DOMPlugin o) = o
@@ -838,7 +838,7 @@
 castToDOMPlugin :: GObjectClass obj => obj -> DOMPlugin
 castToDOMPlugin = castTo gTypeDOMPlugin "DOMPlugin"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"DOMPlugin\"]" gTypeDOMPlugin' :: JSRef GType
 #else
 gTypeDOMPlugin' = error "gTypeDOMPlugin': only available in JavaScript"
@@ -849,7 +849,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype DOMPluginArray = DOMPluginArray (JSRef DOMPluginArray)
 
 unDOMPluginArray (DOMPluginArray o) = o
@@ -866,7 +866,7 @@
 castToDOMPluginArray :: GObjectClass obj => obj -> DOMPluginArray
 castToDOMPluginArray = castTo gTypeDOMPluginArray "DOMPluginArray"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"DOMPluginArray\"]" gTypeDOMPluginArray' :: JSRef GType
 #else
 gTypeDOMPluginArray' = error "gTypeDOMPluginArray': only available in JavaScript"
@@ -877,7 +877,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype DOMSecurityPolicy = DOMSecurityPolicy (JSRef DOMSecurityPolicy)
 
 unDOMSecurityPolicy (DOMSecurityPolicy o) = o
@@ -894,7 +894,7 @@
 castToDOMSecurityPolicy :: GObjectClass obj => obj -> DOMSecurityPolicy
 castToDOMSecurityPolicy = castTo gTypeDOMSecurityPolicy "DOMSecurityPolicy"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"DOMSecurityPolicy\"]" gTypeDOMSecurityPolicy' :: JSRef GType
 #else
 gTypeDOMSecurityPolicy' = error "gTypeDOMSecurityPolicy': only available in JavaScript"
@@ -904,7 +904,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype DOMSelection = DOMSelection (JSRef DOMSelection)
 
 unDOMSelection (DOMSelection o) = o
@@ -921,7 +921,7 @@
 castToDOMSelection :: GObjectClass obj => obj -> DOMSelection
 castToDOMSelection = castTo gTypeDOMSelection "DOMSelection"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"DOMSelection\"]" gTypeDOMSelection' :: JSRef GType
 #else
 gTypeDOMSelection' = error "gTypeDOMSelection': only available in JavaScript"
@@ -932,7 +932,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype DOMSettableTokenList = DOMSettableTokenList (JSRef DOMSettableTokenList)
 
 unDOMSettableTokenList (DOMSettableTokenList o) = o
@@ -950,7 +950,7 @@
 castToDOMSettableTokenList :: GObjectClass obj => obj -> DOMSettableTokenList
 castToDOMSettableTokenList = castTo gTypeDOMSettableTokenList "DOMSettableTokenList"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"DOMSettableTokenList\"]" gTypeDOMSettableTokenList' :: JSRef GType
 #else
 gTypeDOMSettableTokenList' = error "gTypeDOMSettableTokenList': only available in JavaScript"
@@ -961,7 +961,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype DOMStringList = DOMStringList (JSRef DOMStringList)
 
 unDOMStringList (DOMStringList o) = o
@@ -978,7 +978,7 @@
 castToDOMStringList :: GObjectClass obj => obj -> DOMStringList
 castToDOMStringList = castTo gTypeDOMStringList "DOMStringList"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"DOMStringList\"]" gTypeDOMStringList' :: JSRef GType
 #else
 gTypeDOMStringList' = error "gTypeDOMStringList': only available in JavaScript"
@@ -989,7 +989,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype DOMTokenList = DOMTokenList (JSRef DOMTokenList)
 
 unDOMTokenList (DOMTokenList o) = o
@@ -1006,7 +1006,7 @@
 castToDOMTokenList :: GObjectClass obj => obj -> DOMTokenList
 castToDOMTokenList = castTo gTypeDOMTokenList "DOMTokenList"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"DOMTokenList\"]" gTypeDOMTokenList' :: JSRef GType
 #else
 gTypeDOMTokenList' = error "gTypeDOMTokenList': only available in JavaScript"
@@ -1017,7 +1017,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype DOMWindow = DOMWindow (JSRef DOMWindow)
 
 unDOMWindow (DOMWindow o) = o
@@ -1034,7 +1034,7 @@
 castToDOMWindow :: GObjectClass obj => obj -> DOMWindow
 castToDOMWindow = castTo gTypeDOMWindow "DOMWindow"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"DOMWindow\"]" gTypeDOMWindow' :: JSRef GType
 #else
 gTypeDOMWindow' = error "gTypeDOMWindow': only available in JavaScript"
@@ -1045,7 +1045,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype DOMWindowCSS = DOMWindowCSS (JSRef DOMWindowCSS)
 
 unDOMWindowCSS (DOMWindowCSS o) = o
@@ -1062,7 +1062,7 @@
 castToDOMWindowCSS :: GObjectClass obj => obj -> DOMWindowCSS
 castToDOMWindowCSS = castTo gTypeDOMWindowCSS "DOMWindowCSS"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"DOMWindowCSS\"]" gTypeDOMWindowCSS' :: JSRef GType
 #else
 gTypeDOMWindowCSS' = error "gTypeDOMWindowCSS': only available in JavaScript"
@@ -1072,7 +1072,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype Document = Document (JSRef Document)
 
 unDocument (Document o) = o
@@ -1090,7 +1090,7 @@
 castToDocument :: GObjectClass obj => obj -> Document
 castToDocument = castTo gTypeDocument "Document"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"Document\"]" gTypeDocument' :: JSRef GType
 #else
 gTypeDocument' = error "gTypeDocument': only available in JavaScript"
@@ -1101,7 +1101,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype DocumentFragment = DocumentFragment (JSRef DocumentFragment)
 
 unDocumentFragment (DocumentFragment o) = o
@@ -1119,7 +1119,7 @@
 castToDocumentFragment :: GObjectClass obj => obj -> DocumentFragment
 castToDocumentFragment = castTo gTypeDocumentFragment "DocumentFragment"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"DocumentFragment\"]" gTypeDocumentFragment' :: JSRef GType
 #else
 gTypeDocumentFragment' = error "gTypeDocumentFragment': only available in JavaScript"
@@ -1130,7 +1130,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype DocumentType = DocumentType (JSRef DocumentType)
 
 unDocumentType (DocumentType o) = o
@@ -1148,7 +1148,7 @@
 castToDocumentType :: GObjectClass obj => obj -> DocumentType
 castToDocumentType = castTo gTypeDocumentType "DocumentType"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"DocumentType\"]" gTypeDocumentType' :: JSRef GType
 #else
 gTypeDocumentType' = error "gTypeDocumentType': only available in JavaScript"
@@ -1159,7 +1159,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype Element = Element (JSRef Element)
 
 unElement (Element o) = o
@@ -1177,7 +1177,7 @@
 castToElement :: GObjectClass obj => obj -> Element
 castToElement = castTo gTypeElement "Element"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"Element\"]" gTypeElement' :: JSRef GType
 #else
 gTypeElement' = error "gTypeElement': only available in JavaScript"
@@ -1188,7 +1188,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype EntityReference = EntityReference (JSRef EntityReference)
 
 unEntityReference (EntityReference o) = o
@@ -1206,7 +1206,7 @@
 castToEntityReference :: GObjectClass obj => obj -> EntityReference
 castToEntityReference = castTo gTypeEntityReference "EntityReference"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"EntityReference\"]" gTypeEntityReference' :: JSRef GType
 #else
 gTypeEntityReference' = error "gTypeEntityReference': only available in JavaScript"
@@ -1217,7 +1217,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype Event = Event (JSRef Event)
 
 unEvent (Event o) = o
@@ -1234,7 +1234,7 @@
 castToEvent :: GObjectClass obj => obj -> Event
 castToEvent = castTo gTypeEvent "Event"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"Event\"]" gTypeEvent' :: JSRef GType
 #else
 gTypeEvent' = error "gTypeEvent': only available in JavaScript"
@@ -1245,7 +1245,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype EventTarget = EventTarget (JSRef EventTarget)
 
 unEventTarget (EventTarget o) = o
@@ -1262,7 +1262,7 @@
 castToEventTarget :: GObjectClass obj => obj -> EventTarget
 castToEventTarget = castTo gTypeEventTarget "EventTarget"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"EventTarget\"]" gTypeEventTarget' :: JSRef GType
 #else
 gTypeEventTarget' = error "gTypeEventTarget': only available in JavaScript"
@@ -1273,7 +1273,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype File = File (JSRef File)
 
 unFile (File o) = o
@@ -1291,7 +1291,7 @@
 castToFile :: GObjectClass obj => obj -> File
 castToFile = castTo gTypeFile "File"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"File\"]" gTypeFile' :: JSRef GType
 #else
 gTypeFile' = error "gTypeFile': only available in JavaScript"
@@ -1302,7 +1302,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype FileList = FileList (JSRef FileList)
 
 unFileList (FileList o) = o
@@ -1319,7 +1319,7 @@
 castToFileList :: GObjectClass obj => obj -> FileList
 castToFileList = castTo gTypeFileList "FileList"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"FileList\"]" gTypeFileList' :: JSRef GType
 #else
 gTypeFileList' = error "gTypeFileList': only available in JavaScript"
@@ -1330,7 +1330,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype Geolocation = Geolocation (JSRef Geolocation)
 
 unGeolocation (Geolocation o) = o
@@ -1347,7 +1347,7 @@
 castToGeolocation :: GObjectClass obj => obj -> Geolocation
 castToGeolocation = castTo gTypeGeolocation "Geolocation"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"Geolocation\"]" gTypeGeolocation' :: JSRef GType
 #else
 gTypeGeolocation' = error "gTypeGeolocation': only available in JavaScript"
@@ -1358,7 +1358,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype HTMLAnchorElement = HTMLAnchorElement (JSRef HTMLAnchorElement)
 
 unHTMLAnchorElement (HTMLAnchorElement o) = o
@@ -1378,7 +1378,7 @@
 castToHTMLAnchorElement :: GObjectClass obj => obj -> HTMLAnchorElement
 castToHTMLAnchorElement = castTo gTypeHTMLAnchorElement "HTMLAnchorElement"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"HTMLAnchorElement\"]" gTypeHTMLAnchorElement' :: JSRef GType
 #else
 gTypeHTMLAnchorElement' = error "gTypeHTMLAnchorElement': only available in JavaScript"
@@ -1389,7 +1389,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype HTMLAppletElement = HTMLAppletElement (JSRef HTMLAppletElement)
 
 unHTMLAppletElement (HTMLAppletElement o) = o
@@ -1409,7 +1409,7 @@
 castToHTMLAppletElement :: GObjectClass obj => obj -> HTMLAppletElement
 castToHTMLAppletElement = castTo gTypeHTMLAppletElement "HTMLAppletElement"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"HTMLAppletElement\"]" gTypeHTMLAppletElement' :: JSRef GType
 #else
 gTypeHTMLAppletElement' = error "gTypeHTMLAppletElement': only available in JavaScript"
@@ -1420,7 +1420,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype HTMLAreaElement = HTMLAreaElement (JSRef HTMLAreaElement)
 
 unHTMLAreaElement (HTMLAreaElement o) = o
@@ -1440,7 +1440,7 @@
 castToHTMLAreaElement :: GObjectClass obj => obj -> HTMLAreaElement
 castToHTMLAreaElement = castTo gTypeHTMLAreaElement "HTMLAreaElement"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"HTMLAreaElement\"]" gTypeHTMLAreaElement' :: JSRef GType
 #else
 gTypeHTMLAreaElement' = error "gTypeHTMLAreaElement': only available in JavaScript"
@@ -1451,7 +1451,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype HTMLAudioElement = HTMLAudioElement (JSRef HTMLAudioElement)
 
 unHTMLAudioElement (HTMLAudioElement o) = o
@@ -1472,7 +1472,7 @@
 castToHTMLAudioElement :: GObjectClass obj => obj -> HTMLAudioElement
 castToHTMLAudioElement = castTo gTypeHTMLAudioElement "HTMLAudioElement"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"HTMLAudioElement\"]" gTypeHTMLAudioElement' :: JSRef GType
 #else
 gTypeHTMLAudioElement' = error "gTypeHTMLAudioElement': only available in JavaScript"
@@ -1483,7 +1483,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype HTMLBRElement = HTMLBRElement (JSRef HTMLBRElement)
 
 unHTMLBRElement (HTMLBRElement o) = o
@@ -1503,7 +1503,7 @@
 castToHTMLBRElement :: GObjectClass obj => obj -> HTMLBRElement
 castToHTMLBRElement = castTo gTypeHTMLBRElement "HTMLBRElement"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"HTMLBRElement\"]" gTypeHTMLBRElement' :: JSRef GType
 #else
 gTypeHTMLBRElement' = error "gTypeHTMLBRElement': only available in JavaScript"
@@ -1514,7 +1514,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype HTMLBaseElement = HTMLBaseElement (JSRef HTMLBaseElement)
 
 unHTMLBaseElement (HTMLBaseElement o) = o
@@ -1534,7 +1534,7 @@
 castToHTMLBaseElement :: GObjectClass obj => obj -> HTMLBaseElement
 castToHTMLBaseElement = castTo gTypeHTMLBaseElement "HTMLBaseElement"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"HTMLBaseElement\"]" gTypeHTMLBaseElement' :: JSRef GType
 #else
 gTypeHTMLBaseElement' = error "gTypeHTMLBaseElement': only available in JavaScript"
@@ -1545,7 +1545,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype HTMLBaseFontElement = HTMLBaseFontElement (JSRef HTMLBaseFontElement)
 
 unHTMLBaseFontElement (HTMLBaseFontElement o) = o
@@ -1565,7 +1565,7 @@
 castToHTMLBaseFontElement :: GObjectClass obj => obj -> HTMLBaseFontElement
 castToHTMLBaseFontElement = castTo gTypeHTMLBaseFontElement "HTMLBaseFontElement"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"HTMLBaseFontElement\"]" gTypeHTMLBaseFontElement' :: JSRef GType
 #else
 gTypeHTMLBaseFontElement' = error "gTypeHTMLBaseFontElement': only available in JavaScript"
@@ -1576,7 +1576,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype HTMLBodyElement = HTMLBodyElement (JSRef HTMLBodyElement)
 
 unHTMLBodyElement (HTMLBodyElement o) = o
@@ -1596,7 +1596,7 @@
 castToHTMLBodyElement :: GObjectClass obj => obj -> HTMLBodyElement
 castToHTMLBodyElement = castTo gTypeHTMLBodyElement "HTMLBodyElement"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"HTMLBodyElement\"]" gTypeHTMLBodyElement' :: JSRef GType
 #else
 gTypeHTMLBodyElement' = error "gTypeHTMLBodyElement': only available in JavaScript"
@@ -1607,7 +1607,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype HTMLButtonElement = HTMLButtonElement (JSRef HTMLButtonElement)
 
 unHTMLButtonElement (HTMLButtonElement o) = o
@@ -1627,7 +1627,7 @@
 castToHTMLButtonElement :: GObjectClass obj => obj -> HTMLButtonElement
 castToHTMLButtonElement = castTo gTypeHTMLButtonElement "HTMLButtonElement"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"HTMLButtonElement\"]" gTypeHTMLButtonElement' :: JSRef GType
 #else
 gTypeHTMLButtonElement' = error "gTypeHTMLButtonElement': only available in JavaScript"
@@ -1638,7 +1638,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype HTMLCanvasElement = HTMLCanvasElement (JSRef HTMLCanvasElement)
 
 unHTMLCanvasElement (HTMLCanvasElement o) = o
@@ -1658,7 +1658,7 @@
 castToHTMLCanvasElement :: GObjectClass obj => obj -> HTMLCanvasElement
 castToHTMLCanvasElement = castTo gTypeHTMLCanvasElement "HTMLCanvasElement"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"HTMLCanvasElement\"]" gTypeHTMLCanvasElement' :: JSRef GType
 #else
 gTypeHTMLCanvasElement' = error "gTypeHTMLCanvasElement': only available in JavaScript"
@@ -1669,7 +1669,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype HTMLCollection = HTMLCollection (JSRef HTMLCollection)
 
 unHTMLCollection (HTMLCollection o) = o
@@ -1686,7 +1686,7 @@
 castToHTMLCollection :: GObjectClass obj => obj -> HTMLCollection
 castToHTMLCollection = castTo gTypeHTMLCollection "HTMLCollection"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"HTMLCollection\"]" gTypeHTMLCollection' :: JSRef GType
 #else
 gTypeHTMLCollection' = error "gTypeHTMLCollection': only available in JavaScript"
@@ -1697,7 +1697,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype HTMLDListElement = HTMLDListElement (JSRef HTMLDListElement)
 
 unHTMLDListElement (HTMLDListElement o) = o
@@ -1717,7 +1717,7 @@
 castToHTMLDListElement :: GObjectClass obj => obj -> HTMLDListElement
 castToHTMLDListElement = castTo gTypeHTMLDListElement "HTMLDListElement"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"HTMLDListElement\"]" gTypeHTMLDListElement' :: JSRef GType
 #else
 gTypeHTMLDListElement' = error "gTypeHTMLDListElement': only available in JavaScript"
@@ -1728,7 +1728,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype HTMLDetailsElement = HTMLDetailsElement (JSRef HTMLDetailsElement)
 
 unHTMLDetailsElement (HTMLDetailsElement o) = o
@@ -1748,7 +1748,7 @@
 castToHTMLDetailsElement :: GObjectClass obj => obj -> HTMLDetailsElement
 castToHTMLDetailsElement = castTo gTypeHTMLDetailsElement "HTMLDetailsElement"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"HTMLDetailsElement\"]" gTypeHTMLDetailsElement' :: JSRef GType
 #else
 gTypeHTMLDetailsElement' = error "gTypeHTMLDetailsElement': only available in JavaScript"
@@ -1759,7 +1759,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype HTMLDirectoryElement = HTMLDirectoryElement (JSRef HTMLDirectoryElement)
 
 unHTMLDirectoryElement (HTMLDirectoryElement o) = o
@@ -1779,7 +1779,7 @@
 castToHTMLDirectoryElement :: GObjectClass obj => obj -> HTMLDirectoryElement
 castToHTMLDirectoryElement = castTo gTypeHTMLDirectoryElement "HTMLDirectoryElement"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"HTMLDirectoryElement\"]" gTypeHTMLDirectoryElement' :: JSRef GType
 #else
 gTypeHTMLDirectoryElement' = error "gTypeHTMLDirectoryElement': only available in JavaScript"
@@ -1790,7 +1790,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype HTMLDivElement = HTMLDivElement (JSRef HTMLDivElement)
 
 unHTMLDivElement (HTMLDivElement o) = o
@@ -1810,7 +1810,7 @@
 castToHTMLDivElement :: GObjectClass obj => obj -> HTMLDivElement
 castToHTMLDivElement = castTo gTypeHTMLDivElement "HTMLDivElement"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"HTMLDivElement\"]" gTypeHTMLDivElement' :: JSRef GType
 #else
 gTypeHTMLDivElement' = error "gTypeHTMLDivElement': only available in JavaScript"
@@ -1821,7 +1821,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype HTMLDocument = HTMLDocument (JSRef HTMLDocument)
 
 unHTMLDocument (HTMLDocument o) = o
@@ -1840,7 +1840,7 @@
 castToHTMLDocument :: GObjectClass obj => obj -> HTMLDocument
 castToHTMLDocument = castTo gTypeHTMLDocument "HTMLDocument"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"HTMLDocument\"]" gTypeHTMLDocument' :: JSRef GType
 #else
 gTypeHTMLDocument' = error "gTypeHTMLDocument': only available in JavaScript"
@@ -1851,7 +1851,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype HTMLElement = HTMLElement (JSRef HTMLElement)
 
 unHTMLElement (HTMLElement o) = o
@@ -1870,7 +1870,7 @@
 castToHTMLElement :: GObjectClass obj => obj -> HTMLElement
 castToHTMLElement = castTo gTypeHTMLElement "HTMLElement"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"HTMLElement\"]" gTypeHTMLElement' :: JSRef GType
 #else
 gTypeHTMLElement' = error "gTypeHTMLElement': only available in JavaScript"
@@ -1881,7 +1881,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype HTMLEmbedElement = HTMLEmbedElement (JSRef HTMLEmbedElement)
 
 unHTMLEmbedElement (HTMLEmbedElement o) = o
@@ -1901,7 +1901,7 @@
 castToHTMLEmbedElement :: GObjectClass obj => obj -> HTMLEmbedElement
 castToHTMLEmbedElement = castTo gTypeHTMLEmbedElement "HTMLEmbedElement"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"HTMLEmbedElement\"]" gTypeHTMLEmbedElement' :: JSRef GType
 #else
 gTypeHTMLEmbedElement' = error "gTypeHTMLEmbedElement': only available in JavaScript"
@@ -1912,7 +1912,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype HTMLFieldSetElement = HTMLFieldSetElement (JSRef HTMLFieldSetElement)
 
 unHTMLFieldSetElement (HTMLFieldSetElement o) = o
@@ -1932,7 +1932,7 @@
 castToHTMLFieldSetElement :: GObjectClass obj => obj -> HTMLFieldSetElement
 castToHTMLFieldSetElement = castTo gTypeHTMLFieldSetElement "HTMLFieldSetElement"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"HTMLFieldSetElement\"]" gTypeHTMLFieldSetElement' :: JSRef GType
 #else
 gTypeHTMLFieldSetElement' = error "gTypeHTMLFieldSetElement': only available in JavaScript"
@@ -1943,7 +1943,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype HTMLFontElement = HTMLFontElement (JSRef HTMLFontElement)
 
 unHTMLFontElement (HTMLFontElement o) = o
@@ -1963,7 +1963,7 @@
 castToHTMLFontElement :: GObjectClass obj => obj -> HTMLFontElement
 castToHTMLFontElement = castTo gTypeHTMLFontElement "HTMLFontElement"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"HTMLFontElement\"]" gTypeHTMLFontElement' :: JSRef GType
 #else
 gTypeHTMLFontElement' = error "gTypeHTMLFontElement': only available in JavaScript"
@@ -1974,7 +1974,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype HTMLFormElement = HTMLFormElement (JSRef HTMLFormElement)
 
 unHTMLFormElement (HTMLFormElement o) = o
@@ -1994,7 +1994,7 @@
 castToHTMLFormElement :: GObjectClass obj => obj -> HTMLFormElement
 castToHTMLFormElement = castTo gTypeHTMLFormElement "HTMLFormElement"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"HTMLFormElement\"]" gTypeHTMLFormElement' :: JSRef GType
 #else
 gTypeHTMLFormElement' = error "gTypeHTMLFormElement': only available in JavaScript"
@@ -2005,7 +2005,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype HTMLFrameElement = HTMLFrameElement (JSRef HTMLFrameElement)
 
 unHTMLFrameElement (HTMLFrameElement o) = o
@@ -2025,7 +2025,7 @@
 castToHTMLFrameElement :: GObjectClass obj => obj -> HTMLFrameElement
 castToHTMLFrameElement = castTo gTypeHTMLFrameElement "HTMLFrameElement"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"HTMLFrameElement\"]" gTypeHTMLFrameElement' :: JSRef GType
 #else
 gTypeHTMLFrameElement' = error "gTypeHTMLFrameElement': only available in JavaScript"
@@ -2036,7 +2036,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype HTMLFrameSetElement = HTMLFrameSetElement (JSRef HTMLFrameSetElement)
 
 unHTMLFrameSetElement (HTMLFrameSetElement o) = o
@@ -2056,7 +2056,7 @@
 castToHTMLFrameSetElement :: GObjectClass obj => obj -> HTMLFrameSetElement
 castToHTMLFrameSetElement = castTo gTypeHTMLFrameSetElement "HTMLFrameSetElement"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"HTMLFrameSetElement\"]" gTypeHTMLFrameSetElement' :: JSRef GType
 #else
 gTypeHTMLFrameSetElement' = error "gTypeHTMLFrameSetElement': only available in JavaScript"
@@ -2067,7 +2067,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype HTMLHRElement = HTMLHRElement (JSRef HTMLHRElement)
 
 unHTMLHRElement (HTMLHRElement o) = o
@@ -2087,7 +2087,7 @@
 castToHTMLHRElement :: GObjectClass obj => obj -> HTMLHRElement
 castToHTMLHRElement = castTo gTypeHTMLHRElement "HTMLHRElement"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"HTMLHRElement\"]" gTypeHTMLHRElement' :: JSRef GType
 #else
 gTypeHTMLHRElement' = error "gTypeHTMLHRElement': only available in JavaScript"
@@ -2098,7 +2098,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype HTMLHeadElement = HTMLHeadElement (JSRef HTMLHeadElement)
 
 unHTMLHeadElement (HTMLHeadElement o) = o
@@ -2118,7 +2118,7 @@
 castToHTMLHeadElement :: GObjectClass obj => obj -> HTMLHeadElement
 castToHTMLHeadElement = castTo gTypeHTMLHeadElement "HTMLHeadElement"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"HTMLHeadElement\"]" gTypeHTMLHeadElement' :: JSRef GType
 #else
 gTypeHTMLHeadElement' = error "gTypeHTMLHeadElement': only available in JavaScript"
@@ -2129,7 +2129,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype HTMLHeadingElement = HTMLHeadingElement (JSRef HTMLHeadingElement)
 
 unHTMLHeadingElement (HTMLHeadingElement o) = o
@@ -2149,7 +2149,7 @@
 castToHTMLHeadingElement :: GObjectClass obj => obj -> HTMLHeadingElement
 castToHTMLHeadingElement = castTo gTypeHTMLHeadingElement "HTMLHeadingElement"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"HTMLHeadingElement\"]" gTypeHTMLHeadingElement' :: JSRef GType
 #else
 gTypeHTMLHeadingElement' = error "gTypeHTMLHeadingElement': only available in JavaScript"
@@ -2160,7 +2160,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype HTMLHtmlElement = HTMLHtmlElement (JSRef HTMLHtmlElement)
 
 unHTMLHtmlElement (HTMLHtmlElement o) = o
@@ -2180,7 +2180,7 @@
 castToHTMLHtmlElement :: GObjectClass obj => obj -> HTMLHtmlElement
 castToHTMLHtmlElement = castTo gTypeHTMLHtmlElement "HTMLHtmlElement"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"HTMLHtmlElement\"]" gTypeHTMLHtmlElement' :: JSRef GType
 #else
 gTypeHTMLHtmlElement' = error "gTypeHTMLHtmlElement': only available in JavaScript"
@@ -2191,7 +2191,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype HTMLIFrameElement = HTMLIFrameElement (JSRef HTMLIFrameElement)
 
 unHTMLIFrameElement (HTMLIFrameElement o) = o
@@ -2211,7 +2211,7 @@
 castToHTMLIFrameElement :: GObjectClass obj => obj -> HTMLIFrameElement
 castToHTMLIFrameElement = castTo gTypeHTMLIFrameElement "HTMLIFrameElement"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"HTMLIFrameElement\"]" gTypeHTMLIFrameElement' :: JSRef GType
 #else
 gTypeHTMLIFrameElement' = error "gTypeHTMLIFrameElement': only available in JavaScript"
@@ -2222,7 +2222,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype HTMLImageElement = HTMLImageElement (JSRef HTMLImageElement)
 
 unHTMLImageElement (HTMLImageElement o) = o
@@ -2242,7 +2242,7 @@
 castToHTMLImageElement :: GObjectClass obj => obj -> HTMLImageElement
 castToHTMLImageElement = castTo gTypeHTMLImageElement "HTMLImageElement"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"HTMLImageElement\"]" gTypeHTMLImageElement' :: JSRef GType
 #else
 gTypeHTMLImageElement' = error "gTypeHTMLImageElement': only available in JavaScript"
@@ -2253,7 +2253,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype HTMLInputElement = HTMLInputElement (JSRef HTMLInputElement)
 
 unHTMLInputElement (HTMLInputElement o) = o
@@ -2273,7 +2273,7 @@
 castToHTMLInputElement :: GObjectClass obj => obj -> HTMLInputElement
 castToHTMLInputElement = castTo gTypeHTMLInputElement "HTMLInputElement"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"HTMLInputElement\"]" gTypeHTMLInputElement' :: JSRef GType
 #else
 gTypeHTMLInputElement' = error "gTypeHTMLInputElement': only available in JavaScript"
@@ -2284,7 +2284,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype HTMLKeygenElement = HTMLKeygenElement (JSRef HTMLKeygenElement)
 
 unHTMLKeygenElement (HTMLKeygenElement o) = o
@@ -2304,7 +2304,7 @@
 castToHTMLKeygenElement :: GObjectClass obj => obj -> HTMLKeygenElement
 castToHTMLKeygenElement = castTo gTypeHTMLKeygenElement "HTMLKeygenElement"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"HTMLKeygenElement\"]" gTypeHTMLKeygenElement' :: JSRef GType
 #else
 gTypeHTMLKeygenElement' = error "gTypeHTMLKeygenElement': only available in JavaScript"
@@ -2315,7 +2315,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype HTMLLIElement = HTMLLIElement (JSRef HTMLLIElement)
 
 unHTMLLIElement (HTMLLIElement o) = o
@@ -2335,7 +2335,7 @@
 castToHTMLLIElement :: GObjectClass obj => obj -> HTMLLIElement
 castToHTMLLIElement = castTo gTypeHTMLLIElement "HTMLLIElement"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"HTMLLIElement\"]" gTypeHTMLLIElement' :: JSRef GType
 #else
 gTypeHTMLLIElement' = error "gTypeHTMLLIElement': only available in JavaScript"
@@ -2346,7 +2346,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype HTMLLabelElement = HTMLLabelElement (JSRef HTMLLabelElement)
 
 unHTMLLabelElement (HTMLLabelElement o) = o
@@ -2366,7 +2366,7 @@
 castToHTMLLabelElement :: GObjectClass obj => obj -> HTMLLabelElement
 castToHTMLLabelElement = castTo gTypeHTMLLabelElement "HTMLLabelElement"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"HTMLLabelElement\"]" gTypeHTMLLabelElement' :: JSRef GType
 #else
 gTypeHTMLLabelElement' = error "gTypeHTMLLabelElement': only available in JavaScript"
@@ -2377,7 +2377,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype HTMLLegendElement = HTMLLegendElement (JSRef HTMLLegendElement)
 
 unHTMLLegendElement (HTMLLegendElement o) = o
@@ -2397,7 +2397,7 @@
 castToHTMLLegendElement :: GObjectClass obj => obj -> HTMLLegendElement
 castToHTMLLegendElement = castTo gTypeHTMLLegendElement "HTMLLegendElement"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"HTMLLegendElement\"]" gTypeHTMLLegendElement' :: JSRef GType
 #else
 gTypeHTMLLegendElement' = error "gTypeHTMLLegendElement': only available in JavaScript"
@@ -2408,7 +2408,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype HTMLLinkElement = HTMLLinkElement (JSRef HTMLLinkElement)
 
 unHTMLLinkElement (HTMLLinkElement o) = o
@@ -2428,7 +2428,7 @@
 castToHTMLLinkElement :: GObjectClass obj => obj -> HTMLLinkElement
 castToHTMLLinkElement = castTo gTypeHTMLLinkElement "HTMLLinkElement"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"HTMLLinkElement\"]" gTypeHTMLLinkElement' :: JSRef GType
 #else
 gTypeHTMLLinkElement' = error "gTypeHTMLLinkElement': only available in JavaScript"
@@ -2439,7 +2439,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype HTMLMapElement = HTMLMapElement (JSRef HTMLMapElement)
 
 unHTMLMapElement (HTMLMapElement o) = o
@@ -2459,7 +2459,7 @@
 castToHTMLMapElement :: GObjectClass obj => obj -> HTMLMapElement
 castToHTMLMapElement = castTo gTypeHTMLMapElement "HTMLMapElement"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"HTMLMapElement\"]" gTypeHTMLMapElement' :: JSRef GType
 #else
 gTypeHTMLMapElement' = error "gTypeHTMLMapElement': only available in JavaScript"
@@ -2470,7 +2470,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype HTMLMarqueeElement = HTMLMarqueeElement (JSRef HTMLMarqueeElement)
 
 unHTMLMarqueeElement (HTMLMarqueeElement o) = o
@@ -2490,7 +2490,7 @@
 castToHTMLMarqueeElement :: GObjectClass obj => obj -> HTMLMarqueeElement
 castToHTMLMarqueeElement = castTo gTypeHTMLMarqueeElement "HTMLMarqueeElement"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"HTMLMarqueeElement\"]" gTypeHTMLMarqueeElement' :: JSRef GType
 #else
 gTypeHTMLMarqueeElement' = error "gTypeHTMLMarqueeElement': only available in JavaScript"
@@ -2501,7 +2501,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype HTMLMediaElement = HTMLMediaElement (JSRef HTMLMediaElement)
 
 unHTMLMediaElement (HTMLMediaElement o) = o
@@ -2521,7 +2521,7 @@
 castToHTMLMediaElement :: GObjectClass obj => obj -> HTMLMediaElement
 castToHTMLMediaElement = castTo gTypeHTMLMediaElement "HTMLMediaElement"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"HTMLMediaElement\"]" gTypeHTMLMediaElement' :: JSRef GType
 #else
 gTypeHTMLMediaElement' = error "gTypeHTMLMediaElement': only available in JavaScript"
@@ -2532,7 +2532,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype HTMLMenuElement = HTMLMenuElement (JSRef HTMLMenuElement)
 
 unHTMLMenuElement (HTMLMenuElement o) = o
@@ -2552,7 +2552,7 @@
 castToHTMLMenuElement :: GObjectClass obj => obj -> HTMLMenuElement
 castToHTMLMenuElement = castTo gTypeHTMLMenuElement "HTMLMenuElement"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"HTMLMenuElement\"]" gTypeHTMLMenuElement' :: JSRef GType
 #else
 gTypeHTMLMenuElement' = error "gTypeHTMLMenuElement': only available in JavaScript"
@@ -2563,7 +2563,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype HTMLMetaElement = HTMLMetaElement (JSRef HTMLMetaElement)
 
 unHTMLMetaElement (HTMLMetaElement o) = o
@@ -2583,7 +2583,7 @@
 castToHTMLMetaElement :: GObjectClass obj => obj -> HTMLMetaElement
 castToHTMLMetaElement = castTo gTypeHTMLMetaElement "HTMLMetaElement"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"HTMLMetaElement\"]" gTypeHTMLMetaElement' :: JSRef GType
 #else
 gTypeHTMLMetaElement' = error "gTypeHTMLMetaElement': only available in JavaScript"
@@ -2594,7 +2594,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype HTMLModElement = HTMLModElement (JSRef HTMLModElement)
 
 unHTMLModElement (HTMLModElement o) = o
@@ -2614,7 +2614,7 @@
 castToHTMLModElement :: GObjectClass obj => obj -> HTMLModElement
 castToHTMLModElement = castTo gTypeHTMLModElement "HTMLModElement"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"HTMLModElement\"]" gTypeHTMLModElement' :: JSRef GType
 #else
 gTypeHTMLModElement' = error "gTypeHTMLModElement': only available in JavaScript"
@@ -2625,7 +2625,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype HTMLOListElement = HTMLOListElement (JSRef HTMLOListElement)
 
 unHTMLOListElement (HTMLOListElement o) = o
@@ -2645,7 +2645,7 @@
 castToHTMLOListElement :: GObjectClass obj => obj -> HTMLOListElement
 castToHTMLOListElement = castTo gTypeHTMLOListElement "HTMLOListElement"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"HTMLOListElement\"]" gTypeHTMLOListElement' :: JSRef GType
 #else
 gTypeHTMLOListElement' = error "gTypeHTMLOListElement': only available in JavaScript"
@@ -2656,7 +2656,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype HTMLObjectElement = HTMLObjectElement (JSRef HTMLObjectElement)
 
 unHTMLObjectElement (HTMLObjectElement o) = o
@@ -2676,7 +2676,7 @@
 castToHTMLObjectElement :: GObjectClass obj => obj -> HTMLObjectElement
 castToHTMLObjectElement = castTo gTypeHTMLObjectElement "HTMLObjectElement"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"HTMLObjectElement\"]" gTypeHTMLObjectElement' :: JSRef GType
 #else
 gTypeHTMLObjectElement' = error "gTypeHTMLObjectElement': only available in JavaScript"
@@ -2687,7 +2687,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype HTMLOptGroupElement = HTMLOptGroupElement (JSRef HTMLOptGroupElement)
 
 unHTMLOptGroupElement (HTMLOptGroupElement o) = o
@@ -2707,7 +2707,7 @@
 castToHTMLOptGroupElement :: GObjectClass obj => obj -> HTMLOptGroupElement
 castToHTMLOptGroupElement = castTo gTypeHTMLOptGroupElement "HTMLOptGroupElement"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"HTMLOptGroupElement\"]" gTypeHTMLOptGroupElement' :: JSRef GType
 #else
 gTypeHTMLOptGroupElement' = error "gTypeHTMLOptGroupElement': only available in JavaScript"
@@ -2718,7 +2718,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype HTMLOptionElement = HTMLOptionElement (JSRef HTMLOptionElement)
 
 unHTMLOptionElement (HTMLOptionElement o) = o
@@ -2738,7 +2738,7 @@
 castToHTMLOptionElement :: GObjectClass obj => obj -> HTMLOptionElement
 castToHTMLOptionElement = castTo gTypeHTMLOptionElement "HTMLOptionElement"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"HTMLOptionElement\"]" gTypeHTMLOptionElement' :: JSRef GType
 #else
 gTypeHTMLOptionElement' = error "gTypeHTMLOptionElement': only available in JavaScript"
@@ -2749,7 +2749,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype HTMLOptionsCollection = HTMLOptionsCollection (JSRef HTMLOptionsCollection)
 
 unHTMLOptionsCollection (HTMLOptionsCollection o) = o
@@ -2767,7 +2767,7 @@
 castToHTMLOptionsCollection :: GObjectClass obj => obj -> HTMLOptionsCollection
 castToHTMLOptionsCollection = castTo gTypeHTMLOptionsCollection "HTMLOptionsCollection"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"HTMLOptionsCollection\"]" gTypeHTMLOptionsCollection' :: JSRef GType
 #else
 gTypeHTMLOptionsCollection' = error "gTypeHTMLOptionsCollection': only available in JavaScript"
@@ -2778,7 +2778,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype HTMLParagraphElement = HTMLParagraphElement (JSRef HTMLParagraphElement)
 
 unHTMLParagraphElement (HTMLParagraphElement o) = o
@@ -2798,7 +2798,7 @@
 castToHTMLParagraphElement :: GObjectClass obj => obj -> HTMLParagraphElement
 castToHTMLParagraphElement = castTo gTypeHTMLParagraphElement "HTMLParagraphElement"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"HTMLParagraphElement\"]" gTypeHTMLParagraphElement' :: JSRef GType
 #else
 gTypeHTMLParagraphElement' = error "gTypeHTMLParagraphElement': only available in JavaScript"
@@ -2809,7 +2809,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype HTMLParamElement = HTMLParamElement (JSRef HTMLParamElement)
 
 unHTMLParamElement (HTMLParamElement o) = o
@@ -2829,7 +2829,7 @@
 castToHTMLParamElement :: GObjectClass obj => obj -> HTMLParamElement
 castToHTMLParamElement = castTo gTypeHTMLParamElement "HTMLParamElement"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"HTMLParamElement\"]" gTypeHTMLParamElement' :: JSRef GType
 #else
 gTypeHTMLParamElement' = error "gTypeHTMLParamElement': only available in JavaScript"
@@ -2840,7 +2840,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype HTMLPreElement = HTMLPreElement (JSRef HTMLPreElement)
 
 unHTMLPreElement (HTMLPreElement o) = o
@@ -2860,7 +2860,7 @@
 castToHTMLPreElement :: GObjectClass obj => obj -> HTMLPreElement
 castToHTMLPreElement = castTo gTypeHTMLPreElement "HTMLPreElement"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"HTMLPreElement\"]" gTypeHTMLPreElement' :: JSRef GType
 #else
 gTypeHTMLPreElement' = error "gTypeHTMLPreElement': only available in JavaScript"
@@ -2871,7 +2871,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype HTMLQuoteElement = HTMLQuoteElement (JSRef HTMLQuoteElement)
 
 unHTMLQuoteElement (HTMLQuoteElement o) = o
@@ -2891,7 +2891,7 @@
 castToHTMLQuoteElement :: GObjectClass obj => obj -> HTMLQuoteElement
 castToHTMLQuoteElement = castTo gTypeHTMLQuoteElement "HTMLQuoteElement"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"HTMLQuoteElement\"]" gTypeHTMLQuoteElement' :: JSRef GType
 #else
 gTypeHTMLQuoteElement' = error "gTypeHTMLQuoteElement': only available in JavaScript"
@@ -2902,7 +2902,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype HTMLScriptElement = HTMLScriptElement (JSRef HTMLScriptElement)
 
 unHTMLScriptElement (HTMLScriptElement o) = o
@@ -2922,7 +2922,7 @@
 castToHTMLScriptElement :: GObjectClass obj => obj -> HTMLScriptElement
 castToHTMLScriptElement = castTo gTypeHTMLScriptElement "HTMLScriptElement"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"HTMLScriptElement\"]" gTypeHTMLScriptElement' :: JSRef GType
 #else
 gTypeHTMLScriptElement' = error "gTypeHTMLScriptElement': only available in JavaScript"
@@ -2933,7 +2933,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype HTMLSelectElement = HTMLSelectElement (JSRef HTMLSelectElement)
 
 unHTMLSelectElement (HTMLSelectElement o) = o
@@ -2953,7 +2953,7 @@
 castToHTMLSelectElement :: GObjectClass obj => obj -> HTMLSelectElement
 castToHTMLSelectElement = castTo gTypeHTMLSelectElement "HTMLSelectElement"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"HTMLSelectElement\"]" gTypeHTMLSelectElement' :: JSRef GType
 #else
 gTypeHTMLSelectElement' = error "gTypeHTMLSelectElement': only available in JavaScript"
@@ -2964,7 +2964,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype HTMLStyleElement = HTMLStyleElement (JSRef HTMLStyleElement)
 
 unHTMLStyleElement (HTMLStyleElement o) = o
@@ -2984,7 +2984,7 @@
 castToHTMLStyleElement :: GObjectClass obj => obj -> HTMLStyleElement
 castToHTMLStyleElement = castTo gTypeHTMLStyleElement "HTMLStyleElement"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"HTMLStyleElement\"]" gTypeHTMLStyleElement' :: JSRef GType
 #else
 gTypeHTMLStyleElement' = error "gTypeHTMLStyleElement': only available in JavaScript"
@@ -2995,7 +2995,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype HTMLTableCaptionElement = HTMLTableCaptionElement (JSRef HTMLTableCaptionElement)
 
 unHTMLTableCaptionElement (HTMLTableCaptionElement o) = o
@@ -3015,7 +3015,7 @@
 castToHTMLTableCaptionElement :: GObjectClass obj => obj -> HTMLTableCaptionElement
 castToHTMLTableCaptionElement = castTo gTypeHTMLTableCaptionElement "HTMLTableCaptionElement"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"HTMLTableCaptionElement\"]" gTypeHTMLTableCaptionElement' :: JSRef GType
 #else
 gTypeHTMLTableCaptionElement' = error "gTypeHTMLTableCaptionElement': only available in JavaScript"
@@ -3026,7 +3026,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype HTMLTableCellElement = HTMLTableCellElement (JSRef HTMLTableCellElement)
 
 unHTMLTableCellElement (HTMLTableCellElement o) = o
@@ -3046,7 +3046,7 @@
 castToHTMLTableCellElement :: GObjectClass obj => obj -> HTMLTableCellElement
 castToHTMLTableCellElement = castTo gTypeHTMLTableCellElement "HTMLTableCellElement"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"HTMLTableCellElement\"]" gTypeHTMLTableCellElement' :: JSRef GType
 #else
 gTypeHTMLTableCellElement' = error "gTypeHTMLTableCellElement': only available in JavaScript"
@@ -3057,7 +3057,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype HTMLTableColElement = HTMLTableColElement (JSRef HTMLTableColElement)
 
 unHTMLTableColElement (HTMLTableColElement o) = o
@@ -3077,7 +3077,7 @@
 castToHTMLTableColElement :: GObjectClass obj => obj -> HTMLTableColElement
 castToHTMLTableColElement = castTo gTypeHTMLTableColElement "HTMLTableColElement"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"HTMLTableColElement\"]" gTypeHTMLTableColElement' :: JSRef GType
 #else
 gTypeHTMLTableColElement' = error "gTypeHTMLTableColElement': only available in JavaScript"
@@ -3088,7 +3088,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype HTMLTableElement = HTMLTableElement (JSRef HTMLTableElement)
 
 unHTMLTableElement (HTMLTableElement o) = o
@@ -3108,7 +3108,7 @@
 castToHTMLTableElement :: GObjectClass obj => obj -> HTMLTableElement
 castToHTMLTableElement = castTo gTypeHTMLTableElement "HTMLTableElement"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"HTMLTableElement\"]" gTypeHTMLTableElement' :: JSRef GType
 #else
 gTypeHTMLTableElement' = error "gTypeHTMLTableElement': only available in JavaScript"
@@ -3119,7 +3119,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype HTMLTableRowElement = HTMLTableRowElement (JSRef HTMLTableRowElement)
 
 unHTMLTableRowElement (HTMLTableRowElement o) = o
@@ -3139,7 +3139,7 @@
 castToHTMLTableRowElement :: GObjectClass obj => obj -> HTMLTableRowElement
 castToHTMLTableRowElement = castTo gTypeHTMLTableRowElement "HTMLTableRowElement"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"HTMLTableRowElement\"]" gTypeHTMLTableRowElement' :: JSRef GType
 #else
 gTypeHTMLTableRowElement' = error "gTypeHTMLTableRowElement': only available in JavaScript"
@@ -3150,7 +3150,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype HTMLTableSectionElement = HTMLTableSectionElement (JSRef HTMLTableSectionElement)
 
 unHTMLTableSectionElement (HTMLTableSectionElement o) = o
@@ -3170,7 +3170,7 @@
 castToHTMLTableSectionElement :: GObjectClass obj => obj -> HTMLTableSectionElement
 castToHTMLTableSectionElement = castTo gTypeHTMLTableSectionElement "HTMLTableSectionElement"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"HTMLTableSectionElement\"]" gTypeHTMLTableSectionElement' :: JSRef GType
 #else
 gTypeHTMLTableSectionElement' = error "gTypeHTMLTableSectionElement': only available in JavaScript"
@@ -3181,7 +3181,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype HTMLTextAreaElement = HTMLTextAreaElement (JSRef HTMLTextAreaElement)
 
 unHTMLTextAreaElement (HTMLTextAreaElement o) = o
@@ -3201,7 +3201,7 @@
 castToHTMLTextAreaElement :: GObjectClass obj => obj -> HTMLTextAreaElement
 castToHTMLTextAreaElement = castTo gTypeHTMLTextAreaElement "HTMLTextAreaElement"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"HTMLTextAreaElement\"]" gTypeHTMLTextAreaElement' :: JSRef GType
 #else
 gTypeHTMLTextAreaElement' = error "gTypeHTMLTextAreaElement': only available in JavaScript"
@@ -3212,7 +3212,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype HTMLTitleElement = HTMLTitleElement (JSRef HTMLTitleElement)
 
 unHTMLTitleElement (HTMLTitleElement o) = o
@@ -3232,7 +3232,7 @@
 castToHTMLTitleElement :: GObjectClass obj => obj -> HTMLTitleElement
 castToHTMLTitleElement = castTo gTypeHTMLTitleElement "HTMLTitleElement"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"HTMLTitleElement\"]" gTypeHTMLTitleElement' :: JSRef GType
 #else
 gTypeHTMLTitleElement' = error "gTypeHTMLTitleElement': only available in JavaScript"
@@ -3243,7 +3243,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype HTMLUListElement = HTMLUListElement (JSRef HTMLUListElement)
 
 unHTMLUListElement (HTMLUListElement o) = o
@@ -3263,7 +3263,7 @@
 castToHTMLUListElement :: GObjectClass obj => obj -> HTMLUListElement
 castToHTMLUListElement = castTo gTypeHTMLUListElement "HTMLUListElement"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"HTMLUListElement\"]" gTypeHTMLUListElement' :: JSRef GType
 #else
 gTypeHTMLUListElement' = error "gTypeHTMLUListElement': only available in JavaScript"
@@ -3274,7 +3274,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype HTMLVideoElement = HTMLVideoElement (JSRef HTMLVideoElement)
 
 unHTMLVideoElement (HTMLVideoElement o) = o
@@ -3295,7 +3295,7 @@
 castToHTMLVideoElement :: GObjectClass obj => obj -> HTMLVideoElement
 castToHTMLVideoElement = castTo gTypeHTMLVideoElement "HTMLVideoElement"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"HTMLVideoElement\"]" gTypeHTMLVideoElement' :: JSRef GType
 #else
 gTypeHTMLVideoElement' = error "gTypeHTMLVideoElement': only available in JavaScript"
@@ -3306,7 +3306,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype History = History (JSRef History)
 
 unHistory (History o) = o
@@ -3323,7 +3323,7 @@
 castToHistory :: GObjectClass obj => obj -> History
 castToHistory = castTo gTypeHistory "History"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"History\"]" gTypeHistory' :: JSRef GType
 #else
 gTypeHistory' = error "gTypeHistory': only available in JavaScript"
@@ -3334,7 +3334,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype KeyboardEvent = KeyboardEvent (JSRef KeyboardEvent)
 
 unKeyboardEvent (KeyboardEvent o) = o
@@ -3353,7 +3353,7 @@
 castToKeyboardEvent :: GObjectClass obj => obj -> KeyboardEvent
 castToKeyboardEvent = castTo gTypeKeyboardEvent "KeyboardEvent"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"KeyboardEvent\"]" gTypeKeyboardEvent' :: JSRef GType
 #else
 gTypeKeyboardEvent' = error "gTypeKeyboardEvent': only available in JavaScript"
@@ -3363,7 +3363,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype Location = Location (JSRef Location)
 
 unLocation (Location o) = o
@@ -3380,7 +3380,7 @@
 castToLocation :: GObjectClass obj => obj -> Location
 castToLocation = castTo gTypeLocation "Location"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"Location\"]" gTypeLocation' :: JSRef GType
 #else
 gTypeLocation' = error "gTypeLocation': only available in JavaScript"
@@ -3391,7 +3391,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype MediaError = MediaError (JSRef MediaError)
 
 unMediaError (MediaError o) = o
@@ -3408,7 +3408,7 @@
 castToMediaError :: GObjectClass obj => obj -> MediaError
 castToMediaError = castTo gTypeMediaError "MediaError"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"MediaError\"]" gTypeMediaError' :: JSRef GType
 #else
 gTypeMediaError' = error "gTypeMediaError': only available in JavaScript"
@@ -3419,7 +3419,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype MediaList = MediaList (JSRef MediaList)
 
 unMediaList (MediaList o) = o
@@ -3436,7 +3436,7 @@
 castToMediaList :: GObjectClass obj => obj -> MediaList
 castToMediaList = castTo gTypeMediaList "MediaList"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"MediaList\"]" gTypeMediaList' :: JSRef GType
 #else
 gTypeMediaList' = error "gTypeMediaList': only available in JavaScript"
@@ -3447,7 +3447,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype MediaQueryList = MediaQueryList (JSRef MediaQueryList)
 
 unMediaQueryList (MediaQueryList o) = o
@@ -3464,7 +3464,7 @@
 castToMediaQueryList :: GObjectClass obj => obj -> MediaQueryList
 castToMediaQueryList = castTo gTypeMediaQueryList "MediaQueryList"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"MediaQueryList\"]" gTypeMediaQueryList' :: JSRef GType
 #else
 gTypeMediaQueryList' = error "gTypeMediaQueryList': only available in JavaScript"
@@ -3475,7 +3475,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype MessagePort = MessagePort (JSRef MessagePort)
 
 unMessagePort (MessagePort o) = o
@@ -3492,7 +3492,7 @@
 castToMessagePort :: GObjectClass obj => obj -> MessagePort
 castToMessagePort = castTo gTypeMessagePort "MessagePort"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"MessagePort\"]" gTypeMessagePort' :: JSRef GType
 #else
 gTypeMessagePort' = error "gTypeMessagePort': only available in JavaScript"
@@ -3503,7 +3503,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype MouseEvent = MouseEvent (JSRef MouseEvent)
 
 unMouseEvent (MouseEvent o) = o
@@ -3522,7 +3522,7 @@
 castToMouseEvent :: GObjectClass obj => obj -> MouseEvent
 castToMouseEvent = castTo gTypeMouseEvent "MouseEvent"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"MouseEvent\"]" gTypeMouseEvent' :: JSRef GType
 #else
 gTypeMouseEvent' = error "gTypeMouseEvent': only available in JavaScript"
@@ -3533,7 +3533,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype NamedNodeMap = NamedNodeMap (JSRef NamedNodeMap)
 
 unNamedNodeMap (NamedNodeMap o) = o
@@ -3550,7 +3550,7 @@
 castToNamedNodeMap :: GObjectClass obj => obj -> NamedNodeMap
 castToNamedNodeMap = castTo gTypeNamedNodeMap "NamedNodeMap"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"NamedNodeMap\"]" gTypeNamedNodeMap' :: JSRef GType
 #else
 gTypeNamedNodeMap' = error "gTypeNamedNodeMap': only available in JavaScript"
@@ -3561,7 +3561,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype Navigator = Navigator (JSRef Navigator)
 
 unNavigator (Navigator o) = o
@@ -3578,7 +3578,7 @@
 castToNavigator :: GObjectClass obj => obj -> Navigator
 castToNavigator = castTo gTypeNavigator "Navigator"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"Navigator\"]" gTypeNavigator' :: JSRef GType
 #else
 gTypeNavigator' = error "gTypeNavigator': only available in JavaScript"
@@ -3589,7 +3589,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype Node = Node (JSRef Node)
 
 unNode (Node o) = o
@@ -3606,7 +3606,7 @@
 castToNode :: GObjectClass obj => obj -> Node
 castToNode = castTo gTypeNode "Node"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"Node\"]" gTypeNode' :: JSRef GType
 #else
 gTypeNode' = error "gTypeNode': only available in JavaScript"
@@ -3617,7 +3617,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype NodeFilter = NodeFilter (JSRef NodeFilter)
 
 unNodeFilter (NodeFilter o) = o
@@ -3634,7 +3634,7 @@
 castToNodeFilter :: GObjectClass obj => obj -> NodeFilter
 castToNodeFilter = castTo gTypeNodeFilter "NodeFilter"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"NodeFilter\"]" gTypeNodeFilter' :: JSRef GType
 #else
 gTypeNodeFilter' = error "gTypeNodeFilter': only available in JavaScript"
@@ -3645,7 +3645,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype NodeIterator = NodeIterator (JSRef NodeIterator)
 
 unNodeIterator (NodeIterator o) = o
@@ -3662,7 +3662,7 @@
 castToNodeIterator :: GObjectClass obj => obj -> NodeIterator
 castToNodeIterator = castTo gTypeNodeIterator "NodeIterator"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"NodeIterator\"]" gTypeNodeIterator' :: JSRef GType
 #else
 gTypeNodeIterator' = error "gTypeNodeIterator': only available in JavaScript"
@@ -3673,7 +3673,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype NodeList = NodeList (JSRef NodeList)
 
 unNodeList (NodeList o) = o
@@ -3690,7 +3690,7 @@
 castToNodeList :: GObjectClass obj => obj -> NodeList
 castToNodeList = castTo gTypeNodeList "NodeList"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"NodeList\"]" gTypeNodeList' :: JSRef GType
 #else
 gTypeNodeList' = error "gTypeNodeList': only available in JavaScript"
@@ -3701,7 +3701,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype ProcessingInstruction = ProcessingInstruction (JSRef ProcessingInstruction)
 
 unProcessingInstruction (ProcessingInstruction o) = o
@@ -3719,7 +3719,7 @@
 castToProcessingInstruction :: GObjectClass obj => obj -> ProcessingInstruction
 castToProcessingInstruction = castTo gTypeProcessingInstruction "ProcessingInstruction"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"ProcessingInstruction\"]" gTypeProcessingInstruction' :: JSRef GType
 #else
 gTypeProcessingInstruction' = error "gTypeProcessingInstruction': only available in JavaScript"
@@ -3730,7 +3730,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype DOMRange = DOMRange (JSRef DOMRange)
 
 unDOMRange (DOMRange o) = o
@@ -3747,7 +3747,7 @@
 castToDOMRange :: GObjectClass obj => obj -> DOMRange
 castToDOMRange = castTo gTypeDOMRange "DOMRange"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"DOMRange\"]" gTypeDOMRange' :: JSRef GType
 #else
 gTypeDOMRange' = error "gTypeDOMRange': only available in JavaScript"
@@ -3758,7 +3758,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype DOMScreen = DOMScreen (JSRef DOMScreen)
 
 unDOMScreen (DOMScreen o) = o
@@ -3775,7 +3775,7 @@
 castToDOMScreen :: GObjectClass obj => obj -> DOMScreen
 castToDOMScreen = castTo gTypeDOMScreen "DOMScreen"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"DOMScreen\"]" gTypeDOMScreen' :: JSRef GType
 #else
 gTypeDOMScreen' = error "gTypeDOMScreen': only available in JavaScript"
@@ -3786,7 +3786,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype Storage = Storage (JSRef Storage)
 
 unStorage (Storage o) = o
@@ -3803,7 +3803,7 @@
 castToStorage :: GObjectClass obj => obj -> Storage
 castToStorage = castTo gTypeStorage "Storage"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"Storage\"]" gTypeStorage' :: JSRef GType
 #else
 gTypeStorage' = error "gTypeStorage': only available in JavaScript"
@@ -3814,7 +3814,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype StorageInfo = StorageInfo (JSRef StorageInfo)
 
 unStorageInfo (StorageInfo o) = o
@@ -3831,7 +3831,7 @@
 castToStorageInfo :: GObjectClass obj => obj -> StorageInfo
 castToStorageInfo = castTo gTypeStorageInfo "StorageInfo"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"StorageInfo\"]" gTypeStorageInfo' :: JSRef GType
 #else
 gTypeStorageInfo' = error "gTypeStorageInfo': only available in JavaScript"
@@ -3841,7 +3841,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype StyleMedia = StyleMedia (JSRef StyleMedia)
 
 unStyleMedia (StyleMedia o) = o
@@ -3858,7 +3858,7 @@
 castToStyleMedia :: GObjectClass obj => obj -> StyleMedia
 castToStyleMedia = castTo gTypeStyleMedia "StyleMedia"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"StyleMedia\"]" gTypeStyleMedia' :: JSRef GType
 #else
 gTypeStyleMedia' = error "gTypeStyleMedia': only available in JavaScript"
@@ -3869,7 +3869,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype StyleSheet = StyleSheet (JSRef StyleSheet)
 
 unStyleSheet (StyleSheet o) = o
@@ -3886,7 +3886,7 @@
 castToStyleSheet :: GObjectClass obj => obj -> StyleSheet
 castToStyleSheet = castTo gTypeStyleSheet "StyleSheet"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"StyleSheet\"]" gTypeStyleSheet' :: JSRef GType
 #else
 gTypeStyleSheet' = error "gTypeStyleSheet': only available in JavaScript"
@@ -3897,7 +3897,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype StyleSheetList = StyleSheetList (JSRef StyleSheetList)
 
 unStyleSheetList (StyleSheetList o) = o
@@ -3914,7 +3914,7 @@
 castToStyleSheetList :: GObjectClass obj => obj -> StyleSheetList
 castToStyleSheetList = castTo gTypeStyleSheetList "StyleSheetList"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"StyleSheetList\"]" gTypeStyleSheetList' :: JSRef GType
 #else
 gTypeStyleSheetList' = error "gTypeStyleSheetList': only available in JavaScript"
@@ -3925,7 +3925,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype Text = Text (JSRef Text)
 
 unText (Text o) = o
@@ -3944,7 +3944,7 @@
 castToText :: GObjectClass obj => obj -> Text
 castToText = castTo gTypeText "Text"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"Text\"]" gTypeText' :: JSRef GType
 #else
 gTypeText' = error "gTypeText': only available in JavaScript"
@@ -3955,7 +3955,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype TimeRanges = TimeRanges (JSRef TimeRanges)
 
 unTimeRanges (TimeRanges o) = o
@@ -3972,7 +3972,7 @@
 castToTimeRanges :: GObjectClass obj => obj -> TimeRanges
 castToTimeRanges = castTo gTypeTimeRanges "TimeRanges"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"TimeRanges\"]" gTypeTimeRanges' :: JSRef GType
 #else
 gTypeTimeRanges' = error "gTypeTimeRanges': only available in JavaScript"
@@ -3983,7 +3983,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype TreeWalker = TreeWalker (JSRef TreeWalker)
 
 unTreeWalker (TreeWalker o) = o
@@ -4000,7 +4000,7 @@
 castToTreeWalker :: GObjectClass obj => obj -> TreeWalker
 castToTreeWalker = castTo gTypeTreeWalker "TreeWalker"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"TreeWalker\"]" gTypeTreeWalker' :: JSRef GType
 #else
 gTypeTreeWalker' = error "gTypeTreeWalker': only available in JavaScript"
@@ -4011,7 +4011,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype UIEvent = UIEvent (JSRef UIEvent)
 
 unUIEvent (UIEvent o) = o
@@ -4029,7 +4029,7 @@
 castToUIEvent :: GObjectClass obj => obj -> UIEvent
 castToUIEvent = castTo gTypeUIEvent "UIEvent"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"UIEvent\"]" gTypeUIEvent' :: JSRef GType
 #else
 gTypeUIEvent' = error "gTypeUIEvent': only available in JavaScript"
@@ -4040,7 +4040,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype ValidityState = ValidityState (JSRef ValidityState)
 
 unValidityState (ValidityState o) = o
@@ -4057,7 +4057,7 @@
 castToValidityState :: GObjectClass obj => obj -> ValidityState
 castToValidityState = castTo gTypeValidityState "ValidityState"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"ValidityState\"]" gTypeValidityState' :: JSRef GType
 #else
 gTypeValidityState' = error "gTypeValidityState': only available in JavaScript"
@@ -4068,7 +4068,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype WebKitNamedFlow = WebKitNamedFlow (JSRef WebKitNamedFlow)
 
 unWebKitNamedFlow (WebKitNamedFlow o) = o
@@ -4085,7 +4085,7 @@
 castToWebKitNamedFlow :: GObjectClass obj => obj -> WebKitNamedFlow
 castToWebKitNamedFlow = castTo gTypeWebKitNamedFlow "WebKitNamedFlow"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"WebKitNamedFlow\"]" gTypeWebKitNamedFlow' :: JSRef GType
 #else
 gTypeWebKitNamedFlow' = error "gTypeWebKitNamedFlow': only available in JavaScript"
@@ -4096,7 +4096,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype WebKitPoint = WebKitPoint (JSRef WebKitPoint)
 
 unWebKitPoint (WebKitPoint o) = o
@@ -4113,7 +4113,7 @@
 castToWebKitPoint :: GObjectClass obj => obj -> WebKitPoint
 castToWebKitPoint = castTo gTypeWebKitPoint "WebKitPoint"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"WebKitPoint\"]" gTypeWebKitPoint' :: JSRef GType
 #else
 gTypeWebKitPoint' = error "gTypeWebKitPoint': only available in JavaScript"
@@ -4124,7 +4124,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype XPathExpression = XPathExpression (JSRef XPathExpression)
 
 unXPathExpression (XPathExpression o) = o
@@ -4141,7 +4141,7 @@
 castToXPathExpression :: GObjectClass obj => obj -> XPathExpression
 castToXPathExpression = castTo gTypeXPathExpression "XPathExpression"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"XPathExpression\"]" gTypeXPathExpression' :: JSRef GType
 #else
 gTypeXPathExpression' = error "gTypeXPathExpression': only available in JavaScript"
@@ -4152,7 +4152,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype XPathNSResolver = XPathNSResolver (JSRef XPathNSResolver)
 
 unXPathNSResolver (XPathNSResolver o) = o
@@ -4169,7 +4169,7 @@
 castToXPathNSResolver :: GObjectClass obj => obj -> XPathNSResolver
 castToXPathNSResolver = castTo gTypeXPathNSResolver "XPathNSResolver"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"XPathNSResolver\"]" gTypeXPathNSResolver' :: JSRef GType
 #else
 gTypeXPathNSResolver' = error "gTypeXPathNSResolver': only available in JavaScript"
@@ -4180,7 +4180,7 @@
 #endif
 
 
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 newtype XPathResult = XPathResult (JSRef XPathResult)
 
 unXPathResult (XPathResult o) = o
@@ -4197,7 +4197,7 @@
 castToXPathResult :: GObjectClass obj => obj -> XPathResult
 castToXPathResult = castTo gTypeXPathResult "XPathResult"
 
-#ifdef __GHCJS__
+#ifdef ghcjs_HOST_OS
 foreign import javascript unsafe "window[\"XPathResult\"]" gTypeXPathResult' :: JSRef GType
 #else
 gTypeXPathResult' = error "gTypeXPathResult': only available in JavaScript"
diff --git a/src/GHCJS/DOM/UIEvent.hs b/src/GHCJS/DOM/UIEvent.hs
--- a/src/GHCJS/DOM/UIEvent.hs
+++ b/src/GHCJS/DOM/UIEvent.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.UIEvent
        (ghcjs_dom_ui_event_init_ui_event, uiEventInitUIEvent,
@@ -27,7 +27,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "$1[\"initUIEvent\"]($2, $3, $4,\n$5, $6)"
         ghcjs_dom_ui_event_init_ui_event ::
@@ -52,7 +52,7 @@
       detail
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"view\"]"
         ghcjs_dom_ui_event_get_view ::
         JSRef UIEvent -> IO (JSRef DOMWindow)
@@ -68,7 +68,7 @@
       (ghcjs_dom_ui_event_get_view (unUIEvent (toUIEvent self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"detail\"]"
         ghcjs_dom_ui_event_get_detail :: JSRef UIEvent -> IO Int
 #else 
@@ -81,7 +81,7 @@
   = ghcjs_dom_ui_event_get_detail (unUIEvent (toUIEvent self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"keyCode\"]"
         ghcjs_dom_ui_event_get_key_code :: JSRef UIEvent -> IO Int
 #else 
@@ -94,7 +94,7 @@
   = ghcjs_dom_ui_event_get_key_code (unUIEvent (toUIEvent self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"charCode\"]"
         ghcjs_dom_ui_event_get_char_code :: JSRef UIEvent -> IO Int
 #else 
@@ -107,7 +107,7 @@
   = ghcjs_dom_ui_event_get_char_code (unUIEvent (toUIEvent self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"layerX\"]"
         ghcjs_dom_ui_event_get_layer_x :: JSRef UIEvent -> IO Int
 #else 
@@ -120,7 +120,7 @@
   = ghcjs_dom_ui_event_get_layer_x (unUIEvent (toUIEvent self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"layerY\"]"
         ghcjs_dom_ui_event_get_layer_y :: JSRef UIEvent -> IO Int
 #else 
@@ -133,7 +133,7 @@
   = ghcjs_dom_ui_event_get_layer_y (unUIEvent (toUIEvent self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"pageX\"]"
         ghcjs_dom_ui_event_get_page_x :: JSRef UIEvent -> IO Int
 #else 
@@ -146,7 +146,7 @@
   = ghcjs_dom_ui_event_get_page_x (unUIEvent (toUIEvent self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"pageY\"]"
         ghcjs_dom_ui_event_get_page_y :: JSRef UIEvent -> IO Int
 #else 
@@ -159,7 +159,7 @@
   = ghcjs_dom_ui_event_get_page_y (unUIEvent (toUIEvent self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"which\"]"
         ghcjs_dom_ui_event_get_which :: JSRef UIEvent -> IO Int
 #else 
diff --git a/src/GHCJS/DOM/ValidityState.hs b/src/GHCJS/DOM/ValidityState.hs
--- a/src/GHCJS/DOM/ValidityState.hs
+++ b/src/GHCJS/DOM/ValidityState.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.ValidityState
        (ghcjs_dom_validity_state_get_value_missing,
@@ -36,7 +36,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"valueMissing\"] ? 1 : 0)"
         ghcjs_dom_validity_state_get_value_missing ::
         JSRef ValidityState -> IO Bool
@@ -53,7 +53,7 @@
       (unValidityState (toValidityState self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"typeMismatch\"] ? 1 : 0)"
         ghcjs_dom_validity_state_get_type_mismatch ::
         JSRef ValidityState -> IO Bool
@@ -70,7 +70,7 @@
       (unValidityState (toValidityState self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "($1[\"patternMismatch\"] ? 1 : 0)"
         ghcjs_dom_validity_state_get_pattern_mismatch ::
@@ -88,7 +88,7 @@
       (unValidityState (toValidityState self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"tooLong\"] ? 1 : 0)"
         ghcjs_dom_validity_state_get_too_long ::
         JSRef ValidityState -> IO Bool
@@ -105,7 +105,7 @@
       (unValidityState (toValidityState self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"rangeUnderflow\"] ? 1 : 0)"
         ghcjs_dom_validity_state_get_range_underflow ::
         JSRef ValidityState -> IO Bool
@@ -122,7 +122,7 @@
       (unValidityState (toValidityState self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"rangeOverflow\"] ? 1 : 0)"
         ghcjs_dom_validity_state_get_range_overflow ::
         JSRef ValidityState -> IO Bool
@@ -139,7 +139,7 @@
       (unValidityState (toValidityState self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"stepMismatch\"] ? 1 : 0)"
         ghcjs_dom_validity_state_get_step_mismatch ::
         JSRef ValidityState -> IO Bool
@@ -156,7 +156,7 @@
       (unValidityState (toValidityState self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"badInput\"] ? 1 : 0)"
         ghcjs_dom_validity_state_get_bad_input ::
         JSRef ValidityState -> IO Bool
@@ -173,7 +173,7 @@
       (unValidityState (toValidityState self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"customError\"] ? 1 : 0)"
         ghcjs_dom_validity_state_get_custom_error ::
         JSRef ValidityState -> IO Bool
@@ -190,7 +190,7 @@
       (unValidityState (toValidityState self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"valid\"] ? 1 : 0)"
         ghcjs_dom_validity_state_get_valid ::
         JSRef ValidityState -> IO Bool
diff --git a/src/GHCJS/DOM/WebKitNamedFlow.hs b/src/GHCJS/DOM/WebKitNamedFlow.hs
--- a/src/GHCJS/DOM/WebKitNamedFlow.hs
+++ b/src/GHCJS/DOM/WebKitNamedFlow.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.WebKitNamedFlow
        (ghcjs_dom_webkit_named_flow_get_regions_by_content,
@@ -30,7 +30,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"getRegionsByContent\"]($2)"
         ghcjs_dom_webkit_named_flow_get_regions_by_content ::
         JSRef WebKitNamedFlow -> JSRef Node -> IO (JSRef NodeList)
@@ -51,7 +51,7 @@
          (maybe jsNull (unNode . toNode) contentNode))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"getRegions\"]()"
         ghcjs_dom_webkit_named_flow_get_regions ::
         JSRef WebKitNamedFlow -> IO (JSRef NodeList)
@@ -69,7 +69,7 @@
          (unWebKitNamedFlow (toWebKitNamedFlow self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"getContent\"]()"
         ghcjs_dom_webkit_named_flow_get_content ::
         JSRef WebKitNamedFlow -> IO (JSRef NodeList)
@@ -87,7 +87,7 @@
          (unWebKitNamedFlow (toWebKitNamedFlow self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "($1[\"dispatchEvent\"]($2) ? 1 : 0)"
         ghcjs_dom_webkit_named_flow_dispatch_event ::
@@ -107,7 +107,7 @@
       (maybe jsNull (unEvent . toEvent) event)
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"name\"]"
         ghcjs_dom_webkit_named_flow_get_name ::
         JSRef WebKitNamedFlow -> IO JSString
@@ -125,7 +125,7 @@
          (unWebKitNamedFlow (toWebKitNamedFlow self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"overset\"] ? 1 : 0)"
         ghcjs_dom_webkit_named_flow_get_overset ::
         JSRef WebKitNamedFlow -> IO Bool
@@ -142,7 +142,7 @@
       (unWebKitNamedFlow (toWebKitNamedFlow self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"firstEmptyRegionIndex\"]"
         ghcjs_dom_webkit_named_flow_get_first_empty_region_index ::
         JSRef WebKitNamedFlow -> IO Int
diff --git a/src/GHCJS/DOM/WebKitPoint.hs b/src/GHCJS/DOM/WebKitPoint.hs
--- a/src/GHCJS/DOM/WebKitPoint.hs
+++ b/src/GHCJS/DOM/WebKitPoint.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.WebKitPoint
        (ghcjs_dom_webkit_point_set_x, webKitPointSetX,
@@ -23,7 +23,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"x\"] = $2;"
         ghcjs_dom_webkit_point_set_x :: JSRef WebKitPoint -> Float -> IO ()
 #else 
@@ -37,7 +37,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"x\"]"
         ghcjs_dom_webkit_point_get_x :: JSRef WebKitPoint -> IO Float
 #else 
@@ -50,7 +50,7 @@
   = ghcjs_dom_webkit_point_get_x (unWebKitPoint (toWebKitPoint self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"y\"] = $2;"
         ghcjs_dom_webkit_point_set_y :: JSRef WebKitPoint -> Float -> IO ()
 #else 
@@ -64,7 +64,7 @@
       val
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"y\"]"
         ghcjs_dom_webkit_point_get_y :: JSRef WebKitPoint -> IO Float
 #else 
diff --git a/src/GHCJS/DOM/XPathExpression.hs b/src/GHCJS/DOM/XPathExpression.hs
--- a/src/GHCJS/DOM/XPathExpression.hs
+++ b/src/GHCJS/DOM/XPathExpression.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.XPathExpression
        (ghcjs_dom_xpath_expression_evaluate, xPathExpressionEvaluate,
@@ -21,7 +21,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"evaluate\"]($2, $3, $4)"
         ghcjs_dom_xpath_expression_evaluate ::
         JSRef XPathExpression ->
diff --git a/src/GHCJS/DOM/XPathNSResolver.hs b/src/GHCJS/DOM/XPathNSResolver.hs
--- a/src/GHCJS/DOM/XPathNSResolver.hs
+++ b/src/GHCJS/DOM/XPathNSResolver.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.XPathNSResolver
        (ghcjs_dom_xpath_ns_resolver_lookup_namespace_uri,
@@ -22,7 +22,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"lookupNamespaceURI\"]($2)"
         ghcjs_dom_xpath_ns_resolver_lookup_namespace_uri ::
         JSRef XPathNSResolver -> JSString -> IO JSString
diff --git a/src/GHCJS/DOM/XPathResult.hs b/src/GHCJS/DOM/XPathResult.hs
--- a/src/GHCJS/DOM/XPathResult.hs
+++ b/src/GHCJS/DOM/XPathResult.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
+#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
 {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
 module GHCJS.DOM.XPathResult
        (ghcjs_dom_xpath_result_iterate_next, xPathResultIterateNext,
@@ -36,7 +36,7 @@
 
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"iterateNext\"]()"
         ghcjs_dom_xpath_result_iterate_next ::
         JSRef XPathResult -> IO (JSRef Node)
@@ -54,7 +54,7 @@
          (unXPathResult (toXPathResult self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"snapshotItem\"]($2)"
         ghcjs_dom_xpath_result_snapshot_item ::
         JSRef XPathResult -> Word -> IO (JSRef Node)
@@ -83,7 +83,7 @@
 cFIRST_ORDERED_NODE_TYPE = 9
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"resultType\"]"
         ghcjs_dom_xpath_result_get_result_type ::
         JSRef XPathResult -> IO Word
@@ -99,7 +99,7 @@
       (unXPathResult (toXPathResult self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"numberValue\"]"
         ghcjs_dom_xpath_result_get_number_value ::
         JSRef XPathResult -> IO Double
@@ -116,7 +116,7 @@
       (unXPathResult (toXPathResult self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"stringValue\"]"
         ghcjs_dom_xpath_result_get_string_value ::
         JSRef XPathResult -> IO JSString
@@ -134,7 +134,7 @@
          (unXPathResult (toXPathResult self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "($1[\"booleanValue\"] ? 1 : 0)"
         ghcjs_dom_xpath_result_get_boolean_value ::
         JSRef XPathResult -> IO Bool
@@ -151,7 +151,7 @@
       (unXPathResult (toXPathResult self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"singleNodeValue\"]"
         ghcjs_dom_xpath_result_get_single_node_value ::
         JSRef XPathResult -> IO (JSRef Node)
@@ -169,7 +169,7 @@
          (unXPathResult (toXPathResult self)))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe
         "($1[\"invalidIteratorState\"] ? 1 : 0)"
         ghcjs_dom_xpath_result_get_invalid_iterator_state ::
@@ -187,7 +187,7 @@
       (unXPathResult (toXPathResult self))
 
 
-#ifdef __GHCJS__ 
+#ifdef ghcjs_HOST_OS 
 foreign import javascript unsafe "$1[\"snapshotLength\"]"
         ghcjs_dom_xpath_result_get_snapshot_length ::
         JSRef XPathResult -> IO Word