diff options
Diffstat (limited to 'lux-scheme')
-rw-r--r-- | lux-scheme/source/program.lux | 38 |
1 files changed, 19 insertions, 19 deletions
diff --git a/lux-scheme/source/program.lux b/lux-scheme/source/program.lux index b91b74727..05f5bb3b3 100644 --- a/lux-scheme/source/program.lux +++ b/lux-scheme/source/program.lux @@ -65,75 +65,75 @@ ["[1][0]" cli] ["[1][0]" static]]]) -(ffi.import: java/lang/Boolean +(ffi.import java/lang/Boolean "[1]::[0]") -(ffi.import: java/lang/String +(ffi.import java/lang/String "[1]::[0]") -(ffi.import: (java/lang/Class a) +(ffi.import (java/lang/Class a) "[1]::[0]") -(ffi.import: java/lang/Object +(ffi.import java/lang/Object "[1]::[0]" (toString [] java/lang/String) (getClass [] (java/lang/Class java/lang/Object))) -(ffi.import: java/lang/Long +(ffi.import java/lang/Long "[1]::[0]" (intValue [] java/lang/Integer)) -(ffi.import: java/lang/Integer +(ffi.import java/lang/Integer "[1]::[0]" (longValue [] java/lang/Long)) -(ffi.import: gnu/math/IntNum +(ffi.import gnu/math/IntNum "[1]::[0]" (new "manual" [int]) (longValue [] long)) -(ffi.import: gnu/math/DFloNum +(ffi.import gnu/math/DFloNum "[1]::[0]" (doubleValue [] double)) -(ffi.import: gnu/lists/FString +(ffi.import gnu/lists/FString "[1]::[0]" (toString [] String)) -(ffi.import: gnu/lists/IString +(ffi.import gnu/lists/IString "[1]::[0]" (toString [] String)) -(ffi.import: gnu/lists/Pair +(ffi.import gnu/lists/Pair "[1]::[0]" (getCar [] java/lang/Object) (getCdr [] java/lang/Object)) -(ffi.import: gnu/lists/EmptyList +(ffi.import gnu/lists/EmptyList "[1]::[0]" ("static" emptyList gnu/lists/EmptyList)) -(ffi.import: (gnu/lists/FVector E) +(ffi.import (gnu/lists/FVector E) "[1]::[0]" (getBufferLength [] int) (getRaw [int] E)) -(ffi.import: gnu/lists/U8Vector +(ffi.import gnu/lists/U8Vector "[1]::[0]") -(ffi.import: gnu/mapping/Procedure +(ffi.import gnu/mapping/Procedure "[1]::[0]" (apply2 [java/lang/Object java/lang/Object] "try" java/lang/Object) (applyN [[java/lang/Object]] "try" java/lang/Object)) -(ffi.import: gnu/mapping/Environment +(ffi.import gnu/mapping/Environment "[1]::[0]") -(ffi.import: gnu/expr/Language +(ffi.import gnu/expr/Language "[1]::[0]" (eval [java/lang/String] "try" java/lang/Object)) -(ffi.import: kawa/standard/Scheme +(ffi.import kawa/standard/Scheme "[1]::[0]" ("static" getR7rsInstance [] kawa/standard/Scheme)) @@ -163,7 +163,7 @@ [(ffi.interface: <name> (getValue [] java/lang/Object)) - (`` (ffi.import: (~~ (template.symbol ["program/" <name>])) + (`` (ffi.import (~~ (template.symbol ["program/" <name>])) "[1]::[0]" (getValue [] java/lang/Object)))] |