From 0bba53ceb52502510e0f6ba4c53a951933532a61 Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Sat, 14 Apr 2018 13:32:43 -0400 Subject: - Made everything an expression for R translation. --- new-luxc/source/luxc/lang/translation/r/eval.jvm.lux | 17 ++--------------- 1 file changed, 2 insertions(+), 15 deletions(-) (limited to 'new-luxc/source/luxc/lang/translation/r/eval.jvm.lux') 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 [] @@ -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)) -- cgit v1.2.3