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-cl/source/program.lux | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'lux-cl/source')

diff --git a/lux-cl/source/program.lux b/lux-cl/source/program.lux
index c37367a2e..79991c38a 100644
--- a/lux-cl/source/program.lux
+++ b/lux-cl/source/program.lux
@@ -96,8 +96,8 @@
    (elt [int] org/armedbear/lisp/LispObject)
    (execute [org/armedbear/lisp/LispObject org/armedbear/lisp/LispObject] #try org/armedbear/lisp/LispObject)])
 
-## The org/armedbear/lisp/Interpreter must be imported before the
-## other ones, because there is an order dependency in their static initialization.
+... The org/armedbear/lisp/Interpreter must be imported before the
+... other ones, because there is an order dependency in their static initialization.
 (ffi.import: org/armedbear/lisp/Interpreter
   ["#::."
    (#static getInstance [] org/armedbear/lisp/Interpreter)
@@ -180,11 +180,11 @@
                                     [java/lang/Double [org/armedbear/lisp/DoubleFloat::new]]
                                     [java/lang/String [org/armedbear/lisp/SimpleString::new]]
                                     ))
-                              ## else
+                              ... else
                               (:as org/armedbear/lisp/LispObject sub_value))))))]
     (`` (ffi.object [] org/armedbear/lisp/LispObject [program/LuxADT]
           []
-          ## Methods
+          ... Methods
           (program/LuxADT
            [] (getValue self) java/lang/Object
            (:as java/lang/Object value))
@@ -237,7 +237,7 @@
     (loop [idx 0
            output (:as (Array Any) (array.new size))]
       (if (n.< size idx)
-        ## TODO: Start using "SVREF" instead of "elt" ASAP
+        ... TODO: Start using "SVREF" instead of "elt" ASAP
         (case (read (org/armedbear/lisp/LispObject::elt (.int idx) host_object))
           (#try.Failure error)
           (#try.Failure error)
@@ -271,7 +271,7 @@
               (exception.throw ..unknown_kind_of_object (:as java/lang/Object host_object)))
 
             #.None)
-          ## else
+          ... else
           (exception.throw ..unknown_kind_of_object (:as java/lang/Object host_object))
           )))
 
@@ -367,7 +367,7 @@
 (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