From 9e859e1b1368b1f03a556cae9f91df94ca217017 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Sat, 23 Jul 2022 23:34:34 +0200
Subject: Minor general cleanup.

---
 module/hnh/util/values.scm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'module/hnh/util')

diff --git a/module/hnh/util/values.scm b/module/hnh/util/values.scm
index 75db638f..ddabb10c 100644
--- a/module/hnh/util/values.scm
+++ b/module/hnh/util/values.scm
@@ -30,6 +30,7 @@
      (lambda (prompt . rets)
        (apply values (modify rets (ref idx) prompt)))))
 
+;; TODO value-ref becomes value
 (define-syntax-rule (value-ref form idx)
   (call-with-values (lambda () form)
     (lambda returns (list-ref returns idx))))
-- 
cgit v1.2.3