diff options
author | Eduardo Julian | 2018-06-17 00:27:21 -0400 |
---|---|---|
committer | Eduardo Julian | 2018-06-17 00:27:21 -0400 |
commit | b6ccfc87c52e1a98ead3b04b45bccc119418a4dc (patch) | |
tree | db13d4605a0a3041de6ef2ef5ddc92b766f1a7f3 /new-luxc/source/luxc/lang/translation/scheme/primitive.jvm.lux | |
parent | bcd3d9ee8f6797f758a2abea98d5cb6a74cc7df0 (diff) |
- Migrated Scheme back-end to stdlib.
Diffstat (limited to '')
-rw-r--r-- | new-luxc/source/luxc/lang/translation/scheme/primitive.jvm.lux | 30 |
1 files changed, 0 insertions, 30 deletions
diff --git a/new-luxc/source/luxc/lang/translation/scheme/primitive.jvm.lux b/new-luxc/source/luxc/lang/translation/scheme/primitive.jvm.lux deleted file mode 100644 index c7043eeb7..000000000 --- a/new-luxc/source/luxc/lang/translation/scheme/primitive.jvm.lux +++ /dev/null @@ -1,30 +0,0 @@ -(.module: - lux - (lux [macro "meta/" Monad<Meta>]) - (luxc (lang (host [scheme #+ Expression]))) - [//] - (// [".T" runtime])) - -(def: #export translate-bool - (-> Bool (Meta Expression)) - (|>> scheme.bool meta/wrap)) - -(def: #export translate-int - (-> Int (Meta Expression)) - (|>> scheme.int meta/wrap)) - -(def: #export translate-nat - (-> Nat (Meta Expression)) - (|>> (:! Int) scheme.int meta/wrap)) - -(def: #export translate-deg - (-> Deg (Meta Expression)) - (|>> (:! Int) scheme.int meta/wrap)) - -(def: #export translate-frac - (-> Frac (Meta Expression)) - (|>> scheme.float meta/wrap)) - -(def: #export translate-text - (-> Text (Meta Expression)) - (|>> scheme.string meta/wrap)) |