aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source/luxc/lang/translation/scheme
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--new-luxc/source/luxc/lang/translation/scheme.lux16
-rw-r--r--new-luxc/source/luxc/lang/translation/scheme/eval.jvm.lux24
2 files changed, 20 insertions, 20 deletions
diff --git a/new-luxc/source/luxc/lang/translation/scheme.lux b/new-luxc/source/luxc/lang/translation/scheme.lux
index af3208414..44a5808cb 100644
--- a/new-luxc/source/luxc/lang/translation/scheme.lux
+++ b/new-luxc/source/luxc/lang/translation/scheme.lux
@@ -28,26 +28,26 @@
[No-Anchor]
)
-(host.import java/lang/Object)
+(host.import: java/lang/Object)
-(host.import java/lang/String
+(host.import: java/lang/String
(getBytes [String] #try (Array byte)))
-(host.import java/lang/CharSequence)
+(host.import: java/lang/CharSequence)
-(host.import java/lang/Appendable
+(host.import: java/lang/Appendable
(append [CharSequence] Appendable))
-(host.import java/lang/StringBuilder
+(host.import: java/lang/StringBuilder
(new [])
(toString [] String))
-(host.import gnu/mapping/Environment)
+(host.import: gnu/mapping/Environment)
-(host.import gnu/expr/Language
+(host.import: gnu/expr/Language
(eval [String] #try #? Object))
-(host.import kawa/standard/Scheme
+(host.import: kawa/standard/Scheme
(#static getR7rsInstance [] Scheme))
(type: #export Anchor [Text Register])
diff --git a/new-luxc/source/luxc/lang/translation/scheme/eval.jvm.lux b/new-luxc/source/luxc/lang/translation/scheme/eval.jvm.lux
index 72c58587c..cbdd43d94 100644
--- a/new-luxc/source/luxc/lang/translation/scheme/eval.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/scheme/eval.jvm.lux
@@ -23,40 +23,40 @@
[invalid-variant]
)
-(host.import java/lang/Object
+(host.import: java/lang/Object
(toString [] String)
(getClass [] (Class Object)))
-(host.import java/lang/Long
+(host.import: java/lang/Long
(intValue [] Integer))
-(host.import java/lang/Boolean)
-(host.import java/lang/String)
+(host.import: java/lang/Boolean)
+(host.import: java/lang/String)
-(host.import gnu/math/IntNum
+(host.import: gnu/math/IntNum
(longValue [] long))
-(host.import gnu/math/DFloNum
+(host.import: gnu/math/DFloNum
(doubleValue [] double))
-(host.import (gnu/lists/FVector E)
+(host.import: (gnu/lists/FVector E)
(getBufferLength [] int)
(get [int] E))
-(host.import gnu/lists/EmptyList)
+(host.import: gnu/lists/EmptyList)
-(host.import gnu/lists/FString
+(host.import: gnu/lists/FString
(toString [] String))
-(host.import gnu/lists/Pair
+(host.import: gnu/lists/Pair
(getCar [] Object)
(getCdr [] Object)
(get [int] Object))
-(host.import gnu/mapping/Symbol
+(host.import: gnu/mapping/Symbol
(getName [] String))
-(host.import gnu/mapping/SimpleSymbol)
+(host.import: gnu/mapping/SimpleSymbol)
(def: (parse-tuple lux-object host-object)
(-> (-> Object (Error Any)) (FVector Object) (Error Any))