diff options
Diffstat (limited to 'lux-scheme')
| -rw-r--r-- | lux-scheme/source/program.lux | 18 |
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) |