diff options
author | Eduardo Julian | 2018-07-21 02:10:54 -0400 |
---|---|---|
committer | Eduardo Julian | 2018-07-21 02:10:54 -0400 |
commit | 660c7fe6af927c6e668a86e44fd2f0a9b1fb8b8b (patch) | |
tree | 3110462b0bca61fd2f9082b1c352bd5346b11662 /stdlib/source/lux/compiler/default/phase/translation/scheme/primitive.jvm.lux | |
parent | 76e97634aaab09c89a895a6f6e863d10479821d1 (diff) |
- Re-named "Compiler" to "Phase".
- Re-structured the compiler infrastructure.
Diffstat (limited to 'stdlib/source/lux/compiler/default/phase/translation/scheme/primitive.jvm.lux')
-rw-r--r-- | stdlib/source/lux/compiler/default/phase/translation/scheme/primitive.jvm.lux | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/stdlib/source/lux/compiler/default/phase/translation/scheme/primitive.jvm.lux b/stdlib/source/lux/compiler/default/phase/translation/scheme/primitive.jvm.lux new file mode 100644 index 000000000..c16c696c4 --- /dev/null +++ b/stdlib/source/lux/compiler/default/phase/translation/scheme/primitive.jvm.lux @@ -0,0 +1,25 @@ +(.module: + [lux (#- i64)] + [// + [runtime (#+ Operation)] + [// (#+ State) + [// ("operation/." Monad<Operation>) + [/// + [host + ["_" scheme (#+ Expression)]]]]]]) + +(def: #export bit + (-> Bit (Operation Expression)) + (|>> _.bool operation/wrap)) + +(def: #export i64 + (-> (I64 Any) (Operation Expression)) + (|>> .int _.int operation/wrap)) + +(def: #export f64 + (-> Frac (Operation Expression)) + (|>> _.float operation/wrap)) + +(def: #export text + (-> Text (Operation Expression)) + (|>> _.string operation/wrap)) |