aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source/luxc/lang/translation/scheme/primitive.jvm.lux
diff options
context:
space:
mode:
authorEduardo Julian2018-06-17 00:27:21 -0400
committerEduardo Julian2018-06-17 00:27:21 -0400
commitb6ccfc87c52e1a98ead3b04b45bccc119418a4dc (patch)
treedb13d4605a0a3041de6ef2ef5ddc92b766f1a7f3 /new-luxc/source/luxc/lang/translation/scheme/primitive.jvm.lux
parentbcd3d9ee8f6797f758a2abea98d5cb6a74cc7df0 (diff)
- Migrated Scheme back-end to stdlib.
Diffstat (limited to '')
-rw-r--r--new-luxc/source/luxc/lang/translation/scheme/primitive.jvm.lux30
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))