diff options
Diffstat (limited to 'stdlib/source/library/lux/ffi.js.lux')
-rw-r--r-- | stdlib/source/library/lux/ffi.js.lux | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/stdlib/source/library/lux/ffi.js.lux b/stdlib/source/library/lux/ffi.js.lux index 0b641a3a6..069e38123 100644 --- a/stdlib/source/library/lux/ffi.js.lux +++ b/stdlib/source/library/lux/ffi.js.lux @@ -22,7 +22,7 @@ ["." code] ["." template]]]]) -(abstract: #export (Object brand) +(abstract: .public (Object brand) Any) (template [<name>] @@ -30,7 +30,7 @@ (abstract: <brand> Any - (type: #export <name> + (type: .public <name> (Object <brand>))))] [Function] @@ -40,7 +40,7 @@ ) (template [<name> <type>] - [(type: #export <name> + [(type: .public <name> <type>)] [Boolean Bit] @@ -149,11 +149,11 @@ ("js object null"))) input)) -(def: #export (null _) +(def: .public (null _) (-> Any Nothing) (:assume ("js object null"))) -(def: #export null? +(def: .public null? (-> Any Bit) (|>> "js object null?")) @@ -232,7 +232,7 @@ ("js constant" (~ (code.text source))) (~+ (list\map (with_null g!temp) g!inputs))))))))))) -(syntax: #export (import: {import ..import}) +(syntax: .public (import: {import ..import}) (with_gensyms [g!temp] (case import (#Class [[class_name class_parameters] format members]) @@ -319,10 +319,10 @@ outputT))) ))) -(template: #export (type_of object) +(template: .public (type_of object) ("js type-of" object)) -(syntax: #export (constant type +(syntax: .public (constant type {[head tail] (<code>.tuple (<>.and <code>.local_identifier (<>.some <code>.local_identifier)))}) (with_gensyms [g!_] (let [constant (` ("js constant" (~ (code.text head))))] @@ -356,7 +356,7 @@ .true)) (template [<name> <constant>] - [(def: #export <name> + [(def: .public <name> Bit (!defined? <constant>))] @@ -364,7 +364,7 @@ [on_nashorn? [java lang Object]] ) -(def: #export on_node_js? +(def: .public on_node_js? Bit (case (..constant (Object Any) [process]) (#.Some process) @@ -379,7 +379,7 @@ #.None false)) -(template: #export (closure <inputs> <output>) +(template: .public (closure <inputs> <output>) (.:as ..Function (`` ("js function" (~~ (template.amount <inputs>)) |