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.

---
 doc/ref/guile/util.texi    | 2 +-
 module/calp/repl.scm       | 1 +
 module/hnh/util/values.scm | 1 +
 3 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/doc/ref/guile/util.texi b/doc/ref/guile/util.texi
index 222b59c5..b5cce99a 100644
--- a/doc/ref/guile/util.texi
+++ b/doc/ref/guile/util.texi
@@ -54,7 +54,7 @@ Only evaluates @var{expr} once.
 
 
 @defun swap f
-@math{swap (λ (x y) body ...) ⇔ λ (y x) body ...}
+@math{(swap (λ (x y) body ...)) ⇔ (λ (y x) body ...)}
 @end defun
 
 @defmac set! key value ...
diff --git a/module/calp/repl.scm b/module/calp/repl.scm
index 7beee560..aaa1061c 100644
--- a/module/calp/repl.scm
+++ b/module/calp/repl.scm
@@ -5,6 +5,7 @@
 (define-module (calp repl)
   :use-module (system repl server)
   :use-module (ice-9 regex)
+  :use-module (ice-9 format)
   :use-module ((calp util hooks) :select (shutdown-hook))
   :use-module ((hnh util exceptions) :select (warning))
   :use-module (calp translation)
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