From a8fc20e32b2ce14d32c8dfdb060451641958bbe1 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Tue, 7 Apr 2020 23:56:04 +0200
Subject: Minor notes and fixes.

---
 module/output/text.scm | 1 +
 module/util/config.scm | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

(limited to 'module')

diff --git a/module/output/text.scm b/module/output/text.scm
index a0a70f22..dacec4f8 100644
--- a/module/output/text.scm
+++ b/module/output/text.scm
@@ -63,6 +63,7 @@
 
 
 ;; TODO for some cases the final delim should be `or' instead of `and'
+;; TODO more options for infix strings
 (define*-public (add-enumeration-punctuation
                  list optional: (final-delim "&"))
   (cond [(null? list) ""]
diff --git a/module/util/config.scm b/module/util/config.scm
index 98582b7c..33da9980 100644
--- a/module/util/config.scm
+++ b/module/util/config.scm
@@ -31,7 +31,7 @@
 (define-macro (define-config name default-value documentation valid-value?)
   `(let ((make-config (@@ (util config) make-config))
          (config-values (@@ (util config) config-values))
-         (config? (@@ (util config) config?))
+         ;; (config? (@@ (util config) config?))
          (get-value (@@ (util config) get-value)))
      (cond [(hashq-ref config-values (quote ,name))
             => (lambda (value)
-- 
cgit v1.2.3