Remove error message TODOs

Author: BenMusch

src/arr/trove/error.arr

@@ -2472,7 +2472,6 @@ data RuntimeError:
       end
     end
   | incompatible-units(reason, u, v) with:
-    # TODO Fix spacing in render-fancy-reason (and maybe render-reason)
     method render-fancy-reason(self, maybe-stack-loc, src-available, maybe-ast) block:
       base-err-msg = [ED.para:
         ED.text("The units "),
@@ -2550,7 +2549,6 @@ data RuntimeError:
           base-err-msg])]
     end
   | invalid-unit-state(opname, n, desc) with:
-    # TODO: update
     method render-fancy-reason(self, maybe-stack-loc, src-available, maybe-ast):
       [ED.error:
         cases(O.Option) maybe-stack-loc(0, false):

tests/pyret/main2.arr

@@ -1,4 +1,3 @@
-#|
 import file("./tests/test-strings.arr") as _
 import file("./tests/test-format.arr") as _
 import file("./tests/test-numbers.arr") as _
@@ -42,5 +41,4 @@ import file("./tests/test-tail-call.arr") as _
 import file("./tests/test-parse.arr") as _
 import file("./tests/test-parse-errors.arr") as _
 import file("./tests/test-flatness.arr") as _
-|#
 import file("./tests/test-units.arr") as _

tests/pyret/tests/test-units.arr

@@ -5,7 +5,6 @@ fun is-unit-contract-fail(result):
   C.is-fail(result) and C.is-failure-at-arg(result.reason) and C.is-unit-fail(result.reason.reason)
 end
 
-#|
 
 check "Unit equality":
   2 == 2%<m> is false
@@ -28,6 +27,11 @@ check "Unit equality":
   (10%<m> / 1%<m>) + 1 is 11
 
   0%<s> == 0%<m> is false
+
+  2%<m> =~ 2%<m> is true
+  2%<m> =~ 2%<s> is false
+  2%<m> <=> 2%<m> is true
+  2%<m> <=> 2%<s> is false
 end
 
 check "Arithmetic binops":
@@ -164,7 +168,6 @@ check "Units with bigint powers":
 
   num-sqrt(num-sqrt(num-sqrt(num-sqr(num-sqr(num-sqr(1%<u ^ 10000000000000001>)))))) is 1%<u ^ 10000000000000001>
 end
-|#
 
 check "Within builtins":
   within(2%<m>) raises-satisfies is-unit-contract-fail