diff options
author | Eduardo Julian | 2018-04-14 13:32:43 -0400 |
---|---|---|
committer | Eduardo Julian | 2018-04-14 13:32:43 -0400 |
commit | 0bba53ceb52502510e0f6ba4c53a951933532a61 (patch) | |
tree | 82bd7fe239dc7996e9542fc9b5fea5768579bd0f /new-luxc/source/luxc/lang/translation/r/eval.jvm.lux | |
parent | 1a3fa23f5c0444f0f8273cbc21875eeabdc321aa (diff) |
- Made everything an expression for R translation.
Diffstat (limited to '')
-rw-r--r-- | new-luxc/source/luxc/lang/translation/r/eval.jvm.lux | 17 |
1 files changed, 2 insertions, 15 deletions
diff --git a/new-luxc/source/luxc/lang/translation/r/eval.jvm.lux b/new-luxc/source/luxc/lang/translation/r/eval.jvm.lux index 27d05fdaa..c026750a7 100644 --- a/new-luxc/source/luxc/lang/translation/r/eval.jvm.lux +++ b/new-luxc/source/luxc/lang/translation/r/eval.jvm.lux @@ -9,7 +9,7 @@ (coll [array])) [host]) (luxc [lang] - (lang (host [r #+ Expression Statement]))) + (lang (host [r #+ Expression]))) [//]) (do-template [<name>] @@ -124,20 +124,7 @@ ## else (let [object-class (:! Text (Object::toString [] (Object::getClass [] (:! Object host-object)))) text-representation (:! Text (Object::toString [] (:! Object host-object)))] - (ex.throw Unknown-Kind-Of-Host-Object (format object-class " --- " text-representation)))) - ## (case (python-type host-object) - ## "tuple" - ## (tuple lux-object host-object) - - ## "dict" - ## (variant lux-object host-object) - - ## "NoneType" - ## (#e.Success []) - - ## type - ## (ex.throw Unknown-Kind-Of-Host-Object (format type " " (Object::toString [] host-object)))) - ) + (ex.throw Unknown-Kind-Of-Host-Object (format object-class " --- " text-representation))))) (def: #export (eval code) (-> Expression (Meta Top)) |