diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/library/lux/ffi.js.lux | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/stdlib/source/library/lux/ffi.js.lux b/stdlib/source/library/lux/ffi.js.lux index b827c962f..8230be249 100644 --- a/stdlib/source/library/lux/ffi.js.lux +++ b/stdlib/source/library/lux/ffi.js.lux @@ -144,10 +144,10 @@ (-> Code [Bit Code] Code) (if nullable? (` (case (~ input) - {#.Some (~ g!temp)} + {.#Some (~ g!temp)} (~ g!temp) - #.None + {.#None} ("js object null"))) input)) @@ -164,8 +164,8 @@ (if nullable? (` (let [(~ g!temp) (~ output)] (if ("js object null?" (~ g!temp)) - #.None - {#.Some (~ g!temp)}))) + {.#None} + {.#Some (~ g!temp)}))) (` (let [(~ g!temp) (~ output)] (if (not ("js object null?" (~ g!temp))) (~ g!temp) @@ -330,21 +330,21 @@ (with_identifiers [g!_] (let [constant (` ("js constant" (~ (code.text head))))] (case tail - #.End + {.#End} (in (list (` (: (.Maybe (~ type)) (case (..type_of (~ constant)) "undefined" - #.None + {.#None} (~ g!_) - {#.Some (:as (~ type) (~ constant))}))))) + {.#Some (:as (~ type) (~ constant))}))))) - {#.Item [next tail]} + {.#Item [next tail]} (let [separator "."] (in (list (` (: (.Maybe (~ type)) (case (..type_of (~ constant)) "undefined" - #.None + {.#None} (~ g!_) (..constant (~ type) [(~ (code.local_identifier (%.format head "." next))) @@ -352,10 +352,10 @@ (template: (!defined? <constant>) [(.case (..constant Any <constant>) - #.None + {.#None} .false - {#.Some _} + {.#Some _} .true)]) (template [<name> <constant>] @@ -370,7 +370,7 @@ (def: .public on_node_js? Bit (case (..constant (Object Any) [process]) - {#.Some process} + {.#Some process} (case (:as Text ("js apply" ("js constant" "Object.prototype.toString.call") process)) "[object process]" @@ -379,7 +379,7 @@ _ false) - #.None + {.#None} false)) (template: .public (closure <inputs> <output>) |