From 464b6e8f5e6c62f58fa8c7ff61ab2ad215e98bd1 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Mon, 9 Aug 2021 23:02:01 -0400
Subject: Improved single-line comment syntax (from "##" to "...").

---
 lux-scheme/source/program.lux | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

(limited to 'lux-scheme')

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)
-- 
cgit v1.2.3