aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/lux/tool/compiler/phase/generation/scheme/primitive.jvm.lux
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/lux/tool/compiler/phase/generation/scheme/primitive.jvm.lux')
-rw-r--r--stdlib/source/lux/tool/compiler/phase/generation/scheme/primitive.jvm.lux15
1 files changed, 15 insertions, 0 deletions
diff --git a/stdlib/source/lux/tool/compiler/phase/generation/scheme/primitive.jvm.lux b/stdlib/source/lux/tool/compiler/phase/generation/scheme/primitive.jvm.lux
new file mode 100644
index 000000000..d53a0691e
--- /dev/null
+++ b/stdlib/source/lux/tool/compiler/phase/generation/scheme/primitive.jvm.lux
@@ -0,0 +1,15 @@
+(.module:
+ [lux (#- i64)
+ [host
+ ["_" scheme (#+ Expression)]]])
+
+(do-template [<name> <type> <code>]
+ [(def: #export <name>
+ (-> <type> Expression)
+ <code>)]
+
+ [bit Bit _.bool]
+ [i64 (I64 Any) (|>> .int _.int)]
+ [f64 Frac _.float]
+ [text Text _.string]
+ )