aboutsummaryrefslogtreecommitdiff
path: root/lux-scheme
diff options
context:
space:
mode:
Diffstat (limited to 'lux-scheme')
-rw-r--r--lux-scheme/source/program.lux12
1 files changed, 6 insertions, 6 deletions
diff --git a/lux-scheme/source/program.lux b/lux-scheme/source/program.lux
index 5ffdcf74b..3371bb506 100644
--- a/lux-scheme/source/program.lux
+++ b/lux-scheme/source/program.lux
@@ -85,7 +85,7 @@
(ffi.import: gnu/math/IntNum
["#::."
- (new #manual [int])
+ (new "manual" [int])
(longValue [] long)])
(ffi.import: gnu/math/DFloNum
@@ -107,7 +107,7 @@
(ffi.import: gnu/lists/EmptyList
["#::."
- (#static emptyList gnu/lists/EmptyList)])
+ ("static" emptyList gnu/lists/EmptyList)])
(ffi.import: (gnu/lists/FVector E)
["#::."
@@ -118,18 +118,18 @@
(ffi.import: gnu/mapping/Procedure
["#::."
- (apply2 [java/lang/Object java/lang/Object] #try java/lang/Object)
- (applyN [[java/lang/Object]] #try java/lang/Object)])
+ (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/expr/Language
["#::."
- (eval [java/lang/String] #try java/lang/Object)])
+ (eval [java/lang/String] "try" java/lang/Object)])
(ffi.import: kawa/standard/Scheme
["#::."
- (#static getR7rsInstance [] kawa/standard/Scheme)])
+ ("static" getR7rsInstance [] kawa/standard/Scheme)])
(def: (variant? value)
(-> Any Bit)