Fix silly bug caused by debugging code and fix issue with peg

termenv/color.scm

@@ -315,13 +315,13 @@
         (and narrow narrow narrow)))
 
   (define-peg-pattern hex-string body
-    (and (ignore "#") (ignore "0x")
+    (and (ignore (and (? "#") (? (or "x" "0x"))))
          hex-chars))
 
   (define (str->channel str)
     (let ((v (locale-string->integer str 16)))
       ;; If one character we act as if it was doubled
-      (if (= 1 1)
+      (if (= 1 (string-length str))
           (+ v (* v 16))
           v)))