diff options
| author | Eduardo Julian | 2021-08-09 23:02:01 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2021-08-09 23:02:01 -0400 |
| commit | 464b6e8f5e6c62f58fa8c7ff61ab2ad215e98bd1 (patch) | |
| tree | 1ae9d95956cee4251cd29a3e24c246c4360d567d /lux-cl | |
| parent | f621a133e6e0a516c0586270fea8eaffb4829d82 (diff) | |
Improved single-line comment syntax (from "##" to "...").
Diffstat (limited to 'lux-cl')
| -rw-r--r-- | lux-cl/source/program.lux | 14 |
1 files changed, 7 insertions, 7 deletions
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) |