diff options
Diffstat (limited to '')
-rw-r--r-- | new-luxc/source/luxc/lang/translation/scheme.lux | 16 | ||||
-rw-r--r-- | new-luxc/source/luxc/lang/translation/scheme/eval.jvm.lux | 24 |
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)) |