aboutsummaryrefslogtreecommitdiff
path: root/lux-scheme
diff options
context:
space:
mode:
Diffstat (limited to 'lux-scheme')
-rw-r--r--lux-scheme/source/program.lux18
1 files changed, 9 insertions, 9 deletions
diff --git a/lux-scheme/source/program.lux b/lux-scheme/source/program.lux
index b437e1e23..cac099f5d 100644
--- a/lux-scheme/source/program.lux
+++ b/lux-scheme/source/program.lux
@@ -135,7 +135,7 @@
(-> Any Bit)
(case (ffi.check [java/lang/Object] (:as java/lang/Object value))
(#.Some array)
- ## TODO: Get rid of this coercion ASAP.
+ ... TODO: Get rid of this coercion ASAP.
(let [array (:as (Array java/lang/Object) array)]
(and (n.= 3 (array.size array))
(case (array.read 0 array)
@@ -169,7 +169,7 @@
(-> (-> java/lang/Object java/lang/Object) Bit (Array java/lang/Object) gnu/lists/Pair)
(ffi.object [] gnu/lists/Pair [program/VariantValue]
[]
- ## Methods
+ ... Methods
(program/VariantValue
[] (getValue self) java/lang/Object
(:as java/lang/Object value))
@@ -200,7 +200,7 @@
(-> (-> java/lang/Object java/lang/Object) (Array java/lang/Object) gnu/lists/FVector)
(ffi.object [] gnu/lists/SimpleVector [program/TupleValue gnu/lists/GVector]
[]
- ## Methods
+ ... Methods
(program/TupleValue
[] (getValue self) java/lang/Object
(:as java/lang/Object value))
@@ -244,7 +244,7 @@
(-> java/lang/Object java/lang/Object)
(<| (case (ffi.check [java/lang/Object] value)
(#.Some value)
- ## TODO: Get rid of the coercions below.
+ ... TODO: Get rid of the coercions below.
(if (variant? value)
(variant_value lux_value false (:as (Array java/lang/Object) value))
(tuple_value lux_value (:as (Array java/lang/Object) value)))
@@ -328,7 +328,7 @@
(#.Some host_object)
(read_tuple read (:as (gnu/lists/FVector java/lang/Object) host_object))
#.None)
- ## else
+ ... else
(exception.throw ..unknown_kind_of_host_object host_object))))
(def: ensure_macro
@@ -404,16 +404,16 @@
(def: (program context program)
(Program _.Expression _.Expression)
(_.apply/2 program
- ## TODO: Figure out how to always get the command-line
- ## arguments.
- ## It appears that it differs between Scheme implementations.
+ ... TODO: Figure out how to always get the command-line
+ ... arguments.
+ ... It appears that it differs between Scheme implementations.
(runtime.lux//program_args _.nil)
_.nil))
(for {@.old
(def: extender
Extender
- ## TODO: Stop relying on coercions ASAP.
+ ... TODO: Stop relying on coercions ASAP.
(<| (:as Extender)
(function (@self handler))
(:as Handler)